Приведен стандартный кодовый замок, как на картинке. Чтобы разблокировать его, выровняйте 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

Golfscript (14 13 )

Попробуйте онлайн здесь

Это почти то же самое, что и решение Оптимизатора , но на другом языке. Трудно подойти к нему по-другому, потому что проблема довольно проста , поэтому связь, безусловно, идет к Оптимизатору, чья запись была раньше.

~]{.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);}

Если ввод должен быть введен в стандартный ввод

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

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

Экономия благодаря различным комментариям ниже, а также использованию putchar вместо printf

Python 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.

Я думаю, что это первый раз, когда я написал printfс 4 %с и без запятой (запятая в #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);}}

Если есть место для некоторых улучшений, я буду рад узнать о них ;-)

Lua - 46 символов

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

Читает по три символа за раз (даю мне небольшую милость ввода пробела в конце), и даже если a и b являются string-y ... ba MAGICALUALY позволяет им представить целое число здорового ребенка. Проверяет ли обтекание во время печати.

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

Односимвольные цифры, настоящая враг в игре в Haskell.

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 символов

Я подумал, что я бы попробовал Code Golf, поэтому вот моя первая попытка - возможно, больше играть в гольф.

<?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

Python 3, 60

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

Ввод и вывод точно так, как указано, хотя он не печатает завершающий перевод строки. Здесь есть два интересных трюка: 1) замена двух вызовов на int()один вызов eval(), и 2) использование join()для получения a-b, а затем отрицание его при b-aнеобходимости. К счастью, оператор Python по модулю дает положительные значения, даже если первый аргумент отрицательный!