도전

두 자연수 (음력 추가라고도 함)의 이상한 합을 계산합니다.

주어 A=... a2 a1 a0와 B=... b2 b1 b0소수베이스에 기록 된 두 개의 자연수는 이상한 합 에 기초하여, 정의 된 최대 로 작동 : A+B=... max(a2,b2) max(a1,b1) max(a0,b0)

   ...         a2         a1         a0
 + ...         b2         b1         b0
 ----------------------------------------
   ...  max(a2,b2) max(a1,b1) max(a0,b0)

입력

두 자연수

다음이 모두 허용됩니다.

• 제로 패딩 문자열 (길이 동일)
• 공백으로 채워진 문자열
• 오른쪽으로 채워진 문자열
• 두 개의 패딩 문자열 배열
• 2D 스페이스 패딩 문자 배열

산출

자연수

예

1999+2018-->2999
17210+701-->17711
32+17-->37
308+250-->358
308+25-->328

규칙

• 입력 및 출력은 편리한 형식으로 제공 될 수 있습니다 (언어 / 솔루션에 가장 적합한 형식을 선택하십시오).
• 음수 값 또는 유효하지 않은 입력 을 처리 할 필요가 없습니다.
• 전체 프로그램 또는 기능이 허용됩니다. 함수 인 경우 출력하지 않고 출력을 반환 할 수 있습니다.
• 가능하면 다른 사람들이 귀하의 코드를 시험해 볼 수 있도록 온라인 테스트 환경에 대한 링크를 포함하십시오!
• 표준 허점 은 금지되어 있습니다.
• 이것은 코드 골프 이므로 모든 일반적인 골프 규칙이 적용되며 가장 짧은 코드 (바이트)가 이깁니다.

파이썬 2 , 20 바이트

lambda*a:map(max,*a)

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

0으로 채워진 숫자 목록으로서의 I / O.

젤리 , 1 바이트

»

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

0으로 채워진 숫자 목록으로서의 I / O.

R , 68 65 바이트

function(x)apply(outer(x,10^(max(nchar(x)):1-1),`%/%`)%%10,2,max)

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

정수로 입력하고 자릿수 목록으로 출력합니다.

패딩이없는 숫자 목록이 허용되면 pmax충분합니다.

MATL , 2 바이트

X>

귀하의 언어 / 솔루션에 가장 적합한 형식을 선택하십시오

입력 형식은 다음과 같습니다. 각 행에 해당하는 2 행의 2D char 배열은 공백으로 채워진 짧은 숫자입니다. 예를 들어

17210
  701

MATL에서 다음과 같이 정의됩니다.

['17210'; '  701']

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

설명

      % Implicit input: 2D char array with two rows 
X>    % Take maximum of (code points of) each column
      % Implicit display

파이썬 2 , 73 60 56 바이트

lambda a,b:map(max,zip(a.rjust(len(b)),b.rjust(len(a))))

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

입력을 두 개의 문자열로 받아서 숫자 목록을 반환합니다.

대안 :

입력을 두 정수로 취합니다. 동일한 출력

파이썬 2 , 60 59 바이트

lambda*i:map(max,zip(*['%*d'%(len(`max(i)`),v)for v in i]))

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

자바 10, 78 57 바이트

a->b->{for(int i=a.length;i-->0;)if(a[i]<b[i])a[i]=b[i];}

두 개의 공백으로 채워진 문자 배열로 입력하십시오.

@ OlivierGrégoire 덕분에 21 바이트를 절약하기 위해 새 입력 배열을 반환하는 대신 첫 번째 입력 배열을 수정합니다 .

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

설명:

a->b->{            // Method with two char-array parameters and String return-type
  for(int i=a.length;i-->0;)
                   //  Loop `i` in the range (length, 0]:
    if(a[i]<b[i])  //   If the `i`'th character in input `a` is smaller than in input `b`:
      a[i]=b[i];}  //    Change the `i`'th character in `a` to the `i`'th character of `b`

J , 14 12 바이트

Jonah 덕분에 -2 바이트

(>./@,:)&.|.

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

자릿수 목록으로 입력 및 출력

apt, 9 8 7 바이트

숫자 배열의 배열로 입력을받습니다.

mÔÕÔËrw

시도 해봐

m            :Map
 Ô           :  Reverse
  Õ          :Transpose
   Ô         :Reverse
    Ë        :Map
     r       :  Reduce by
      w      :  Maximum

0으로 채워진 배열을 입력으로 허용하면 (현재 "편의 한 ​​형식"에 속하지만 도전자의 의도가 아닌 것 같습니다) 3 바이트가 될 수 있습니다.

íwV

시도 해봐

í       :Interleave the first input
  V     :With the second
 w      :Reduce each pair by maximum

펄 6 , 37 바이트

{[R~] roundrobin($_».reverse)».max}

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

숫자 목록의 목록으로 입력을받습니다.

05AB1E , 9 6 5 바이트

Emigna 덕분에 -3 Shaggy
덕분에 -1

