Виклик

Обчисліть дивну суму двох натуральних чисел (також відомих як додавання місячних):

Дано 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-матричний діапазон char

Вихідні дані

Натуральні числа

Приклад

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

Правила

• Введення та вихід можуть бути надані у будь-якому зручному форматі (виберіть найбільш відповідний формат для вашої мови / рішення).
• Не потрібно обробляти негативні значення або недійсні дані
• Прийнятна або повна програма, або функція. Якщо функція, ви можете повернути вихід, а не надрукувати його.
• Якщо можливо, додайте посилання на онлайн-тестувальне середовище, щоб інші люди могли спробувати ваш код!
• Стандартні лазівки заборонені.
• Це код-гольф, тому діють усі звичайні правила гольфу, і найкоротший код (у байтах) виграє.

Python 2 , 20 байт

lambda*a:map(max,*a)

Спробуйте в Інтернеті!

I / O як 0 попередньо доданих списків цифр.

Желе , 1 байт

»

Спробуйте в Інтернеті!

I / O як 0 попередньо доданих списків цифр.

R , 68 65 байт

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

Спробуйте в Інтернеті!

Введіть як цілі числа, виведіть у вигляді списку цифр.

Якщо дозволені списки цифр дозволені, просто pmaxвистачить.

MATL , 2 байти

X>

Виберіть найбільш відповідний формат для вашої мови / рішення

Формат введення - це двовимірний масив із двох рядків, кожен з яких відповідає рядку, з меншою лівою лінією з пробілами. Наприклад

17210
  701

який у MATL визначається як

['17210'; '  701']

Спробуйте в Інтернеті!

Пояснення

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

Python 2 , 73 60 56 байт

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

Спробуйте в Інтернеті!

Приймає введення у вигляді двох рядків і повертає список цифр

Альтернатива:

Приймає введення як два цілих числа; той же вихід

Python 2 , 60 59 байт

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

Спробуйте в Інтернеті!

Java 10, 78 57 байт

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

Введіть як два масиви символів з пробілами.

Змінює перший вхідний масив замість повернення нового, щоб зберегти 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 байт

-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] $_}

Спробуйте в Інтернеті!

Вважає вхідні дані як список прокладених пробілами масивів символів, хоча для цього виклик формат введення в'ялості робить його досить нудним. Окрім того, ось програма, яка замість цього містить список двох цілих чисел:

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з ним працює, тому що (пробіл) має нижчу кодову точку, ніж будь-який із символів ['0'..'9'].

JavaScript (ES6), 51 49 байт

NB: Ця відповідь була розміщена до того, як вільні формати вводу / виводу були явно дозволені. З нульовими масивами цифр це можна зробити в 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

Альтернативна версія

Той самий формат вводу / виводу

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%}

Для цього потрібно встановити "строкі_змінні" false значення (значення за замовчуванням).

Щоб використовувати цей макрос, ви можете зробити так:

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

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

Потрібно відображати 167.

Ви можете спробувати це на веб-сайті https://twigfiddle.com/rg0biy
("строгі_варіабелі" встановлено, він вимкнено на веб-сайті)

Лушпиння , 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

Приймає вхід як масив двох рядків з пробілами.

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);

Із рядками, заповненими пробілами, або з пробілом (повернення рядка):

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}

Спробуйте в Інтернеті!

Попередньо доданий список бла-бла. (Хоча це трохи схоже на обман.)

Сітківка 0,8,2 , 39 байт

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

Спробуйте в Інтернеті! Посилання включає тестовий набір. Попередня 45-байтна версія Retina 1 приймає нерозкладені рядки:

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

Спробуйте в Інтернеті! Посилання включає тестовий набір. Пояснення:

P^`.+

Прокладіть обидва значення на однакову довжину. (Тільки сітківка 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 *)