도전:

소셜 네트워크에는 다음과 같은 바보 같은 퍼즐이 있습니다.

8 + 2 = 16106
5 + 4 = 2091
9 + 6 = ?

함수 나 연산자 구현 개의 양의 정수 번호를 부여 할 때, 그 x와 y같은 즉 x > y > 0, int로서 정답을 산출 정수 응답의 자릿수의 숫자이다 x * y의 숫자 다음 x + y의 숫자 하였다 x - y. 매우 간단합니다.

규칙 :

• 표준 허점은 허용되지 않습니다.
• 이것은 코드 골프 이므로 바이트 단위의 가장 짧은 코드가 승리합니다.
• 입력 데이터 검증이 필요 하지 않습니다. 이 프로그램은 유효하지 않은 입력이 주어지면 충돌하거나 쓰레기를 반환 할 수 있습니다.
• 숫자 함수 및 연산자 (정수 및 부동 소수점, 수학 라이브러리 함수 및 숫자를 받아들이고 리턴하는 기타 함수 포함)를 사용할 수 있습니다.
• 해당되는 경우 숫자의 자릿수를 반환하는 함수를 사용할 수 있습니다.
• 당신이있어 하지 문자열이나 코드의 연결의 어느 곳의 어떤 종류를 사용하는 것을 허용했다.
• 결과는 언어로 적용되거나 스택에 푸시되거나 푸시 될 수 있습니다. 결과는 문자열이 아닌 정수 여야합니다.

샘플 코드 :

Dyalog APL :

다음 코드는이라는 이진 연산자를 만듭니다 X.

X ← {(⍺-⍵) + ((⍺ + ⍵) × 10 * 1 + ⌊10⍟⍺-⍵) + ⍺ × ⍵ × 10 * (2 + ⌊10⍟⍺ + ⍵) + ⌊10⍟⍺- ⍵}

설명:

• APL에서는 오른쪽에서 왼쪽으로 평가합니다.

• ⍺ and ⍵ 각각 왼쪽과 오른쪽 피연산자

• ⌊10⍟⍺-⍵읽는다 : floor of log10(⍺-⍵). 먼저 감산을 수행 한 다음 로그를 기록한 다음 바닥을 수행합니다. 오른쪽에서 왼쪽으로. log10은 자릿수를 계산하기 위해 수행됩니다 ⍺-⍵(나중에 1을 합산해야 함).

• ⍺×⍵×10*(...) 읽는다 : 10 to the (...)th power, multiplied by ⍵, multiplied by ⍺

• 따라서 ⍺×⍵×10*(2+⌊10⍟⍺+⍵)+⌊10⍟⍺-⍵합계의 자릿수와 차이의 합계로 왼쪽으로 이동 한 곱입니다. 10의 거듭 제곱을 곱하면 정수가 왼쪽으로 이동합니다.

• ((⍺+⍵)×10*1+⌊10⍟⍺-⍵) 차이의 자릿수만큼 왼쪽으로 이동 한 합계입니다.

• (⍺-⍵)차이점입니다. 여기에는 변속이 필요하지 않습니다.

• X←{...} APL에서 연산자를 정의하는 방법입니다.

예 :

      8 X 2
16106
      5 X 4
2091
      9 X 6
54153

GNU DC :

다음 코드는 매크로라는 이름을 만듭니다 a.

[sysx10lxly-dseZdsclxly+dsd+Z1+^lxly**10lc^ld*+le+]sa

설명:

• sx및 sy스택에서 팝 요소 및 레지스터에 저장 x하고 y, 각각.

• lx및 ly레지스터에서 요소를로드 x하고 y, 각각 스택으로 푸시.

• d 스택의 마지막 요소를 복제합니다.

• ^ 두 숫자의 거듭 제곱을 계산합니다.

• Z숫자를 팝하고 자릿수를 반환합니다. 이것은 dc로그 함수가 없기 때문에 수행됩니다 .

• [...]sa레지스터에 매크로를 저장합니다 a. la그것을로드합니다. x스택 맨 위에서 매크로를 실행합니다.

예 :

8 2 laxn
16106
5 4 laxn
2091
9 6 laxn
54153

자바 스크립트 (ES7), 63 61 59 바이트

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

(a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-~Math.log10(c)+c)

<input id=a type=number oninput="c.innerText=((a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-~Math.log10(c)+c))(+a.value,+b.value)">
<input id=b type=number oninput="c.innerText=((a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-!Math.log10(c)+c))(+a.value,+b.value)">
<p id=c>

C, 79 75 바이트

4 바이트를 절약 한 @GB 덕분에!

