Дано стандартний комбінований замок, як той, що на малюнку. Спосіб розблокування - це вирівнювання 4-х чисел у коді на комбінованому рядку. Через роки лояльної служби вас звільнили з фабрики замків і вирішили точно помститися, не змішуючи замки перед тим, як відправляти їх, тим самим залишаючи кожен замок із комбінацією, щоб розблокувати його на лінії комбінації.

Ви також знаєте, що, переглядаючи порядок чисел в інших рядках, можна визначити, які числа повинні бути в рядку комбінації (і, отже, комбінація для її розблокування).

Якщо кожному рядку блокування надається число, починаючи з рядка 0 для комбінованої лінії (рядок, який розблоковує замок), до рядка 9. Наприклад, якщо цифри у рядку 4 є 5336, то це буде комбінація для розблокування 1992.

На жаль, замки вже упаковані, а перегляд кожного замка затьмарений, тож ви можете бачити номери лише в різних лініях блокування.

Змагання

Враховуючи 4 пари цифр, де перша цифра цілого числа представляє номер рядка, а друга цифра являє число, яке відображається на цьому рядку, опрацюйте комбінацію до блокування. Наприклад, якщо ви вводите:

57 23 99 45

Тоді він повинен вивести:

2101

Або

25 78 63 15

і

3174

