Khi một số được hiển thị trên một máy tính, bạn có thể xem xét các biến đổi khác nhau của số đó sẽ như thế nào. Ví dụ: trên màn hình bảy đoạn, 2 được hiển thị như sau:

Và khi lật theo chiều ngang, nó trông như thế này:

Như vậy, hình ảnh phản chiếu của 2 là 5.

Nhiệm vụ trong thử thách này là lấy một số có một chữ số và trả về số đó là hình ảnh phản chiếu của nó (nếu có thể). Nếu hình ảnh phản chiếu của nó không giống như một số, hãy trả về số được xoay 180 độ (nếu có thể). Nếu cả hai trường hợp này đều không, hãy trả về -1.

Dưới đây là danh sách đầy đủ các đầu vào và đầu ra mà chương trình của bạn cần xử lý:

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

Như một thử thách chơi gôn , mã ngắn nhất sẽ thắng!

Haskell - 43 31

43 ký tự mà không có gì lạ mắt.

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

Giảm xuống còn 31 ký tự bằng cách biến nó thành một phần chức năng.

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

GolfScript, 15 14

Tôi đọc lại thông số kỹ thuật và thấy rằng đầu vào phải là một chuỗi.

"0.5..29.86"\?

Chạy:

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

Phiên bản cũ (có đầu vào số nguyên):

[0.5..2 9.8 6]?

Cái mới hơn (14 byte) được lấy cảm hứng từ câu trả lời của CJam bởi aditsu .

PowerShell - 27

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

Con trăn 2.x - 28

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

JavaScript 37 36

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

CJam, 20 byte

