Gdy liczba jest wyświetlana na kalkulatorze, można rozważyć, jak wyglądałyby różne przekształcenia tej liczby. Na przykład na siedmiosegmentowym wyświetlaczu 2 pokazuje się tak:

A po odwróceniu w poziomie wygląda to tak:

W związku z tym odbicie lustrzane 2 wynosi 5.

Zadaniem w tym wyzwaniu jest pobranie liczby jednocyfrowej i zwrócenie liczby, która jest jej odbiciem lustrzanym (jeśli to możliwe). Jeśli jego odbicie lustrzane nie wygląda jak liczba, zwróć liczbę obróconą o 180 stopni (jeśli to możliwe). Jeśli nie ma żadnego z tych przypadków, zwróć -1.

Oto pełna lista wejść i wyjść, które Twój program musi obsłużyć:

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

Jako wyzwanie do gry w golfa wygrywa najkrótszy kod!

Haskell - 43 31

43 znaków bez niczego fantazyjnego.

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

Ograniczono go do 31 znaków, czyniąc z niego funkcję częściową.

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

GolfScript, 15 14

Przeczytałem specyfikację ponownie i stwierdziłem, że dane wejściowe muszą być ciągiem.

"0.5..29.86"\?

Biegać:

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

Stara wersja (z wprowadzoną liczbą całkowitą):

[0.5..2 9.8 6]?

Nowszy (14 bajtów) jest nieco zainspirowany odpowiedzią CJam autorstwa 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 bajtów

