Когда число отображается на калькуляторе, можно рассмотреть, как будут выглядеть различные преобразования этого числа. Например, на семисегментном дисплее 2 отображается так:

И при переворачивании по горизонтали это выглядит так:

Таким образом, зеркальное отображение 2 равно 5.

Задача в этой задаче состоит в том, чтобы взять однозначное число и вернуть число, которое является его зеркальным отображением (если это возможно). Если его зеркальное отображение не похоже на число, верните число, повернутое на 180 градусов (если это возможно). Если ни один из этих случаев не верен, верните -1.

Вот полный список входов и выходов, которые ваша программа должна обработать:

Input   Output
0       0
1       -1
2       5
3       -1
4       -1
5       2
6       9
7       -1
8       8
9       6

Как вызов коду для игры в гольф , выигрывает самый короткий код!

Хаскелл - 43 31

43 персонажа без всяких фантазий.

f 0=0
f 8=8
f 2=5
f 5=2
f 6=9
f 9=6
f _= -1

Получил до 31 символа, сделав его частичной функцией.

f=([0,-1,5,-1,-1,2,9,-1,8,6]!!)

GolfScript, 15 14

Я снова прочитал спецификацию и обнаружил, что ввод должен быть строкой.

"0.5..29.86"\?

Бежать:

echo -n 2 | ruby golfscript.rb a.gs

Старая версия (которая имеет целочисленный ввод):

[0.5..2 9.8 6]?

Более новый (14 байт) несколько вдохновлен ответом CJam от aditsu .

PowerShell - 27

'0 5  29 86'.indexof($args)

Python 2.x - 28

'015..29.86'.find(`input()`)

JavaScript 37 36

alert("0_5__29_86".search(prompt()))

CJam, 20 байтов

q25691347`"5296W"er~

Попробуйте онлайн.

Выход

$ for i in {0..9}; { cjam <(echo 'q25691347`"5296W"er~') <<< $i; echo; }
0
-1
5
-1
-1
2
9
-1
8
6

Как это устроено