q25691347`"5296W"er~

Hãy thử trực tuyến.

Đầu ra

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

Làm thế nào nó hoạt động

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 byte

Tôi đoán các nhà bình luận là đúng, mặc dù Befunge là một dòng ngôn ngữ 2d thì hơi khác. Tuy nhiên, ngay lập tức, các nhà bình luận là đúng.

&1g01g-.  
! &  #* )'

Các bước:

&

Đọc đầu vào dưới dạng giá trị số x và đẩy nó lên ngăn xếp.

1g

Nhận giá trị ký tự c (vì vậy, như '!' = 33 hoặc '*' = 42. Một ô trống = 32) tại vị trí x, 1.

01g-.

Đọc giá trị ký tự của ô 0,1 (33), trừ nó khỏi c và xuất ra dưới dạng giá trị số.

Java - 49

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

Ở đây, 0x790a300601là một giá trị được nhồi với các đầu ra mong muốn, với một giá trị được thêm vào để làm cho chúng dương. Các giá trị được lưu trữ trong các nibble trong giá trị, do đó, một chút dịch chuyển và mặt nạ được yêu cầu để bật chúng ra.

Java - 100 (tùy chọn thú vị)

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

Không phải là lựa chọn nhỏ nhất, nhưng một chút thú vị. Tôi tìm thấy một hạt giống ngẫu nhiên tạo ra các giá trị chính xác khi được gọi là X lần (trong đó 0> = X <= 9).

JavaScript (ECMAScript 6) 25

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

JavaScript (Bản thảo 5) 43

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

CẬP NHẬT: edc65 đã đề xuất một kỹ thuật tốt hơn nhiều. bàn chải đánh răng đã gợi ý một ngôn ngữ tốt hơn nhiều. Tại thời điểm này, đóng góp chính của tôi là gỡ lỗi và tính toán.

bash 29

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

ví dụ

$ 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

Hàm này trả về phần tử xtừ mảng0 -1 5...

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

Ví dụ:

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

JavaScript 36 37 41

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

như chức năng ES6 - 27:

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

Sclipting, 11 ký tự

걄럣뉥밈결⓷方分결剩貶

Cuối cùng tôi đã tìm thấy một máy tính Windows có cài đặt Visual Studio để xây dựng trình thông dịch của nó. Và nó đã đánh bại mã GolfScript của tôi một cách dễ dàng.

Nó đọc 18453063256\11\?/11%(trong GolfScript.

J - 28 27 byte

Bạn biết những gì tôi thích? Đơn giản (28 byte). Lưu ý rằng trong J, _1là số âm (-1).

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

Thêm một chút phức tạp và bạn có 27 byte.

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

Thí dụ:

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

CJam - 14

Phiên bản đầu vào / đầu ra:

"0 5  29 86"q#

Phiên bản ngăn xếp (giả sử số nằm trên ngăn xếp):

[0W5WWY9W8 6]=

Hãy thử chúng tại http://cjam.aditsu.net/

Perl, 27 26

Đếm bao gồm pcờ

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

Sử dụng:

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

Đợi đã, Perl vừa đánh J? :)

34 byte đáng tin cậy

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

Đây không phải là giải pháp ngắn nhất, nhưng cũng không phải là giải pháp dài nhất.

Làm thế nào nó hoạt động

}0sinh ra một viên bi đại diện cho đầu vào dòng lệnh đầu tiên. Đá cẩm thạch này rơi xuống đánh dấu tiếp theo, vào =6tế bào.=6là một ô so sánh, nó đẩy bất kỳ viên bi nào có giá trị 6 xuống và tất cả các ô khác ở bên phải. Dòng tế bào so sánh này đẩy các viên bi phải cho đến khi chúng bằng một giá trị mong muốn. 0 và 8 chỉ rơi qua và được in khi tehy rơi xuống dưới cùng của bảng, 6 và 2, và 9 và 5 trước tiên được thêm 3 vào chúng, trừ đi tương ứng với chúng. Nếu một viên bi không bằng bất kỳ giá trị mong muốn nào, nó sẽ nằm trên ?0ô, biến bất kỳ viên bi nào thành 0 viên bi ¹ . Đá cẩm thạch này sau đó bị giảm và rơi ra khỏi bảng.

_{¹ Một viên ?nbi về mặt kỹ thuật biến bất kỳ viên bi nào thành một viên bi giữa 0 và n. Điều này có tác dụng phụ tốt đẹp ?0biến bất cứ điều gì thành 0.}

MATLAB - 35

Tôi sẽ bọc cái này trong một hàm với ntham số duy nhất.

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

35 ký tự.

Bản thảo 6, 24

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

Sử dụng JavaScript bình thường sẽ là 33:

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

TI-BASIC, 24 22

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

Điều này mã hóa các đầu ra có thể có trong bảng tra cứu được lưu dưới dạng số dấu phẩy động cơ sở 11; chữ số cơ sở (N + 1) sau chữ số thập phân được trích xuất từ ​​bảng để lấy giá trị của chữ số ngược. Trong cơ sở 11 số là .106003A097, và các chữ số của số này ít hơn là chính xác 0,-1,5,-1,-1,2,9,-1,8,6.

Thủ thuật của edc65 là trừ đi một trong trường hợp 6 dẫn đến giải pháp 24 byte này, trong đó ⑩^(là một mã thông báo một byte duy nhất:

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

Cách tiếp cận chuỗi là 29 byte:

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

Cách tiếp cận mảng (mà Ypnpyn cũng đã lấy) là 30 byte, giả sử số này được lưu trữ trong X:

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

24 -> 22: Loại bỏ hai chữ số chính xác thêm trong hằng số ma thuật.

C - 47 byte [là 48 byte]

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

Để thêm I / O (mà các câu trả lời khác không phải lúc nào cũng có) cho 86 byte:

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

Con trăn - 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;}

HOẶC LÀ

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

JavaScript 42 37

Chạy nó trên bảng điều khiển của trình duyệt của bạn

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

C - 117 108 106 77 76 byte

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

Không phải ngôn ngữ tốt nhất để chơi gôn, nhưng ồ ...
Biên dịch với gcc progname.c -o progname. (Bỏ qua các cảnh báo hoặc thêm -include stdio.hvào lệnh biên dịch.)

Cách sử dụng: ./progname <number>

CHỈNH SỬA

Theo đề xuất của @ @ bebe, đây là một ví dụ lấy đầu vào từ STDIN thay thế:

C - 68 51 byte

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

J (24, chức năng)

(bảng điều khiển đầu vào không hoạt động tốt. Dán phần sau vào trình thông dịch python và câu trả lời của tôi sẽ được tiết lộ :)

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 byte (không cạnh tranh)

0®5®®Y9®8 6¹@

Hãy thử trực tuyến!

-3 cảm ơn Emigna .

Giải trình:

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 byte

Cảm ơn Jörg Hülsermann

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

Hãy thử trực tuyến!

Các phiên bản cũ hơn

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

Hãy thử trực tuyến!

Jelly , 14 byte (không cạnh tranh)

ị“-5--29-860”V

Hãy thử trực tuyến!

Giải trình:

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