Припустимо, що вхід завжди буде складати 4 натуральних числа у формі `25 64 72 18.

Це код-гольф , тому виграє найкоротша програма в кількості байтів.

Також це моє перше питання, тому будь-який відгук цінується.

CJam, 9 8 байт

ea9fbAf%

Читає пари цифр як аргументи командного рядка. Щоб спробувати код в Інтернеті , зміни eaв lS/читати з модельованої STDIN.

Приклад виконання

$ cjam <(echo ea9fbAf%) 57 23 99 45; echo
2101
$ cjam <(echo ea9fbAf%) 25 78 63 15; echo
3174

Як це працює

Код символів цифри d дорівнює 48 + d . Таким чином, вважаючи двоцифровий рядок xy базовим числом 9, виходить 9 * (48 + x) + (48 + y) = 10 * (48 + x) + y - x ≡ y - x (mod 10) .

ea       " Push the array of command-line arguments.                                      ";
  9fb    " Mapped base 9 conversion; replace each string 'xy' with (9 * ord(x) + ord(y)). ";
     Af% " Take the results modulo 10.                                                    ";

CJam, 13 12 11 символів

Завдяки user23013, його тепер уже до 11 символів :)

4{Ar:--A%}*

Пояснення:

4{       }*     "Run the code block 4 times";
   r            "Read the next input token (whitespace separated)";
    :-          "Subtract 2nd number from the first treating r as a 2 numbered string";
  A   -         "Subtract the result of above from 10";
       A%       "Take modulus of 10 and store it on stack";

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

Я знаю, що в гольф можна більше. Але це моя перша реальна спроба на CJam, і я обмежений досвідом :)

Крім того, інші методи зробити те ж саме в 1 додатковому символі:

l~]{_A/-A%}/     // My previous solution

або

4{ri_A/-A%}*     // As pointed out by Ingo

або

ea{i_A/-A%}/     // If input is passed through command line

Гольфскрипт (14 13 )

Спробуйте його онлайн тут

Це майже те саме , що рішення Optimizer , але іншою мовою. Важко підходити до нього по-іншому, тому що проблема є досить простою , тому краватка, безумовно, переходить до оптимізатора, чий запис все-таки був раніше.

~]{.10:^/-^%}/

Для тієї ж кількості байтів ви можете зробити

~]{.10/- 10%}/

GNU dc , 14 байт

9 прийомів запозичення @ розумної бази Денніса :

9i[?A%nd]dxxxx

Цілі числа введення читаються з STDIN, по одному на рядок.

Пояснення:

9i                # Set input radix to 9
  [     ]         # push a macro, defined thus:
   ?              #   read number from STDIN and push
    A             #   push literal 10
     %            #   calculate number mod 10
      n           #   print, with no newline
       d          #   duplicate macro
         d        # duplicate macro
          xxxx    # execute the macro 4 times    

Вихід:

$ for i in 57 23 99 45; do echo $i; done | dc ./combolock.dc
2101$ 
$ for i in 25 78 63 15; do echo $i; done | dc ./combolock.dc
3174$ 
$ 

Попередній відповідь, 18 байт:

Тому що я думав, що можу наблизитися до мов "гольфу" за допомогою цього (але не):

[A?A~--A%n]dddxxxx

C 64 63 56 або 61

Якщо вхід може бути переданий з файлу

main(a){while(scanf("%d",&a)>0)putchar(48+(a-a/10)%10);}

Якщо вхід слід набрати stdin

i;main(a){for(;i++-4;putchar(48+(a-a/10)%10))scanf("%d",&a);}

Читає чотири числа в циклі, а потім обробляє кожне, віднімаючи першу цифру від значення і друкуючи результат 10 за модулем.

Економія завдяки різноманітним коментарям нижче, а також використанню putchar замість printf

Пітон 3, 64

Прямо.

print(''.join([(i-i//10)%10 for i in map(int,input().split())]))

Це може бути коротшим, якщо мені дозволено друкувати, скажімо, [2, 1, 0, 1]замість цього ( 46 ):

print([i%10-i//10 for i in map(int,input().split())])

С, 92

#define a(n) ,(10+v[n][1]-*v[n])%10
main(int c,char**v){printf("%d%d%d%d"a(1)a(2)a(3)a(4));}

Введення з командного рядка. Віднімає перший код ASCII кожного аргументу з другого, додає 10 і приймає модуль 10.

Я думаю, що це перший раз, коли я написав a printfз чотирма %s і без коми (кома знаходиться в #define.)

Java - 203 байти

Тільки тому, що має бути запис на Java, я побачив приємну можливість дати шанс на цей гольф-коду шанс (перша публікація коли-небудь).

class M{public static void main(String[] a){String r="";for(int i=0;i<4;i++){int l=Byte.valueOf(a[i].substring(1));int f=Byte.valueOf(a[i].substring(0,1));r+=(l-f<0)?l-f+10:l-f;}System.out.print(r);}}

Якщо є місце для деяких вдосконалень, я радий дізнатися про них ;-)

Луа - 46 символів

while''do a,b=io.read(1,1,1)print((b-a)%10)end

Читає три символи одночасно (надайте мені малу милість введення пробілу в кінці), і ось хоча б a і b є рядком-y ... ba МАГІЧНОГО дозволяє їм зачати здорову дитину цілим числом. Чи перевіряє обгортання під час друку.

JavaScript ES6 - 53 43 байти

f=n=>n.replace(/.. ?/g,a=>(1+a[1]-a[0])%10)

Досить проста функція, використовує регулярні вирази для отримання чисел. Спробуйте це на веб-сайті http://jsfiddle.net/efc93986/1/ . Якщо функції заборонені, автономна програма на 52 байти:

alert(prompt().replace(/.. ?/g,a=>(1+a[1]-a[0])%10))

Оскільки ES6 наразі працює лише на Firefox, наступний код працює у будь-якому сучасному веб-переглядачі на 70 байт:

alert(prompt().replace(/.. ?/g,function(a){return(1+a[1]-a[0])%10}))

Python 2 - 33 байти

for i in input():print(i-i/10)%10

Приймає введення користувачем обмежених комами. Напр. Введення:

29,26, 31, 88

Вихід:

7
4
8
0

Якщо вихід потрібен, щоб точно відповідати прикладу, він значно довший. 47 байт:

print"%d"*4%tuple((i-i/10)%10 for i in input())

APL, 14

10|{--/⍎¨⍕⍵}¨⎕

Пояснення
⎕ приймає дані з екрана. Значення, розділені пробілом, аналізуються як масив.
{...}¨для кожного числа подайте його у функцію.
⍎¨⍕⍵бере аргумент, створює масив його цифр.
--/обчислює одиниці мінус десятки.
10|мод 10.

J - 20 15

Невергова форма (як заява замість визначення функції) на 5 символів коротша:

10|-~/|:10#.inv

Форма дієслова, який є приємним поїздом :

10|[:-~/[:|:10#.inv]

Це дієслово, що використовується на прикладі входів:

   10|-~/|:10#.inv 57 23 99 45
2 1 0 1
   10|-~/|:10#.inv 25 78 63 15
3 1 7 4

rotd =: 10|[:-~/[:|:10#.inv] NB. verb form

   rotd 25 78 63 15
3 1 7 4
   rotd 57 23 99 45
2 1 0 1

Haskell 60 58

main=interact$show.map((\x->mod(x-x`div`10)10).read).words

Однозначні цифри, справжня немезида в гольф Хаскелл.

Perl: 38 40

print abs($_-int$_/10)%10for split" ",<>

Вихід:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Рубін, 35 байт

$*.map{|n|a,b=n.bytes;$><<(b-a)%10}

Пояснення

Введення приймається як аргументи командного рядка. String#bytesповертає масив цілих чисел (коди символів ASCII). Важлива лише різниця між останнім та першим символьними кодами, а не самі цілі особи.

C # & LinqPad: 104

Util.ReadLine<string>("").Split(' ').Select(s =>(s[1]-s[0])).Aggregate("",(r,a)=>r+(a<0?10+a:a)).Dump();

C ++ 118

int main()
{
int a,b,c;
for(int i=0; i<4; i++)
{
cin>>a;
b=a/10;
a=a%10;
c=a-b;
if(c<0)c+=10;
cout<<c;
}
}

PHP - 90 символів

Думав, я спробую спробувати гольф з кодом, так ось ось, моя перша спроба - напевно, можна більше пограти в гольф.

<?php $a=array(57,23,99,45);foreach($a as$b){echo abs(substr($b,0,1)-substr($b,1,1)%10);}

58 персонажів (люб'язно Ісмаїл Мігель)

for($i=0,$a=$_GET[n];$i<8;)echo abs($a[$i++]-$a[$i++]);

Доступ до файлу за допомогою

file.php?n=57239945

Пітон 3, 60

for x in input().split():print(-eval('-'.join(x))%10,end='')

Введення та вихід точно так, як зазначено, хоча він не друкує контурний новий рядок. Тут є два цікавих хитрощі: 1) заміна двох дзвінків на int()один дзвінок на eval(), і 2) використання " join()get" a-b, а потім відмова від цього на b-aнеобхідне. На щастя, модуль оператора Python дає позитивні значення, навіть якщо перший аргумент є негативним!