직장에 문제가 있습니다. 두 개의 다른 데이터베이스에서 문자열로 오는 두 개의 숫자를 비교해야합니다. 숫자에는 선행 0 및 / 또는 선행 / 트레일 공백이있을 수 있습니다. 따라서 "0001 "한 데이터베이스와 " 1 "다른 데이터베이스에서 가질 수 있습니다 .

다음 코드를 사용하여 C #의 문제를 해결했습니다.

Func<string, string, bool> f = (a,b) => int.Parse(a.Trim()) == int.Parse(b.Trim())

도전

이것은 초보자와 모든 종류의 난해한 언어에 적합한 매우 간단한 도전입니다. 선행 제로 및 / 또는 선행 / 후행 공백과 함께 제공 될 수있는 문자열로 두 개의 숫자가 주어지면 두 문자열이 동일한 숫자를 나타내는 지 확인하는 가장 짧은 코드를 작성하십시오.

• 입력은 두 개의 문자열이거나 해당 언어에서 동등한 문자열이어야하며 (문자 배열은 정상 임) 항상 0보다 큰 정수 값을 나타냅니다.
• 결과는 진솔한 값과 거짓된 값을 나타내는 일관된 두 값이어야합니다.

예

A          B          Result
----------------------------
"0001"     "1    "    true
"1450"     "1450 "    true
"0010001 " " 10001  " true
"0010000"  "  10  "   false
"101023"   "101024"   false

이것은 code-golf 이므로 각 언어마다 가장 짧은 코드가 이길 수 있습니다!

자바 스크립트 , 11 바이트

a=>b=>+a==b

자바 스크립트의 캐스팅 규칙을 약간 남용하는 것; 숫자 형으로 +a강제 a합니다.

Shaggy 와 Martin Ender 덕분에 -6 바이트 ♦

LiefdeWen 의 멋진 작품 :

a=>b=>~~a==~~b

05AB1E , 1 바이트

Q

온라인으로 사용해보십시오!

설명

평등 비교 Q는 문자열을 비교하기 전에 자동으로 int로 평가하려고 시도합니다.

Flashpoint 스크립팅 언어 작업 , 33 바이트

f={call format(["%1==%2"]+_this)}

전화 :

hint format["%1\n%2\n%3\n%4\n%5",
    ["0001", "1    "] call f,
    ["1450", "1450 "] call f,
    ["0010001 ", " 10001  "] call f,
    ["0010000", "  10  "] call f,
    ["101023", "101024"] call f]

산출:

대체 버전 (41 바이트) :

f={{t=call _x;r=t==s;s=t}forEach _this;r}

보다 간단한 것보다 여전히 5 바이트 더 짧음 f={t=_this;call(t select 0)==call(t select 1)}

39 바이트 :

f={{t=call _x;r=t==s;s=t}count _this;r}

count (배열의 크기를 반환합니다) 대신 작동합니다 forEach 합니다. 그 조건에 맞는 배열 요소 만 계산하는 조건으로 사용되는 "람다"를 제공 할 수 있기 때문입니다. 이 경우에 사용 된 "조건"은 유효한 조건은 아니지만 오류를 발생시키지 않고의 반환 값이 count필요 하지 않기 때문에 여기서 중요하지 않습니다 .

택시 , 488 바이트

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to The Babelfishery.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Equal's Corner.Pickup a passenger going to Equal's Corner.Go to Equal's Corner:n 1 l 1 l 1 l.Switch to plan "b" if no one is waiting.'1' is waiting at Writer's Depot.[b]'0' is waiting at Writer's Depot.Go to Writer's Depot:n 1 l 1 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 r 2 r 1 l.

온라인으로 사용해보십시오!

언 골프 드 :

Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to The Babelfishery.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: south 1st left 1st right.
Pickup a passenger going to Equal's Corner.
Pickup a passenger going to Equal's Corner.
Go to Equal's Corner: north 1st left 1st left 1st left.
Switch to plan "b" if no one is waiting.
'1' is waiting at Writer's Depot.
[b]
'0' is waiting at Writer's Depot.
Go to Writer's Depot: north 1st left 1st right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st right 2nd right 1st left.

문자열이 유일한 입력 또는 출력 유형이므로 택시는이 문제에 상대적으로 적합합니다. The Babelfishery문자열을 숫자로 변환하거나 그 반대로 변환하여 모든 공백과 선행 0을 제거합니다. 또한 -첫 번째 숫자 바로 앞에있는 경우 음수를 처리 합니다. 그런 Equal's Corner다음 두 값을 서로 확인 Writer's Depot하고 출력을 문자열 형식으로 제공합니다. 결과는 1진실되고 0거짓입니다.