q          " Read from STDIN. The leaves a string on the stack.            ";
25691347`  " Push the string '25691347'.                                   ";
"5296W"    " Push the string '5296W'.                                      ";
er         " Perform character transliteration.                            ";
~          " Evaluate the result. Examples: '2' returns 2, 'W' returns -1. ";

BEFUNGE 93 - 18 14 20 байт

Я думаю, что комментаторы правы, хотя Befunge, будучи двумерным языком, немного отличается. Тем не менее, в этот момент комментаторы правы.

&1g01g-.  
! &  #* )'

шаги:

&

Считывает ввод как числовое значение x и помещает его в стек.

1g

Получает значение символа c (например, '!' = 33 или '*' = 42. Пустая ячейка = 32) в позиции x, 1.

01g-.

Считывает символьное значение ячейки 0,1 (33), вычитает его из c и выводит его как числовое значение.

Ява - 49

long f(int a){return(0x790a300601L>>(a*4)&15)-1;}

Здесь 0x790a300601- значение, заполненное желаемыми результатами, с одним добавленным, чтобы сделать их положительными. Значения хранятся в клочьях внутри значения, поэтому для их выталкивания требуется немного смещения и маскировки.

Java - 100 (веселый вариант)

int f(int a){Random r=new Random(0x2000A2F47D6Fl);int b=0;for(;a>=0;a--)b=r.nextInt(11)-1;
return b;}

Не самый маленький вариант, но немного веселья. Я нашел случайное начальное число, которое выдает правильные значения при вызове X раз (где 0> = X <= 9).

JavaScript (ECMAScript 6) 25

x=>'1060039097'[x]-(x!=6)

JavaScript (ECMAScript 5) 43

function f(x){return'1060039097'[x]-(x!=6)}

ОБНОВЛЕНИЕ: edc65 предложил гораздо лучшую технику. зубная щетка предложила намного лучший язык. На данный момент мой основной вклад отладки и догадки.

Баш 29

tr 1-9 x5xx29x86|sed s/x/-1/g

например

$ echo 0 1 2 3 4 5 6 7 8 9 | tr 1-9 x5xx29x86|sed s/x/-1/g
0 -1 5 -1 -1 2 9 -1 8 6

Кона - 29

Эта функция возвращает элемент xиз массива0 -1 5...

f:{0 -1 5 -1 -1 2 9 -1 8 6@x}

Примеры:

> f 2
  5
> f 5
  2
> f 8
  8

JavaScript 36 37 41

alert('0x'+'65b558f5ec'[prompt()]-6)

как функция ES6 - 27:

f=v=>'0x'+'65b558f5ec'[v]-6

Скриптинг, 11 символов

걄럣뉥밈결⓷方分결剩貶

Наконец, я нашел компьютер Windows с установленной Visual Studio для создания интерпретатора. И это легко победило мой код GolfScript.

Он читает 18453063256\11\?/11%(в GolfScript.

J - 28 27 байт

Вы знаете, что мне нравится? Простота (28 байт). Обратите внимание, что в J _1отрицательный (-1).

f=:{&0 _1 5 _1 _1 2 9 _1 8 6

Добавьте немного сложности, и у вас есть 27 байтов.

f=:-{&0 2 _3 4 5 3 _3 8 0 3

Пример:

   f 2
5
   f 6
9
   f 5
2
...

CJam - 14

Версия ввода / вывода:

"0 5  29 86"q#

Версия стека (предполагается, что число находится в стеке):

[0W5WWY9W8 6]=

Попробуйте их на http://cjam.aditsu.net/

Perl, 27 26

Граф включает в себя p флаг

y/2569/5296/,s/[1347]/-1/

Использование:

$ echo 7 | perl -pe y/2569/5296/,s/[1347]/-1/
-1

Подождите, Perl только что победил J? :)

Marbelous 34 байта

}0
=6=9=2=5=0=8?0
+3-3+3-3....--

Это не самое короткое решение, но и не самое длинное.

Как это устроено

}0порождает мрамор, представляющий первый ввод командной строки. Этот мрамор падает на следующий тик, на=6 клетку. =6это ячейка сравнения, она выталкивает любой мрамор со значением 6 вниз, а все остальные вправо. Эта цепочка ячеек сравнения толкает шарики вправо до тех пор, пока они не достигнут желаемого значения. 0 и 8 просто проваливаются и печатаются, когда они падают с нижней части доски, 6 и 2, а 9 и 5 сначала прибавляют к ним 3, вычитая из них соответственно. Если мрамор не равен ни одному из желаемых значений, он попадает в ?0ячейку, которая превращает любой мрамор в 0 мрамора ¹ . Этот мрамор затем уменьшается и падает с доски.

_{¹ А?n мрамор технически превращает любой мрамор в мраморе между 0 и п. Это имеет приятный побочный эффект, который ?0превращает все в 0.}

MATLAB - 35

Я бы обернул это в функцию с n единственным параметром.

f=[0,-1,5,-1,-1,2,9,-1,8,6];
f(n+1)

35 символов.

ECMAScript 6, 24

f=x=>~-++'0n5nn29n86'[x]

При использовании обычного JavaScript это было бы 33:

alert(~-++'0n5nn29n86'[prompt()])

TI-BASIC, 24 22

-1+int(11fPart(11^Ans.0954191904

Это кодирует возможные выходные данные в справочной таблице, хранящейся как число с плавающей запятой base-11; (N + 1) -я основа-11 после десятичной точки извлекается из таблицы, чтобы получить значение перевернутой цифры. В базе 11 число есть .106003A097, а цифры этого меньше единицы точно0,-1,5,-1,-1,2,9,-1,8,6 .

Трюк edc65 по вычитанию единицы в случае 6 приводит к этому 24-байтовому решению, где ⑩^(есть один однобайтовый токен:

-(Ans≠6)+int(10fPart(.1060039097⑩^(Ans

Строковый подход составляет 29 байтов:

-(Ans≠6)+expr(inString("1060039097",Ans+1,1

Подход массива (который также использовал Ypnpyn) составляет 30 байтов, при условии, что число хранится в X:

{1,0,6,0,0,3,10,0,9,7}-1:Ans(X+1

24 -> 22: убраны две лишние цифры точности в магической константе.

C - 47 байт [было 48 байт]

f(i){return(int[]){1,0,6,0,0,3,10,0,9,7}[i]-1;}

Чтобы добавить ввод / вывод (что не всегда выполняются другие ответы) для 86 байтов:

main(i){i=(int[]){1,0,6,0,0,3,10,0,9,7}[getchar()-48]-1;i<0?puts("-1"):putchar(i+48);}

Python - 34

f=lambda n:ord("A@F@@CJ@IG"[n])-65

Ява, 58 59

int f(int i){int[]a={1,0,6,0,0,3,10,0,9,7};return a[i]-1;}

ИЛИ

int f(int i){return new int[]{1,0,6,0,0,3,10,0,9,7}[i]-1;}

JavaScript 42 37

Запустите его на консоли вашего браузера

alert(~-[1,,6,,,3,10,,9,7][prompt()])

C - 117 108 106 77 76 байтов

a[]={1,0,6,0,0,3,10,0,9,7};main(int c,char**b){printf("%d",a[*b[1]-48]-1);}

Не лучший язык для игры в гольф, ну да ладно ...
Скомпилируйте gcc progname.c -o progname. (Игнорировать предупреждения или добавить-include stdio.h в команду компиляции.)

Использование: ./progname <номер>

РЕДАКТИРОВАТЬ

В соответствии с предложением @ bebe, вот пример, который принимает входные данные от STDIN:

C - 68 51 байт

main(){printf("%d","106003:097"[getchar()-48]-49);}

J (24, функция)

(Панель ввода не играет хорошо. Вставьте следующее в интерпретатор Python, и мой ответ будет раскрыт :)

print "f=:{&(_3+3 u:'^C^B^B^E^L^B^K\t')"

Clojure - 36

#(case % 2 5 5 2 6 9 9 6 0 0 8 8 -1)

05AB1E , 13 байт (не конкурирующих)

0®5®®Y9®8 6¹@

Попробуйте онлайн!

-3 спасибо Эмигне .

Объяснение:

0®5®®Y9®8 6¹@ Takes an integer from STDIN.
0®5®®Y9®8 6   Push 0, r=-1, 5, r=-1, r=-1, Y=2, 9, r=-1, 8, 6.
           ¹  Push first input item.
            @ Pop and push the 0-indexed stack item at the respective index.

PHP , 48 39 байт

Благодаря Йорг Хюльсерманн

<?=[0,-1,5,-1,-1,2,9,-1,8,6][$argv[1]];

Попробуйте онлайн!

Старые версии

$m=-1;echo [0,$m,5,$m,$m,2,9,$m,8,6][$argv[1]];

Попробуйте онлайн!

Желе , 14 байт (не конкурирует)

ị“-5--29-860”V

Попробуйте онлайн!

Объяснение:

ị“-5--29-860”V Takes argument as an integer.
 “-5--29-860”  "-5--29-860" (1-indexed string).
ị              Return the xth char of the string above (y) (x=argument).
             V Eval. - is the same as -1.