Vấn đề được chuyển thể từ cuốn sách Fortran 77 của Donald M. Monro

Giới thiệu

Máy vẽ kỹ thuật số được sử dụng rộng rãi để tạo ra các dạng bản vẽ, đồ thị và các kết quả hình ảnh khác nhau. Hầu hết các máy như vậy chỉ có thể di chuyển bút của chúng theo các hướng nhất định, thường là các bước đơn theo hướng X và Y hoặc cả hai. Một máy điển hình sẽ di chuyển theo một trong tám hướng được hiển thị trong Hình 1:

^{Hình 1}

Thử thách

Viết chương trình không có các hàm lượng giác , lấy một số từ 0 đến 7 (đã bao gồm) làm đầu vào và xuất ra tọa độ tương ứng của các điểm cuối trong Hình. 1.

Đầu ra phải là một mảng hoặc danh sách có hai phần tử (nghĩa là (1, 0)hoặc [0,-1])

Bảng 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)

Chiến thắng

Mã ngắn nhất tính bằng byte thắng

Thạch , 8 byte

Hı*µḞ,ĊṠ

Sử dụng số học phức tạp dường như được cho phép.

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

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

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)

Trả về tọa độ dưới dạng số phức.

Toán học, 24 byte

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

Chức năng thuần túy, sử dụng Signvà biết nơi parabolas nhất định đi.

C, 103 86 74 73 70 byte

Cảm ơn @orlp vì đã lưu 12 15 byte!

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

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

JavaScript (ES6), 41 36 byte

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

Sử dụng hai bảng tra cứu đơn giản mã hóa 8 mục trong cơ sở 4 sau khi thêm một vào mỗi "chữ số". Phiên bản thay thế, sử dụng bảng tra cứu đơn giản hơn:

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

Phiên bản cũ (ngắn hơn 4 byte nhờ @Neil):

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

Cách tiếp cận ngây thơ bằng cách sử dụng một số tính toán đơn giản để tìm tọa độ X và Y riêng biệt ...

TI-Basic, 23 byte

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

Giả sử máy tính của bạn ở chế độ radian; nếu cần phải có trong chương trình, thì đó là 25 byte.

Thạch , 13 12 byte

Tôi vẫn khá tự tin là có ngắn hơn, nhưng tôi chưa tìm thấy gì, vì vậy tôi nghĩ rằng tôi đã đăng bài này

+2,ị6400b3¤’

Hãy thử trực tuyến! hoặc xem một bộ thử nghiệm

Làm sao?

+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]

Một phương thức khác , cũng là 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);}

mã kiểm tra

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

các kết quả

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);}

Tìm kiếm nhị phân đơn giản được thực hiện hai lần. Tìm kiếm đầu tiên được thực hiện trên n thay đổi bởi 2.

Đầu ra trực tuyến trên Ideone.

C, 53 byte

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

Đầu ra không có dấu phẩy có thể được nén chặt hơn nữa bằng cách sử dụng lệnh gọi đệ quy.

Đầu ra trực tuyến trên Ideone.