C (gcc) , 27 바이트

f(s,t){s=atoi(s)==atoi(t);}

With -O0(기본 설정)입니다.

온라인으로 사용해보십시오!

C, 32 바이트

f(s,t){return atoi(s)==atoi(t);}

온라인으로 사용해보십시오!

J , 4 바이트

=&do

평가 =후 비교하십시오 . 온라인 으로 사용해 볼 수도 있습니다 !&do=&".

레티 나 , 11 바이트

.+
$*
D`
¶$

온라인으로 사용해보십시오!

입력은 줄 바꿈으로 구분되지만 테스트 스위트는 편의를 위해 쉼표 구분을 사용합니다. 인쇄물1평등과 0불평등을 위해 합니다 .

설명

.+
$*

각 줄을 단항으로 변환하십시오. 선행 0과 공백은 무시합니다.

D`

중복 제거 : 두 번째 줄이 모두 같은 경우 두 번째 줄을 지 웁니다.

¶$

문자열이 줄 바꿈으로 끝나는 지 확인하십시오.

파이썬 3 , 25 바이트

lambda a,b:int(a)==int(b)

온라인으로 사용해보십시오!

Brain-Flak , 22 바이트

(([{}]{})[{(){}}](){})

온라인으로 사용해보십시오!

Jo King 덕분에 4 바이트를 절약했습니다 .

삼각 , 17 바이트

..)..
.Ii).
@Ii=.

온라인으로 사용해보십시오!

삼각 관계는 한 번만 경쟁력이 있습니다!

작동 원리

삼각법을 사용하려면 코드에 점의 삼각 분포가 있어야합니다. 즉, 각 행의 길이는 행 수에 2를 곱하고 감소한 행 수와 같아야하며 각 행에는 프로그램의 위치와 같은 점이 있어야합니다 (아래 행은 행 0, 위의 행은 1 행 등입니다). 이를 염두에두고 코드 작동 방식을 분석해 보겠습니다.

..).. || Push a 0 onto the stack.
.Ii   || Get the 0th input and cast it to an integer.
   ). || Push another 0 onto the stack.
@I    || Increment the ToS => 1. Get the first input.
  i=. || Then cast it to an integer and compare their equality.

Alice , 7 바이트

X/n
o@i

온라인으로 사용해보십시오!

숫자가 아닌 구분 기호가 작동합니다. 1평등을 위해 인쇄0 .

설명

X   XOR, does nothing.
/   Switch to Ordinal mode.
i   Read all input as a string.
/   Switch to Cardinal mode.
X   XOR. Implicitly finds all integers in the string and pushes them separately
    onto the stack. The XOR gives 0 if the values are identical.
n   Logical NOT. Gives 1 for equal inputs and 9 otherwise.
/   Switch to Ordinal.
o   Print the 0 or 1 as a string.
/   Switch to Cardinal.
@   Terminate the program.

Japt , 3 바이트

¥Vn

시도 해봐

두 번째 입력을 정수로 변환하고 첫 번째와 같음을 비교합니다.

APL (Dyalog) , 4 바이트

@ Adám 덕분에 3 바이트 절약

=/⍎¨

온라인으로 사용해보십시오!

jq, 24 자

map(tonumber)|.[0]==.[1]

2 개의 문자열은 배열의 항목으로 전달됩니다.

샘플 실행 :

bash-4.4$ jq 'map(tonumber)|.[0]==.[1]' <<< '["0010001 ", " 10001  "]'
true

bash-4.4$ jq 'map(tonumber)|.[0]==.[1]' <<< '["0010000", "  10  "]'
false

온라인으로 사용해보십시오! ( 모든 테스트 사례 )

껍질 , 3 바이트

¤=r

온라인으로 사용해보십시오!

설명

¤    -- combine both arguments of ..
 =   -- .. equality ..
  r  -- .. with read

PowerShell, 20 bytes

param($a,$b)+$a-eq$b

Similar to the JavaScript answer, just longer because PowerShell doesn't have currying. Uses + to cast the first string to integer, and then the -equals automatically casts the second string to integer. Output is True/False.

Try it online!

PowerShell, 19 bytes

$args-join'-eq'|iex

Try it online!

-join the argument array ($args) with the string representation of the comparison operator (-eq) then evaluate the expression with Invoke-Expression (iex).

Q (Kdb+), 13 bytes

=/["J"$(x;y)]

Explanation

(x;y) : a list of the two inputs.