íζ€àR

숫자 목록의 목록으로 입력을받습니다.

í      # Reverse both inputs
 ζ     # Zip
  ۈ   # Keep the bigger digits
    R  # Reverse

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 시도하십시오

펄 6 , 15 바이트

{[~] [Zmax] $_}

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

공백으로 채워진 문자 배열 목록으로 입력을 취하지 만이 문제의 경우 lax 입력 형식이 다소 지루합니다. 또는 두 정수 목록을 대신 사용하는 프로그램이 있습니다.

펄 6 , 41 바이트

{+[~] [Zmax] $_>>.fmt("%{.max}d")>>.comb}

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

많은 양의 공백이 마음에 들지 않으면 +앞면에서 공백을 제거 할 수도 있습니다 .

설명:

{                                       }  # Anonymous code block
             $_>>    # Map each integer to 
                 .fmt("%{.max}d") # The number padded by the max of the list spaces
                                 >>.comb   # And split each to list of characters
      [Zmax]  # Get the max of each digit at each index
              # This works because space is coerced to 0
              # Otherwise we would have to add a 0 to the formatting string
  [~]   # Join the list of digits and spaces
 +      # And coerce the string to a number to get rid of leading whitespace

하스켈 , 40 바이트

a#b=zipWith max(p b++a)$p a++b
p=(' '<$)

문자열로 입력 / 출력 하고 온라인으로 시도하십시오!

설명

기능은 p사용 공간에 의해 각 캐릭터를 대체 p b++a하고 p a++b, 따라서 동일한 길이이다. 이 방법으로 zipWith요소를 잃지 않고 사용할 수 있습니다 max. (공백)은 문자보다 코드 포인트가 낮기 때문에 작동 합니다 ['0'..'9'].

자바 스크립트 (ES6), 51 49 바이트

주의 :이 답변은 느슨한 I / O 형식이 명시 적으로 허용되기 전에 게시되었습니다. 0으로 채워진 숫자 배열을 사용하면 33 바이트 로 수행 할 수 있습니다 (그러나 IMHO는 훨씬 덜 흥미 롭습니다).

입력을 두 정수로 취합니다. 정수를 반환합니다.

f=(a,b,t=10)=>a|b&&(a%t<b%t?b:a)%t+t*f(a/t,b/t)|0

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

댓글

f = (                     // f = recursive function taking:
  a,                      //   a = first integer
  b,                      //   b = second integer
  t = 10                  //   t = 10 (which is used 6 times below)
) =>                      //
  a | b                   // bitwise OR between a and b to test whether at least one of
                          // them still has an integer part
  &&                      // if not, stop recursion; otherwise:
  (                       //
    a % t < b % t ? b : a // if a % 10 is less than b % 10: use b; otherwise: use a
  ) % t +                 // isolate the last decimal digit of the selected number
  t *                     // add 10 times the result of
  f(a / t, b / t)         // a recursive call with a / 10 and b / 10
  | 0                     // bitwise OR with 0 to isolate the integer part

대체 버전

동일한 I / O 형식

f=(a,b)=>a|b&&[f(a/10,b/10)]+(a%10<b%10?b:a)%10|0

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

Tcl , 156 바이트

proc S a\ b {join [lmap x [split [format %0[set l [expr max([string le $a],[string le $b])]]d $a] ""] y [split [format %0$l\d $b] ""] {expr max($x,$y)}] ""}

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

그렇게 골프는 아니지만, 나는 그것을 시도해야했습니다. 나중에 골프를 할 것입니다!

배치, 120 바이트

@set/aw=1,x=%1,y=%2,z=0
@for /l %%i in (0,1,9)do @set/a"z+=w*((v=y%%10)+(v-=x%%10)*(v>>4)),y/=10,x/=10,w*=10
@echo %z%

입력을 명령 행 매개 변수로 사용합니다. 188 바이트 버전은 임의의 길이 정수에서 작동합니다.

@set/px=
@set/py=
@set z=
:l
@if %x:~-1% gtr %y:~-1% (set z=%x:~-1%%z%)else set z=%y:~-1%%z%
@set x=%x:~,-1%
@set y=%y:~,-1%
@if "%x%" neq "" if "%y%" neq "" goto l
@echo %x%%y%%z%

STDIN에서 입력을받습니다.

나뭇 가지 , 125 바이트

이 도전을 보았을 때, 나는 "템플릿 언어를 사용하자!

나는 틀렸다 ... 틀렸다 .... ... 그러나 재미있었습니다!

{%macro a(a,b,s='')%}{%for k,x in a|reverse|split('')%}{%set s=max(x,(b|reverse|split('')[k]))~s%}{%endfor%}{{s}}{%endmacro%}

"strict_variables"가 false(기본값)으로 설정되어 있어야합니다 .

이 매크로를 사용하려면 다음과 같이하십시오 :

{% import 'file.twig' as my_macro %}

{{ my_macro.a(195,67) }}

167을 표시해야합니다.

