チャレンジ

2つの自然数の奇妙な合計を計算します（月の加算とも呼ばれます）。

10進数で記述された2つの自然数が与えられるA=... a2 a1 a0と、最大演算に基づいて、次のように奇妙な合計が定義されます。 B=... b2 b1 b0A+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)

入力

2つの自然数

次のすべてが許可されます。

• ゼロが埋め込まれた文字列（同じ長さ）
• 左スペースが埋め込まれた文字列
• 右スペースが埋め込まれた文字列
• 2つの埋め込み文字列の配列
• 2Dスペースが埋め込まれたchar配列

出力

自然数

例

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

ルール

• 入力と出力は、任意の便利な形式で指定できます（言語/ソリューションに最適な形式を選択してください）。
• 負の値や無効な入力を処理する必要はありません
• 完全なプログラムまたは機能のいずれかが受け入れられます。関数の場合、出力する代わりに出力を返すことができます。
• 可能であれば、他の人があなたのコードを試せるように、オンラインテスト環境へのリンクを含めてください！
• 標準的な抜け穴は禁止されています。
• これはコードゴルフなので、通常のゴルフルールがすべて適用され、最短のコード（バイト単位）が勝ちます。

Python 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配列。それぞれが1行に対応し、短い数字の左側にスペースが埋め込まれます。例えば

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つの文字列として受け取り、数字のリストを返します

代替案：

入力を2つの整数として受け取ります。同じ出力

パイソン2、60の 59バイト

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

オンラインでお試しください！

Java 10、 10、78 57バイト

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

2つのスペースが埋め込まれた文字配列として入力します。

21バイトを節約するために新しい配列を返す代わりに、最初の入力配列を変更します（ありがとう @OlivierGrégoireに）。

オンラインでお試しください。

説明：

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バイト

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

オンラインでお試しください！

数字のリストとしての入出力

ジャプト、9 8 7バイト

入力を数字配列の配列として受け取ります。

mÔÕÔËrw

それを試してみてください

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

入力としてゼロが埋め込まれた配列を取ることが許可されている場合（現在は「便利な形式」に該当しますが、チャレンジャーの意図ではないと思われます）、これは3バイトになります。

íwV

それを試してみてください

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

Perl 6、37バイト

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

オンラインでお試しください！

入力を数字のリストのリストとして受け取ります。

05AB1E、9 6 5バイト

-3 エミニャに
感謝-1 シャギーに感謝

íζ€àR

入力を数字のリストのリストとして取得します

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

オンラインでお試しください！またはすべてのテストケースを試す

Perl 6、15バイト

{[~] [Zmax] $_}

オンラインでお試しください！

入力をスペースで埋められた文字の配列のリストとして取得しますが、このチャレンジでは、入力形式が緩いため、かなり退屈になります。あるいは、代わりに2つの整数のリストを受け取るプログラムがあります。

Perl 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

Haskell、40バイト

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

文字列としての入出力、オンラインで試してみてください！

説明

この関数はp使用し、スペースで各文字を置き換えるp b++aと、p a++bこれと同じ長さです。この方法ではzipWith、要素を失うことなく使用できますがmax、（space）のコードポイントはどの文字よりも低いため、それを使用すると機能し['0'..'9']ます。

JavaScript（ES6）、51 49バイト

注意：この回答は、ルーズI / Oフォーマットが明示的に許可される前に投稿されました。ゼロで埋められた数字の配列では、これは33バイトで実行できます。で（ただし、あまり面白くない、IMHO）。

入力を2つの整数として受け取ります。整数を返します。

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」はオフに設定され、ウェブサイトではデフォルトでオンになっています）

殻、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]

スタックス、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

2つのスペースが埋め込まれた文字列の配列として入力を受け取ります。

meSd       map greatest
    C      on the transpose of input

ここで試してみてください。

Japt、4バイト

入力は、0が埋め込まれた2つの数値配列の配列として取得されます。

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 Core）、57バイト

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

カレーを追加して-1バイト

オンラインで試す

ルビー、25バイト

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

オンラインでお試しください！

事前に埋め込まれたリスト （不正行為のような気がしますが。）

Retina 0.8.2、39バイト

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

オンラインでお試しください！リンクにはテストスイートが含まれています。以前の45バイトのRetina 1バージョンは、パッドなしの文字列を受け入れます。

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

オンラインでお試しください！リンクにはテストスイートが含まれます。説明：

P^`.+

両方の値を同じ長さに埋め込みます。（Retina 1のみ。Retina0.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 *）