"J"$ : casting each input to a long (7j) type from string (10c), which can correctly interpret
white space and leading 0s.

=/ : checks equality over elements in a list (each subsequent pair).
As there is only one pair, returns single boolian 0b/1b.

T-SQL, 35 bytes

Per our standards, data is input via pre-existing table t with varchar fields a and b.

    SELECT IIF(ABS(a)=ABS(b),1,0)FROM t

Returns 1 if they match, 0 if they don't.

A few of SQL's mathematical functions (including ABS, FLOOR and CEILING) will do an implicit conversion to numeric if given string parameters, this is shorter than an explicit CAST(a AS INT) or CONVERT(INT,b), and works in this case since we know the input values are always positive.

IIF is specific to MS SQL 2012 and above, so no guarantee about other implementations.

Excel VBA, 27 16 Bytes

-9 Thanks to @Nayrb and @TaylorScott

[C1]=[A1]-[B1]=0

Where you input the values on the Cells with 'string.

Where x and y are the input Strings and z is a Boolean output.

If CInt(x)=CInt(y) Then z=1

Using CInt

R, 28 27 bytes

!diff(as.double(scan(,'')))

Reads numbers as strings, converts them to doubles and checks if their difference is not zero.

Try it online!

−1 byte thanks to Giuseppe

Lua, 20 bytes

print(...-arg[2]==0)

Try it online!

Haskell, 20 bytes

-11 bytes thanks to Laikoni. -2 bytes thanks to Zgarb.

a#b=0+read a==read b

Try it online!

Gema, 21 characters

*\n*=@cmpn{*;*;0;1;0}

No boolean in Gema. As the @get-switch{}/@set-switch{} functions use 0 and 1 to represent switch statuses, also used 0 and 1.

The 2 strings are passed on separate input lines.

Sample run:

bash-4.4$ gema '*\n*=@cmpn{*;*;0;1;0}' <<< $'0010001\n10001  '
1

bash-4.4$ gema '*\n*=@cmpn{*;*;0;1;0}' <<< $'0010000\n  10  '
0

Perl 5, 9 + 1 (-p) = 10 bytes

$_=$_==<>

try it online

Stacked, 8 bytes

[#~\#~=]

Try it online!

Explanation

[#~\#~=]   anonymous function
 #~        eval TOS
   \       swap top two
    #~     eval TOS
      =    push equality of top two

Attache, 11 bytes

Same@Map&:N

Try it online!

This takes an array of strings, such as V["0001", "1 "]. Simply stated, Map&:N is a function that maps N over its argument, and Same checks that the array contains only equal members. (Fun fact: this function works for more than 2 string arguments.)

SNOBOL4 (CSNOBOL4), 42 bytes

	OUTPUT =EQ(EVAL(INPUT),EVAL(INPUT)) 1
END

Try it online!

Outputs 1 for truthy, nothing for falsey. Since (space) is the concatenation operator in SNOBOL, EVALing a number with leading/trailing spaces yields the number itself, and it also neatly takes care of any leading zeroes. EQ tests for numerical equality, conditionally setting OUTPUT to 1 on Success.

Sinclair ZX81/Timex TS1000/1500 BASIC, ~29 tokenized BASIC bytes

New solution thanks to Neil (thanks for the tip).

 1 INPUT A$
 2 INPUT B$
 3 PRINT VAL A$=VAL B$

This solution requires user input, so enter in two strings with white spaces and/or leading zeros, or enter two strings of non-equal numeric value; 0 is false and 1 is true once line three has compared the value of each string entered.

Old solution: Sinclair ZX81/Timex TS1000/1500 BASIC, ~46 tokenized BASIC bytes

 1 LET A$=" 001 "
 2 LET B$="1"
 3 PRINT (VAL A$=VAL B$)

The actual check is done in line three, which is only ~16 tokenized BASIC bytes; so entering each test case pair using direct mode will save ~30 bytes from the listing. Note that this byte count does not include the var stack.

APL (NARS2000), 7 bytes

=⍥⍎

Well, yes, I do know NARS2000 can't compete over Dyalog here since it uses Unicode, but I thought I'd rather show off ⍥ (called Composition in NARS2000, even though it's actually unrelated to function composition), something Dyalog doesn't have as a built-in and I haven't ever seen used here. In Dyalog, it has to be implemented as {(⍵⍵⍺)⍺⍺⍵⍵ ⍵}. What it does is call the right operand monadic function on both the left and right argument, and then call the left operand dyadic function on the results.

Here, the right operand is ⍎ (Execute, i.e. eval) and the left operand is = (Equal To, i.e. check if its arguments are equal).