https://twigfiddle.com/rg0biy 에서 시도해 볼 수 있습니다
( "strict_variables"는 off로 설정되어 있으며 웹 사이트에서는 기본적으로 켜져 있습니다)

껍질 , 5 바이트

↔¤żY↔

편리하게 입력 / 출력을 숫자 목록으로 가져와 온라인으로 시도 하거나 모두 확인하십시오!

설명

↔¤żY↔  -- example inputs [1,4] [3,2]
 ¤  ↔  -- reverse the arguments of: [4,1] [2,3]
  żY   -- | zipWith (keeping elements of longer) max: [4,3]
↔      -- reverse: [3,4]

Stax , 5 바이트

|>E:o

실행 및 디버깅

이 프로그램은 입력을 문자열 배열로 가져옵니다.

|>  Right align inputs (filling with \0)
E   "Explode" array onto stack separately
:o  "Overlay" Keep the maximum element respective element from two arrays.

이것을 실행

이것은 "야생에서"오버레이 명령에 대한 사용을 처음 본 것입니다.

SNOBOL4 (CSNOBOL4) , 153 바이트

	X =INPUT
	Y =INPUT
	Y =DUPL(0,SIZE(X) - SIZE(Y)) Y
S	X LEN(1) . A REM . X	:F(O)
	Y LEN(1) . B REM . Y
	O =O GT(A,B) A	:S(S)
	O =O B	:(S)
O	OUTPUT =O
END

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

Pyth, 5 바이트

meSdC

공백으로 채워진 두 문자열의 배열로 입력을받습니다.

meSd       map greatest
    C      on the transpose of input

여기에서 시도 하십시오 .

Japt , 4 바이트

입력은 두 개의 0으로 채워진 숫자 형 배열로 구성됩니다.

y_rw

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

실론, 55/99

길이가 같은 0 또는 공백으로 채워진 문자열을 사용하는 경우 (반복 가능한 문자 반환) :

function t(String a,String b)=>zipPairs(a,b).map(max);

0 또는 공백으로 채워진 문자열 (문자열 반환) :

String t(String a,String b)=>String(zipPairs(a,b).map(max));

길이가 다른 문자열이있는 경우 (문자열을 반환) :

String u(String a,String b)=>String(zipPairs(a.padLeading(b.size),b.padLeading(a.size)).map(max));

C # (. NET 코어) , 57 바이트

a=>b=>a.Select((x,i)=>a[i]>b[i]?x:b[i])

카레를 추가하여 -1 바이트

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

루비 , 25 바이트

->a,b{a.zip(b).map &:max}

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

미리 채워진 목록 (속임수처럼 느껴지지만)

레티 나 0.8.2 , 39 바이트

+`^(.*)(.)¶(.*)(.)
$1¶$3¶$2$4
%O`.
¶.?

온라인으로 사용해보십시오! 링크에는 테스트 스위트가 포함되어 있습니다. 이전 45 바이트 Retina 1 버전은 패딩되지 않은 문자열을 허용합니다.

P^`.+
+`^(.*)(.)¶(.*)(.)
$1¶$3¶$2$4
%O`.
¶.?

온라인으로 사용해보십시오! 링크에는 테스트 스위트가 포함되어 있습니다. 설명:

P^`.+

두 값을 같은 길이로 채 웁니다. (Retina 1 만 해당됩니다. Retina 0.8.2에는이를 모방하는 방법이 있지만 골프는 아닙니다.)

+`^(.*)(.)¶(.*)(.)
$1¶$3¶$2$4

값을 바꿉니다.

%O`.

각 쌍을 순서대로 정렬하십시오.

¶.?

낮은 자릿수와 잉여 줄 바꿈을 모두 삭제하십시오.

숯 , 8 바이트

⭆θ⌈⟦ι§ηκ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

 θ          First input
⭆           Map over characters and join
  ⌈         Maximum of
   ⟦        List of
    ι       Current character of first input and
      η     Second input
     §      Indexed by
       κ    Current index
            Implicitly print

10 바이트 버전은 여러 개의 채워진 문자열을 "추가"합니다.

⭆§θ⁰⌈Ｅθ§λκ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 이전 14 바이트 버전은 패딩되지 않은 문자열을 허용합니다.

⭆◧θＬη⌈⟦ι§◧ηＬθκ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

  θ             First input
 ◧              Padded to
   Ｌ            Length of
    η           Second input
⭆               Map over characters and join
     ⌈          Maximum of
      ⟦         List of
       ι        Current character of first input and
          η     Second input
         ◧      Padded to
           Ｌ    Length of
            θ   First input
        §       Indexed by
             κ  Current index
                Implicitly print

17 바이트 버전은 여러 문자열을 "추가"합니다.

≔⌈ＥθＬιη⭆η⌈Ｅθ§◧ληκ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다.

Mathematica 50 바이트

a = 543; b = 791;

FromDigits@MapThread[Max, IntegerDigits /@ {a, b}]

(* 793 *)