Masalah diadaptasi dari buku Fortran 77 oleh Donald M. Monro

pengantar

Mesin plot digital banyak digunakan untuk menghasilkan berbagai bentuk gambar, grafik dan hasil foto lainnya. Sebagian besar mesin tersebut dapat memindahkan pena mereka hanya ke arah tertentu, biasanya sebagai langkah tunggal dalam arah X dan Y atau keduanya. Mesin khas akan bergerak di salah satu dari delapan arah yang ditunjukkan pada Gambar. 1:

^{Fig. 1}

Tantangan

Tulis program tanpa fungsi trigonometri yang mengambil angka dari 0 hingga 7 (inklusif) sebagai input dan output koordinat titik akhir yang sesuai pada Gambar. 1.

Output harus berupa array atau daftar dengan dua elemen (yaitu (1, 0)atau [0,-1])

Daftar I / O

0 (1, 0)
1 (1, 1)
2 (0, 1)
3 (-1, 1)
4 (-1, 0)
5 (-1, -1)
6 (0, -1)
7 (1, -1)

Kemenangan

Kode terpendek dalam byte menang

Jelly , 8 byte

Hı*µḞ,ĊṠ

Menggunakan aritmatika kompleks tampaknya diizinkan.

Cobalah online!

Bagaimana itu bekerja

Hı*µḞ,ĊṠ  Main link. Argument: n

H         Halve; yield n/2.
 ı*       Yield i^(n/2), where i is the imaginary unit. Since i = e^(iπ/2), this
          computes e^(inπ/4) = cos(nπ/4) + i×sin(nπ/4) = x + iy, where (x, y) is
          the coordinate pair of (nπ/4)/(2π) = n/8 turns along the unit circle.
   µ      Begin a new chain with argument z = x + iy.
    Ḟ     Real part of z; yield x.
      Ċ   Imaginary part of z; yield y.
     ,    Pair, yielding (x, y).
       Ṡ  Apply the sign function to x and y.

Python 2, 29 byte

lambda n:1j**(n/2)*(1+n%2*1j)

Mengembalikan koordinat sebagai bilangan kompleks.

Mathematica, 24 byte

Sign@{12-8#+#^2,4#-#^2}&

Berfungsi murni, menggunakan Signdan mengetahui ke mana parabola tertentu pergi.

C, 103 86 74 73 70 byte

Terima kasih kepada @orlp karena telah menghemat 12 15 byte!

f(n){n="biM1*#?["[n]/7;printf("%c%d %d",n&8?32:45,n/4&1,n%2*~-(n&2));}

Cobalah online!

JavaScript (ES6), 41 36 byte

r=>[1-(6800>>r*2&3),(425>>r*2&3)-1]

Menggunakan dua tabel pencarian sederhana yang mengkodekan 8 entri di basis 4 setelah menambahkan satu ke setiap "digit". Versi alternatif, menggunakan tabel pencarian yang lebih sederhana:

r=>["22100012"[r]-1,"12221000"[r]-1]

Versi lama (4 byte lebih pendek berkat @Neil):

r=>[r>2&r<6?-1:r<2|r>6,r>4?-1:r%4&&1]

Pendekatan naif menggunakan beberapa perhitungan sederhana untuk menemukan koordinat X dan Y secara terpisah ...

TI-Basic, 23 byte

Prompt X
e^(i(pi)X/4
round({real(Ans),imag(Ans)},0

Asumsikan kalkulator Anda dalam mode radian; jika itu perlu dalam program, maka itu adalah 25 byte.

Jelly , 13 12 byte

Saya masih cukup yakin ada yang lebih pendek, tetapi saya belum menemukan apa pun, jadi saya pikir akan memposting ini

+2,ị6400b3¤’

Cobalah online! atau lihat test suite

Bagaimana?

+2,ị6400b3¤’ - Main link: n                        e.g. 7
+2           - n+2                                      9
  ,          - paired with n: [n+2,n]                   [9,7]
          ¤  - nilad followed by link(s) as a nilad      9th         7th
    6400     -     6400                                  v           v
        b3   -     to base 3: [2,2,2,1,0,0,0,1]         [2,2,2,1,0,0,0,1]
   ị         - index into (1-indexed and modular)       [2,0]
           ’ - decrement (vectorises)                   [1,-1]

Sebuah metode alternatif , juga 12 byte :

_/,+/Ṡ  - Link 1: get next coordinate: current coordinate (list) e.g. [-1,-1]
_/      - reduce by subtraction                                       0
   +/   - reduce by addition                                         -2
  ,     - pair                                                        [0,-2]
     Ṡ  - sign (vectorises)                                           [0,-1]

2BÇ⁸¡ - Main link: n
2B    - 2 in binary: [1,0]
    ¡ - repeat
   ⁸  - left argument (n) times:
  Ç   -     last link (1) as a monad

C, 66 byte

f(n){printf("%d %d\n",(n-2)%4?n>2&n<6?-1:1:0,(n-4)%4?n>4?-1:1:0);}

kode uji

main(i)
{for(i=0;i<8;++i) f(i);}

hasil

1 0
1 1
0 1
-1 1
-1 0
-1 -1
0 -1
1 -1

C, 56 byte

d(n){printf("%d,%d",n+2&3?n+2&4?-1:1:0,n&3?n&4?-1:1:0);}

Pencarian biner sederhana dilakukan dua kali. Pencarian pertama dilakukan pada n digeser oleh 2.

Output online pada Ideone.

C, 53 byte

r;p(n){r?0:p(r=n+2);r=!printf("%d ",n&3?n&4?-1:1:0);}

Output tanpa koma dapat dipadatkan bahkan lebih menggunakan panggilan rekursif.

Output online pada Ideone.