Коли на калькуляторі відображається число, можна врахувати, як виглядатимуть різні перетворення цього числа. Наприклад, на семисегментному дисплеї 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. ";

БЕФУНГ 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/

Перл, 27 26

Граф включає pпрапор

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

Використання:

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

Зачекайте, Perl просто побив J? :)

Марбельний 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.}

МАТЛАБ - 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

Це кодує можливі виходи в таблиці пошуку, що зберігається як номер з плаваючою точкою базового 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);}

Пітон - 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()])

С - 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 <номер>

EDIT

Відповідно до пропозиції @ 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.