Donald M. Monro의 Fortran 77 책에서 수정 된 문제

소개

디지털 플로팅 머신은 다양한 형태의 도면, 그래프 및 기타 그림 결과를 생성하는 데 널리 사용됩니다. 대부분의 이러한 기계는 특정 방향으로 만 펜을 움직일 수 있습니다. 일반적으로 X 및 Y 방향의 단일 단계 또는 둘 다입니다. 일반적인 기계는 그림 1에 표시된 8 가지 방향 중 하나로 움직입니다.

^{그림 1}

도전

0에서 7 (포함)의 숫자를 입력으로 받아 그림 1의 끝점에 해당하는 좌표를 출력하는 삼각 함수 가 없는 프로그램 을 작성하십시오 .

출력은 두 요소 (예 : (1, 0)또는 [0,-1])가 있는 배열 또는 목록이어야합니다.

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)

승리

바이트 단위의 최단 코드 승리

젤리 , 8 바이트

Hı*µḞ,ĊṠ

복잡한 산술을 사용할 수 있습니다.

온라인으로 사용해보십시오!

작동 원리

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.

파이썬 2, 29 바이트

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

좌표를 복소수로 리턴합니다.

Mathematica, 24 바이트

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

Sign특정 기능을 사용 하고 알고있는 순수한 기능 .

C, 103 86 74 73 70 바이트

12 15 바이트 를 절약 한 @orlp에게 감사 합니다!

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

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 41 36 바이트

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

각 "숫자"에 하나를 추가 한 후 기본 4의 8 개 항목을 인코딩하는 두 개의 간단한 찾아보기 테이블을 사용합니다. 더 간단한 조회 테이블을 사용하는 대체 버전 :

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

이전 버전 (@Neil 덕분에 4 바이트 더 짧음) :

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

간단한 계산을 사용하여 X 및 Y 좌표를 개별적으로 찾는 순진한 접근 방식 ...

TI 기본, 23 바이트

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

계산기가 라디안 모드라고 가정합니다. 프로그램에 있어야하는 경우 25 바이트입니다.

젤리 , 13 12 바이트

나는 여전히 더 짧은 것이 있다고 확신하지만 아직 아무것도 찾지 못했기 때문에 이것을 게시 할 것이라고 생각했습니다.

+2,ị6400b3¤’

온라인으로 사용해보십시오! 또는 테스트 스위트를 참조하십시오

어떻게?

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

다른 방법 , 또한 12 바이트 :

_/,+/Ṡ  - 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 바이트

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

테스트 코드

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

결과

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

C, 56 바이트

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

간단한 이진 검색이 두 번 수행되었습니다. 첫 번째 검색은 n만큼 2만큼 시프트 된 경우에 수행됩니다.

Ideone의 온라인 출력.

C, 53 바이트

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

쉼표가없는 출력은 재귀 호출을 사용하여 훨씬 더 압축 할 수있었습니다.

Ideone의 온라인 출력.