#define X for(c=1;(c*=10)<=a
c,d;f(a,b){X+b;);d=c*a*b+a+b;X-b;);a=d*c+a-b;}

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

배쉬, 66

• @chepner 덕분에 2 바이트가 절약되었습니다.

f()(s=$[$1+$2]
d=$[$1-$2]
echo $[($1*$2*10**${#s}+s)*10**${#d}+d])

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

엑셀, 61 바이트

=A1-B1+(A1+B1)*10^LEN(A1-B1)+A1*B1*10^(LEN(A1-B1)+LEN(A1+B1))

Excel, 18 바이트가 유효하지 않습니다

=A1*B1&A1+B1&A1-B1

스택 형 , 36 바이트

,@A$(*+-){!A...n!}"!{%y#'10\^x*y+}#\

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

이전 : ,@A$(-+*){!A...n!}"!:inits$#'"!$summap:pop@.10\^1\,\*sum

설명을 작성하기 전에 1 ~ 2 바이트를 짜려고합니다. ( #'= "여기에 첨부 된 문자열이없는 "각각의 크기 "입니다.)

26 바이트에서의 비경쟁 : $(*+-)#!!:{%y#'10\^x*y+}#\.

TI 기본, 34 33 바이트

Prompt A,B
A-B+(A+B)10^(1+int(log(A-B
Ans+AB10^(1+int(log(Ans

GNU DC, 36

m스택의 최상위 두 멤버를 가져 와서 매크로 를 적용하고 결과를 스택에 남겨 두는 매크로 를 정의합니다 (문제의 예에 따라).

[sadsbla-dZAr^lalb+*+dZAr^lalb**+]sm

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

펄 6 ,  81 61  58 바이트

->\x,\y{($/=($/=x- y)+(x+y)*({10**$++}...*>$/).tail)+x*y*({10**$++}...*>$/).tail}

시도 해봐

->\x,\y{(x*y,x+y,x- y).reduce:{$^a*10**Int(1+log10($^b))+$b}}

시도 해봐

->\x,\y{[[&({$^a*10**Int(1+$^b.log10)+$b})]] x*y,x+y,x- y}

시도 해봐

젤리 , 27 바이트

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵*
ạ,+,×Fæ.ç

로 호출 할 수있는 2 진 링크 / 함수를 정의합니다 ç. 두 개의 정수를 입력으로 받아서 정수를 리턴합니다. 절대 차이를 사용하여 x <y 또는 x >y 를 취할 수 있다는 추가 보너스가 있습니다 .

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

설명:

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵* -- Create link which computes what order of magnitude
                        to multiply the difference, sum, and product by
ạ,+,×Fæ.ç         -- Main link, applies this using dot product

세부:

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵* -- Create dyadic like which does the following:
       l⁵Ḟ‘       -- Create operation which computes number of digits
                       (log base 10 (⁵ is the literal 10), floored, incremented)
           €      -- Apply this to each element in
+,ạ,.1F           -- ... the list [sum,difference,.1]
            R     -- Reverse the list
             +\   -- Add up first n elements to get list.
               ⁵* -- Raise 10 (⁵ is literal 10) to the power of each element

ạ,+,×Fæ.ç         -- Main link, applies above link
ạ,+,×F            -- The list [difference, sum, product]
      æ.          -- Dot product (multiply corresponding elements) with
        ç         -- The above link.

PHP, 79 75 바이트

두 가지 버전 :

[,$a,$b]=$argv;echo(10**strlen($s=$a+$b)*$a*$b+$s)*10**strlen($d=$a-$b)+$d;
[,$a,$b]=$argv;echo(10**strlen($a+$b)*$a*$b+$a+$b)*10**strlen($a-$b)+$a-$b;

명령 행 인수에서 입력을받습니다. 로 실행하십시오 -r.

숫자를 문자열로 사용하지만 strlen"자릿수를 반환하는 함수"로 자격이 있다고 생각
합니다. 그렇지 않다면 알려주십시오.

C (gcc) , 70 바이트

#define _ for(c=1;a+b>=(c*=10););d=c*d+a-(b=-b);
c,d;f(a,b){d=a*b;_ _}

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

Steadybox 답변을 기반으로 매크로의 모든 것을 골프에 조금 더 넣습니다.

(참고 : 예기치 않은 결과 d대신 a작업에 결과를 할당했습니다 . 생성 된 어셈블리 코드를 살펴 보았는데 문제가없는 것 같습니다.)

하스켈, 54 바이트

a%0=a
a%b=10*a%div b 10+mod b 10
a#b=(a*b)%(a+b)%(a-b)

퍼즐은 #예를 들어, 삽입 기능을 통해 구현됩니다 8#2 = 16106. 다른 함수 %는 base-10 연결을 정의합니다 (RHS가 0보다 크다고 가정).

Dyalog APL, 31 바이트

{a⊥⍨10*1+⌊10⍟a←(⍺×⍵)(⍺+⍵)(⍺-⍵)}

문제 설명의 샘플 APL 코드를 기반으로

PHP, 87 바이트

[,$a,$b]=$argv;echo($s=$a-$b)+($t=$a+$b)*10**($l=strlen($s))+$a*$b*10**($l+strlen($t));

37 바이트에 대한 유효하지 않은 솔루션

[,$a,$b]=$argv;echo$a*$b,$a+$b,$a-$b;

루비, 61 바이트

->a,b{[a*b,a+b,a-b].reduce{|x,y|z=y;x*=10while(z>z/=10);x+y}}

어떤 의심처럼 많이 보이는 이 자바 스크립트 대답하지만, 로그를 사용하지 않고.

파이썬, 92 91 문자

def g(x,y):
    l=lambda x,i=0:l(x/10,i+1)if x else 10**i
    a=x-y
    a+=(x+y)*l(a)
    return x*y*l(a)+a

위저즈 제안 덕분에;)

R (3.3.1), 104 바이트

function(x,y)Reduce(function(p,q)p*10^(floor(log10(q)+1))+q,lapply(c(`*`,`+`,`-`),function(z)z(x,y)),0)

익명 함수를 반환합니다.

이것은 나의 첫 번째 골프 시도이므로 모든 의견을 부탁드립니다.

REXX, 70 바이트

f:arg a b
c=a-b
c=(a+b)*10**length(c)+c
c=a*b*10**length(c)+c
return c

물론 기본 방법은 훨씬 짧습니다.

f:arg a b
return a*b||a+b||a-b

PowerShell, 88 바이트

param($x,$y)$l=2;if(($a=$x+$y)-gt9){$l++};($x*$y)*[math]::Pow(10,$l)+$a*10+$x-$y

PowerShell에는 도움이되지 않는 전원 운영자가 없습니다. 또한 우리가 할 수없는 문자열로 계산하지 않으면 정수의 길이를 계산할 수 없으므로 -gt길이를 알기 위해 9인지 확인합니다. 더 간결 할 수도 있지만 일을 다시해야합니다.

파이썬 2.7, 109 96 바이트

import math
a=lambda n:10**int(math.log10(10*n))
b,c=input()
d=b-c+(b+c)*a(b-c)
print d+b*c*a(d)

대회 규칙에 따라 수정되었습니다. 코드를 109 바이트에서 96 바이트 로 낮추는 데 대한 mbomb007의 공로

J , 25 바이트

X=.10#.[:;10#.inv&.>*;+;-

1. *;+;- 각 작업의 결과를 박스에 기입하십시오.
2. 10#.inv&.>각 결과를 10 자리 숫자의 배열로 변환하십시오. ( inv입니다 ^:_1)
3. [:; 어레이를 개봉하고 결합합니다.
4. 10#. 10 진수의 자릿수를 정수로 변환합니다.
5. X=.위의 연산자로 정의하십시오 X.

결과 :

   8 X 2
16106
   5 X 4
2091
   9 X 6
54153

수학, 67 바이트

c=Ceiling;l=Log10;#-#2+(#+#2)10^(c@l[#-#2]/. 0->1)+10^c@l[2#]10#2#&

소요 x-y , 다음의 LOG10 소요x-y 그 전력 10을 계산하고 곱으로하여,이를 라운드 업 x+y. 그러나 우리는 또한 log10(x-y)0 인 것을 고려해야합니다 . 그래서 우리는 0을 1로 대체 2x합니다 을 곱한 다음 xy더하십시오.

05AB1E , 23 22 16 바이트

-Dg°¹²+*Dg°¹²**O

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

"-+*"각 연산에 ​​대해 수행되는 코드가 동일하기 때문에 연산을 포함하는 문자열을 반복하여 프로그램에서 문자열을 사용할 수 있다면 (계산이 아닌) 몇 바이트를 절약 할 수 있습니다 .
물론, 우리가 연결을 사용할 수 있다면 더 많이 절약 할 수있었습니다.

R, 64 바이트

x=scan();(b=(a=diff(-x))+10^nchar(a)*sum(x))+10^nchar(b)*prod(x)

용법:

> x=scan();(b=(a=diff(-x))+10^nchar(a)*sum(x))+10^nchar(b)*prod(x)
1: 8 2
3: 
Read 2 items
[1] 16106