q25691347`"5296W"er~

Wypróbuj online.

Wynik

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

Jak to działa

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 bajtów

Wydaje mi się, że komentatorzy mają rację, chociaż Befunge jest linią 2d języka, jest trochę inna. Jednak w tej chwili komentatorzy mają rację.

&1g01g-.  
! &  #* )'

Kroki:

&

Odczytuje dane wejściowe jako wartość liczbową x i wypycha je na stos.

1g

Pobiera wartość znaku c (tak jak „!” = 33 lub „*” = 42. Pusta komórka = 32) w pozycji x, 1.

01g-.

Odczytuje wartość znaku komórki 0,1 (33), odejmuje ją od c i wysyła jako wartość liczbową.

Java - 49

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

Tutaj 0x790a300601jest wartość wypełniona pożądanymi wyjściami, z jedną dodaną, aby były dodatnie. Wartości są przechowywane w wartościach liczbowych w obrębie wartości, więc aby je wyskoczyć, konieczne jest trochę przesunięcia i maskowania.

Java - 100 (opcja zabawy)

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

Nie jest to najmniejsza opcja, ale trochę zabawy. Znalazłem losowe ziarno, które generuje prawidłowe wartości, gdy jest wywoływane X razy (gdzie 0> = X <= 9).

JavaScript (ECMAScript 6) 25

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

JavaScript (ECMAScript 5) 43

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

AKTUALIZACJA: edc65 zasugerował znacznie lepszą technikę. szczoteczka do zębów sugeruje znacznie lepszy język. W tym momencie moim podstawowym wkładem jest debugowanie i gumowanie.

uderzenie 29

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

na przykład

$ 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

Kona - 29

Ta funkcja zwraca element xz tablicy0 -1 5...

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

Przykłady:

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

JavaScript 36 37 41

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

jako funkcja ES6 - 27:

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

Sclipting, 11 znaków

걄럣뉥밈결⓷方分결剩貶

Wreszcie znalazłem komputer z systemem Windows z zainstalowanym programem Visual Studio, aby zbudować jego interpreter. I z łatwością pokonał mój kod GolfScript.

Czyta 18453063256\11\?/11%(w GolfScript.

J - 28 27 bajtów

Wiesz co lubię? Prostota (28 bajtów). Zauważ, że w J _1jest ujemny (-1).

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

Dodaj trochę złożoności, a masz 27 bajtów.

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

Przykład:

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

CJam - 14

Wersja wejścia / wyjścia:

"0 5  29 86"q#

Wersja stosu (zakłada, że ​​numer znajduje się na stosie):

[0W5WWY9W8 6]=

Wypróbuj je na http://cjam.aditsu.net/

Perl, 27 26

Liczba obejmuje pflagę

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

Stosowanie:

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

Zaraz, czy Perl właśnie pokonał J? :)

Cudowne 34 bajty

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

To nie jest najkrótsze rozwiązanie, ale też nie jest najdłuższe.

Jak to działa

}0spawnuje marmur reprezentujący pierwszą linię poleceń. Ten marmur upuszcza następny cel na =6komórkę. =6jest komórką porównawczą, popycha każdy marmur o wartości 6 w dół, a wszystkie inne w prawo. Ten zestaw komórek porównawczych przesuwa kulki w prawo, aż osiągną pożądaną wartość. 0 i 8 po prostu spadają i są drukowane, gdy spadną z dołu planszy, 6 i 2, a 9 i 5 najpierw dodają 3 do nich, odpowiednio odejmowane. Jeśli marmur nie równa żadnej z pożądanych wartości, wyląduje na ?0komórki, który zamieni każdy marmuru w 0 marmuru ¹ . Ten marmur następnie ulega zmniejszeniu i spada z planszy.

_{¹?n marmur marmurem dowolnego technicznie obraca się marmuru z zakresu od 0 do n. Ma to fajny efekt uboczny, który ?0zmienia wszystko w 0.}

MATLAB - 35

Chciałbym zawinąć to w funkcję z njako jedynym parametrem.

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

35 znaków.

ECMAScript 6, 24

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

Przy normalnym JavaScript byłoby to 33:

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

TI-BASIC, 24 22

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

To koduje możliwe dane wyjściowe w tabeli odnośników przechowywanej jako liczba zmiennoprzecinkowa base-11; (N + 1) dziesiąta cyfra podstawowa po wyciągnięciu kropki dziesiętnej z tabeli w celu uzyskania wartości cyfry odwróconej. W bazie 11 liczba ta wynosi.106003A097 , a cyfry tego mniejszego są dokładnie 0,-1,5,-1,-1,2,9,-1,8,6.

Sztuczka edc65 polegająca na odjęciu jednego w przypadku 6 prowadzi do tego 24-bajtowego rozwiązania, w którym ⑩^(jest jeden jednobajtowy token:

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

Podejście łańcuchowe ma 29 bajtów:

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

Podejście tablicowe (które również Ypnpyn) ma 30 bajtów, przy założeniu, że liczba jest przechowywana w X:

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

24 -> 22: Usunięto dwie dodatkowe cyfry precyzji w stałej magicznej.

C - 47 bajtów [było 48 bajtów]

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

Aby dodać We / Wy (które inne odpowiedzi nie zawsze) dla 86 bajtów:

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

Java, 58 59

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

LUB

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

JavaScript 42 37

Uruchom go na konsoli przeglądarki

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

C - 117 108 106 77 76 bajtów

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

Nie najlepszy język do gry w golfa, ale cóż ...
Kompiluj się gcc progname.c -o progname. (Zignoruj ​​ostrzeżenia lub dodaj -include stdio.hdo polecenia kompilacji).

Zastosowanie: ./progname <numer>

EDYTOWAĆ

Zgodnie z sugestią @ bebe, oto przykład, który bierze dane wejściowe z STDIN zamiast:

C - 68 51 bajtów

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

J (24, funkcja)

(panel wprowadzania nie gra ładnie. Wklej poniższy tekst do interpretera Pythona, a moja odpowiedź zostanie ujawniona :)

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 bajtów (niekonkurujące)

0®5®®Y9®8 6¹@

Wypróbuj online!

-3 dzięki Emignie .

Wyjaśnienie:

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 bajtów

Dzięki Jörg Hülsermann

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

Wypróbuj online!

starsza wersja

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

Wypróbuj online!

Galaretka , 14 bajtów (niekonkurencyjna)

ị“-5--29-860”V

Wypróbuj online!

Wyjaśnienie:

ị“-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.