บทนำ

เขียนโปรแกรมหรือฟังก์ชั่นที่กำหนดพิกัดของตำแหน่งที่โผตลงบนกระดานปาเป้าส่งคืนคะแนนของโผนั้น พิกัดโผจะถูกกำหนดเป็นจำนวนเต็มสองจำนวนโดยx,yวัดจากจุดกึ่งกลางของกระดานปาเป้าโดยมีความแม่นยำเป็นมิลลิเมตร

ทำประตูลูกดอกอย่างไร

ปาเป้าเป็นเกมที่เล่นโดยการปาลูกดอกที่วงกลม กระดานโผแบ่งออกเป็น 20 "เวดจ์" ขนาดเท่ากัน เริ่มต้นจากด้านบนและไปตามเข็มนาฬิกาส่วนจะมีค่า 20,1,18,4,13,6,10,15,2,17,3,19,16,11,14,9,12 5 หากโผของคุณตกลงไปในส่วนสีดำหรือสีขาวของชิ้นส่วนใด ๆ คุณจะได้คะแนนตามที่ระบุไว้ด้านนอกของลิ่มนั้น
.

อย่างไรก็ตามถ้าโผของคุณลงในวงแหวนสีเขียว / แดงด้านนอกของ dartboard คุณจะได้คะแนนสองเท่าตามที่ระบุไว้ที่ด้านนอกของลิ่มที่คุณตี ในทำนองเดียวกันการกดวงแหวนสีเขียว / แดงด้านใน (หนึ่งในระหว่างส่วนสีขาว / ดำ) คุณทำคะแนนสามเท่าของจำนวนที่ระบุไว้ที่ด้านนอกของลิ่ม หากลูกดอกของคุณพุ่งเข้าสู่วงในสุด (วัวแดงตา) คุณจะได้คะแนน 50 คะแนนและในที่สุดถ้าลูกดอกของคุณพุ่งเข้าสู่วงกลมวงในสุดที่สอง (วงแหวนสีเขียวรอบดวงตาวัว) คุณจะได้ 25 คะแนน

ขนาดของแหวนวัดจากศูนย์กลางของ dartboard เป็นดังนี้:

Bullseye (50): [0mm-6mm)
25:            [6mm-16mm)
Inner Single:  [16mm-99mm)
Triple:        [99mm-107mm)
Outer Single:  [107mm-162mm)
Double:        [162mm-170mm)
Miss (0):       170mm+

หมายเหตุ 1: รูปภาพที่ให้ไว้มีวัตถุประสงค์เพื่อประกอบการอธิบายเท่านั้นและไม่ได้ปรับขนาด

หมายเหตุ 2: การวัดที่ให้นั้นเป็นค่าประมาณและอาจไม่แม่นยำสำหรับกระดานปาเป้าจริง

หมายเหตุ 3: [inclusive-exclusive)การวัดทั้งหมดให้เป็น สำหรับจุดประสงค์ของการท้าทายนี้เราจะไม่กังวลเกี่ยวกับการปาเป้าพุ่งชนและกระดอน หากโผลงสู่ "บนเส้นลวด" ด้วยเส้นรัศมีหนึ่งในนั้นก็ขึ้นอยู่กับผู้ตอบที่จะตัดสินใจว่าจะหักไทม์ตามเข็มนาฬิกาหรือทวนเข็มนาฬิกา ทิศทางการทำลายเสมอจะต้องสอดคล้องและระบุ

หมายเหตุ 4: Dartboard ถูกแขวนตามวิธีมาตรฐานโดยมี 20 ส่วนที่อยู่ตรงกลางเป้าและส่วนที่ 3 อยู่ด้านล่างเป้า

อินพุต

จำนวนเต็มสองจำนวนที่แทนx,yพิกัดของที่โผลงจอดซึ่งวัดเป็นมิลลิเมตรเทียบกับกึ่งกลางของ dartboard

เอาท์พุต

จำนวนเต็มเดียวสำหรับจำนวนคะแนนที่จะให้กับโผที่ลงจอดที่พิกัดที่กำหนด

ตัวอย่าง

0,0     -> 50
2,101   -> 60
-163,-1 -> 22
6,18    ->  1
-6,18   ->  5
45,-169 ->  0
22, 22  ->  4 (if tie-broken clock-wise)
            18(if tie-broken counter-clockwise)
-150,0  ->  11
-150,-1 ->  11

เกณฑ์การให้คะแนน

รหัสกอล์ฟ ไบต์น้อยที่สุดในซอร์สโค้ดของคุณชนะ

ช่องโหว่มาตรฐานที่ต้องห้าม

code-golf game

— mypetlion
แหล่งที่มา

1

@Shaggy ฉันไม่เห็นเหตุผลที่เหมาะสมในการทำเช่นนั้น

— Jonathan Allan

5

@Shaggy คุณช่วยอธิบายได้ไหมว่าทำไมถึงเป็นเช่นนั้น? โดยส่วนตัวแล้วฉันจะรักมันถ้าปาลูกดอกของฉันถูกรับประกันเสมอว่าให้พุ่งเข้าหากระดานปาเป้า แต่เพื่อความท้าทายฉันจึงคิดว่าดีที่สุดที่จะยึดติดกับความเป็นจริงเหนือจินตนาการ

— mypetlion

1

กรณีทดสอบที่เสนอแนะ: -150,-1และ-150,0ควรให้ทั้งสองกรณี11และอาจเป็นกรณีขอบในการปรับใช้บางอย่างเนื่องจากนี่คือการเปลี่ยนระหว่าง theta ที่รวมกันเป็น -pi และ theta = + pi ในพิกัดเชิงขั้ว (คำตอบแรกของฉันล้มเหลวในวันที่ 2)

— Arnauld

1

Dangit, x = y = 0 ทำให้ฉันสับสนโดยสิ้นเชิง !! ความท้าทายที่ดี

— BradC

1

หวังว่าคุณจะไม่รังเกียจฉันแก้ไขในเวอร์ชันที่ดีกว่าของรูปที่สอง

— BradC

19

JavaScript (ES7), 137 ไบต์

(x)(y)ใช้เวลาพิกัดในไวยากรณ์ currying ใช้ทวนเข็มนาฬิกาทวนเข็มนาฬิกา

x=>y=>(r=(x*x+y*y)**.5)<6?50:r<16?25:(r<99?1:r<107?3:r<162||r<170&&2)*parseInt('b8g7j3h2fa6d4i1k5c9eb'[Math.atan2(y,x)*3.1831+10.5|0],36)

ลองออนไลน์!

อย่างไร?

$(x,y)$ $(r,\theta)$

R = \sqrt{x^{2} + Y^{2}}

$r=\sqrt{x^2+y^2}$

θ = \arctan_{2} (Y, x)

$\theta=\arctan_2(y,x)$

$r$

$\theta$ $s$

s = ⌊ \frac{θ + π}{2 π} \times 20 + \frac{1}{2} ⌋ = ⌊ θ \times \frac{10}{π} + 10 + \frac{1}{2} ⌋

$s=\left\lfloor\frac{\theta+\pi}{2\pi}\times20+\frac{1}{2}\right\rfloor=\left\lfloor\theta\times\frac{10}{\pi}+10+\frac{1}{2}\right\rfloor$

$340\times340$ $10/\pi$

\frac{10}{π} \approx 3.1831

$\frac{10}{\pi}\approx3.1831$

$11$

11, 8, 16, 7, 19, 3, 17, 2, 15, 10, 6, 13, 4, 18, 1, 20, 5, 12, 9, 14, 11

$11,8,16,7,19,3,17,2,15,10,6,13,4,18,1,20,5,12,9,14,11$

$11$ $\theta$ $-\pi$ $\theta$ $+\pi$

เอาท์พุทแบบกราฟิก

ข้อมูลโค้ด ES6 ต่อไปนี้จะดึง dartboard โดยใช้ตรรกะเดียวกับในรหัส golfed

แสดงตัวอย่างโค้ด

for(ctx = c.getContext('2d'), y = -180; y < 180; y++) {
  for(x = -180; x < 180; x++) {
    r = Math.pow(x * x + y * y, 0.5);
    s = Math.atan2(y, x) * 3.1831 + 10.5 | 0;
    
    ctx.fillStyle = [ '#000', '#fff', '#be3628', '#487f45', '#bbb', '#ddd' ][
      r < 6 ? 2 : r < 16 ? 3 :
      (r < 99 ? 1 : r < 107 ? 3 : r < 162 ? 1 : r < 170 ? 3 : 4) ^ (s & 1)
    ];
    ctx.fillRect(x + 180, y + 180, 1, 1);
  }
}

<canvas id=c width=360 height=360 style="width:360px;height:360px" />

ขยายตัวอย่างข้อมูล

— Arnauld
แหล่งที่มา

8

JavaScript (ES6) + SVG (HTML5), 53 + 523 51 + 519 507 = 576 570 558 ไบต์

document.write`<svg width=345 height=345>`;i=b=Math.PI/10;s=Math.sin(a=-b/2);c=Math.cos(a);f=(r,f,n)=>document.write(`<path d=M172,172L${[172+r*s,172+r*c]}A${[r,r,0,0,1,172+r*t,172+r*d]}z fill=#${f} n=${n} />`);g=(q,r,m,n,i)=>f(q,i?474:`b32`,n*m)+f(r,i?`fff`:`000`,n);[3,17,2,15,10,6,13,4,18,1,20,5,12,9,14,11,8,16,7,19].map(n=>{t=s;d=c;s=Math.sin(a+=b);c=Math.cos(a);g(170,162,2,n,i=!i);g(107,99,3,n,i);});document.write`<circle cx=172 cy=172 r=16 fill=#474 n=25 /><circle cx=172 cy=172 r=6 fill=#b32 n=50`

<body onclick=alert(+event.target.getAttribute`n`)>

ขยายตัวอย่างข้อมูล

alertการป้อนข้อมูลผ่านการคลิกเมาส์เอาท์พุทผ่าน แก้ไข: บันทึก 12 ไบต์โดยใช้สีโดยประมาณเพิ่มเติมเล็กน้อยตามที่แนะนำโดย @Arnauld

— นีล
แหล่งที่มา

ฉันเดาว่าไม่มีใครจะตำหนิคุณถ้าคุณใช้b33และ474สำหรับสีแดงและสีเขียว :-)

— Arnauld

@Arnauld ยุติธรรมเพียงพอแม้จะb33เป็นbb3333อย่างนั้นb22(aka bb3322) be3628เป็นผู้ใกล้ชิดกับต้นฉบับของคุณ

— Neil

7

ชุดประกอบ Intel 8086/8087 180 144 142 138 ไบต์

สิ่งนี้ใช้ตัวประมวลผลทางคณิตศาสตร์ 8087 สำหรับตรีโกณมิติและเลขทศนิยมทั้งหมด การคำนวณทั้งหมดจะทำในฮาร์ดแวร์ที่มีความแม่นยำจุดลอยตัว 80 บิต

df06 b101 d8c8 df06 af01 d8c8 dec1 d9fa df1e b301 8b16 b301
33c0 81fa aa00 7c03 eb53 9083 fa06 7d05 b032 eb49 9083 fa10
7d05 b019 eb3f 90df 06b7 01df 06b5 01d9 f3df 06b1 01dd d2d9
ebde f9de c9de c1df 1eb3 01a1 b301 bb9c 01d7 83fa 6b7d 0a83
fa63 7c05 b303 eb09 9081 faa2 007c 04b3 02f6 e30b 0810 0713
0311 020f 0a06 0d04 1201 1405 0c09 0e0b 0a00

เขียนเป็น MASM MACRO (โดยทั่วไปฟังก์ชั่น) ใช้เวลา X และ Y เป็นพิกัดและส่งกลับคะแนนที่คำนวณได้ใน AX ผูกเน่าตามเข็มนาฬิกา

MAX_BULL EQU 6
MAX_25   EQU 16
MIN_3X   EQU 99
MAX_3X   EQU 107
MIN_2X   EQU 162
MAX_2X   EQU 170

; cartesian coordinates to radius
; ST = sqrt( X^2 + Y^2 )
; input: X,Y (mem16,mem16)
; output: Radius (mem16)
FCRAD   MACRO X, Y, R
    FILD  Y         ; ST[] = Y
    FMUL  ST,ST     ; ST = y^2 
    FILD  X         ; ST[] = X
    FMUL  ST,ST     ; ST = x^2
    FADD            ; ST = ST + ST1
    FSQRT           ; ST = SQRT(ST)
    FISTP R         ; R = ROUND(ST)
        ENDM

; cartesian coordinates to sector #
; input: X,Y (mem16,mem16)
; output: Sector (mem16)
FCSEC   MACRO X, Y, S
    FILD  Y         ; ST[] = Y
    FILD  X         ; ST[] = X
    FPATAN          ; ST = atan2(Y,X)
    FILD  CTEN      ; ST[] = 10
    FST   ST(2)     ; ST(2) = 10
    FLDPI           ; ST[] = pi
    FDIV            ; ST = 10 / pi
    FMUL            ; ST = A * ST
    FADD            ; ST = ST + 10
    FISTP S         ; S = ROUND(ST)
        ENDM

; score the dart throw
; input: X / Y coordinates (mem16)
; output: Score (AX)
SCORE   MACRO X, Y
        LOCAL IS_BULL, IS_25, IS_3X, IS_2X, MUL_SCORE, DONE
    FCRAD X, Y, FDW         ; FDW = radius(X,Y)
    MOV  DX, FDW            ; DX = FDW = radius
    XOR  AX, AX             ; score is initially 0
    CMP  DX, MAX_2X         ; >= 170 (miss)
    JL   IS_BULL            ; if not, check for bullseye
    JMP  DONE
IS_BULL:
    CMP  DX, MAX_BULL       ; < 6 (inner bullseye)
    JGE  IS_25              ; if not, check for 25
    MOV  AL, 50             ; score is 50
    JMP  DONE
IS_25:
    CMP  DX, MAX_25         ; < 16 (outer bullseye)
    JGE  IS_3X              ; if not, check for triple
    MOV  AL, 25             ; score is 25
    JMP  DONE
IS_3X:
    FCSEC X, Y, FDW         ; FDW = sector(X,Y)
    MOV  AX, FDW            ; load sector # into AX
    MOV  BX, OFFSET SCR     ; load base score table
    XLAT                    ; put base score into AL
    CMP  DX, MAX_3X         ; < 107 (triple upper bounds)
    JGE  IS_2X              ; if not, check for double
    CMP  DX, MIN_3X         ; >= 99 (triple lower bounds)
    JL   IS_2X              ; if not, check for double
    MOV  BL, 3              ; this is triple score
    JMP  MUL_SCORE          ; go forth and multiply
IS_2X:
    CMP  DX, MIN_2X         ; >= 162 (double lower bounds) (> 170 already checked)
    JL   DONE               ; if not, single score
    MOV  BL, 2              ; this is double score
MUL_SCORE:
    MUL  BL                 ; multiply score either 2x or 3x
DONE:
    ENDM

; DATA (place in appropriate segment)
SCR     DB  11,8,16,7,19,3,17,2,15,10,6  ; score table
        DB  13,4,18,1,20,5,12,9,14,11
CTEN    DW  10      ; constant 10 to load into FPU
FDW     DW  ?       ; temp DW variable for CPU/FPU data transfer

ตัวอย่างโปรแกรมทดสอบสำหรับ PC DOS ดาวน์โหลดได้ที่นี่DARTTEST.COM

INCLUDE DART.ASM            ; the above file
INCLUDE INDEC.ASM           ; generic I/O routines - input int
INCLUDE OUTDEC.ASM          ; generic I/O routines - output int

    FINIT                   ; reset 8087

    MOV  AH, 2              ; display "X" prompt
    MOV  DL, 'X'
    INT  21H
    CALL INDEC              ; read decimal for X into AX
    MOV  X, AX

    MOV  AH, 2              ; display "Y" prompt
    MOV  DL, 'Y'
    INT  21H
    CALL INDEC              ; read decimal for Y into AX
    MOV  Y, AX

    SCORE X, Y              ; AX = SCORE( X, Y )

    CALL OUTDEC             ; display score

X   DW  ?
Y   DW  ?

เอาท์พุต

ตัวอย่างการใช้งานดังกล่าวข้างต้นโปรแกรมการทดสอบ พีซี IBM ที่เกิดขึ้นจริงด้วย 8087, DOSBox หรืออีมูเลเตอร์ที่คุณต้องการ

A>DARTTEST.COM
X: 0
Y: 0
50
A>DARTTEST.COM
X: 2
Y: 101
60
A>DARTTEST.COM
X: -163
Y: -1
22
A>DARTTEST.COM
X: 6
Y: 18
1
A>DARTTEST.COM
X: -6
Y: 18
5
A>DARTTEST.COM
X: 45
Y: -169
0
A>DARTTEST.COM
X: 22
Y: 22
4
A>DARTTEST.COM
X: -150
Y: 0
11
A>DARTTEST.COM
X: -150
Y: 0
11
A>DARTTEST.COM
X: -150
Y: -1
11
A>DARTTEST.COM
X: -7
Y: -6
25
A>DARTTEST.COM
X: -90
Y: 138
24

* การแก้ไข:

-36 bytes โดยการลบคำสั่ง truncate-rounding และ 10.5 constant ผูกตอนนี้ตามเข็มนาฬิกาหัก
-2 ไบต์โดยลบ FRNDINT ไม่จำเป็นอีกต่อไป
-4 ไบต์ FMUL ใช้ต้นทาง / ปลายทางเดียวกัน

— 640KB
แหล่งที่มา

6

เยลลี่ , 56 ไบต์

æA/Æ°_9:18ị“!@umÞẓẓS’Œ?¤
ḅıA<“©Ñckɱȥ‘TṂị“2ı¢¤¢£¡‘¹×>3$?Ç

ลิงค์ monadic ยอมรับทั้งคู่เป็นรายการ[x,y]ที่ให้คะแนน
ใช้การผูกไทม์ตามเข็มนาฬิกา

ลองออนไลน์! หรือดูชุดทดสอบ

NB รุ่น dyadic มีขนาด 56 ไบต์

อย่างไร?

æA/Æ°_9:18ị“!@umÞẓẓS’Œ?¤ - Link 1, segment score: pair [x, y]
  /                      - reduce by:
æA                       -   arc tangent
   Æ°                    - convert from radians to degrees
     _9                  - subtract 9 (align 0 with boundary between 1 & 20)
       :18               - integer divide by 18 (yields a segment index from 0 to 19)
                       ¤ - nilad followed by link(s) as a nilad:
           “!@umÞẓẓS’    -   base 250 number = 2091180117530057584
                     Œ?  -   shortest permutation of natural numbers [1..N] which
                         -   would reside at that index in a list of all permutations of
                         -   those same numbers ordered lexicographically.
                         -   = [18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5,20,1]
          ị              - index into (yields the score associated with the segment)

ḅıA<“©Ñckɱȥ‘TṂị“2ı¢¤¢£¡‘¹×>3$?Ç - Main Link: segment score: pair [x, y]
 ı                              - √(-1)
ḅ                               - convert from base = x+iy
  A                             - absolute value = √(x²+y²)
    “©Ñckɱȥ‘                    - code-page index list = [6,16,99,107,162,170]
                                - (i.e. the radial boundaries)
            T                   - list of truthy indexes
             Ṃ                  - minimal value (0 if empty)
               “2ı¢¤¢£¡‘        - code-page index list = [50,25,1,3,1,2,0]
              ị                 - index into
                                - (i.e. get an override score (>3) OR a multiplier (<=3))
                              Ç - call last Link (1) as a monad (get the segment score)
                             ?  - if...
                            $   - ...condition: last two links as a monad:
                          >     -      (override OR multiplier) greater than?
                           3    -      three
                        ¹       - ...then: identity (keep override as is)
                         ×      - ...else: multiply (by multiplier)

— Jonathan Allan
แหล่งที่มา

4

TI-Basic (TI-84 Plus CE), 147 146 ไบต์

Prompt X,Y
abs(X+iY→R
int(_E-12+11.5+10π^-1R▸Pθ(X,Y→θ
{11,8,16,7,19,3,17,2,15,10,6,13,4,18,1,20,5,12,9,14,11
25((R<6)+(R<16))+Ans(θ)(R≥16 and R<170)(1+(R≥162)+2(R≥99 and R<107

พร้อมต์สำหรับ X และ Y บนบรรทัดแยกกัน

Tie-break ทวนเข็มนาฬิกา

TI-Basic เป็นภาษา tokenized ; โทเค็นทั้งหมดที่ใช้ที่นี่เป็นหนึ่งไบต์

คำอธิบาย:

Prompt X,Y
# 5 bytes, Prompt for X and Y
abs(X+iY→R
# 8 bytes, store distance from origin in R
int(_E-12+11.5+10π^-1R▸Pθ(X,Y→θ
# 22 bytes, store index in list of point values by polar angle in θ
{11,8,16,7,19,3,17,2,15,10,6,13,4,18,1,20,5,12,9,14,11
# 55 bytes, list of point values
25((R<6)+(R<16))+Ans(θ)(R≥16 and R<170)(1+(R≥162)+2(R≥99 and R<107
# 57 56 bytes, calculate the score

ใช้ประโยชน์จากความจริงที่ว่าการเปรียบเทียบบูลีน TI-Basic คืนค่า 0 หรือ 1 โดยการเพิ่มและคูณด้วยค่าจุด

— pizzapants184
แหล่งที่มา

3

T-SQL, 392 374 366 ไบต์

UPDATE t SET x=1WHERE x=0
SELECT TOP 1IIF(r<16,f,b*f)
FROM(SELECT r=SQRT(x*x+y*y),w=FLOOR(10*ATN2(y,x)/PI()+.5)FROM t)p,
(VALUES(10,11),(9,14),(8,9),(7,12),(6,5),(5,20),(4,1),(3,18),(2,4),(1,13),(0,6),
   (-1,10),(-2,15),(-3,2),(-4,17),(-5,3),(-6,19),(-7,7),(-8,16),(-9,8),(-10,11))s(a,b),
(VALUES(6,50),(16,25),(99,1),(107,3),(162,1),(170,2),(999,0))d(e,f)
WHERE a=w AND r<e

การขึ้นบรรทัดใหม่มีไว้เพื่อให้สามารถอ่านได้ เริ่มต้นUPDATEดูแลx=y=0ปัญหาที่อาจทำให้เกิดข้อผิดพลาดATN2()แต่ไม่เปลี่ยนคะแนน

การป้อนข้อมูลจะได้รับการผ่านทางที่มีอยู่ก่อนตารางที , ตามหลักเกณฑ์ IO ของเรา เนื่องจากการใช้TOP 1ตารางนี้ควรมีเพียงแถวเดียว

โดยทั่วไปฉันเข้าร่วม 3 ตาราง:

ตาราง p : xและyจากตารางอินพุตtถูกแปลงเป็นขั้วโลกrและค่า "ลิ่ม" wแทนตัวเลขจาก -11 ถึงบวก 11 เพื่อให้คะแนนลิ่มลิ่มโผเข้าที่ "Tie breaker" เป็นทวนเข็มนาฬิกา (ฉันลองROUND()ซึ่งสั้นกว่านี้เล็กน้อย แต่ให้เบรกเกอร์ไม่สม่ำเสมอ)
ตาราง s : นี่คือตารางการค้นหาในการแปลง "ลิ่ม" ค่าเป็นคะแนนข
ตาราง d : นี่คือตารางการค้นหาที่ส่งคืนการคำนวณคะแนนตามระยะทางจากศูนย์กลาง Eคือระยะทางและเข้าร่วมในการวิจัยTOP 1และผลตอบแทนเพียงแถวเดียวอยู่บนพื้นฐานของ ค่าfเป็นคะแนนคงที่ (สำหรับบูลส์ตา) หรือตัวคูณสำหรับคะแนนลิ่ม

แก้ไข : ลดลงORDER BYดูเหมือนว่าจะทำงานอย่างถูกต้องโดยไม่อย่างน้อยใน SQL 2017 ฉันยังลดลงAND y=0ในสภาพการปรับปรุง; ฉันทดสอบyค่าจำนวนเต็มทั้งหมดแล้วเปลี่ยนx=0เป็นx=1ไม่เปลี่ยนคะแนน

แก้ไข 2 : ลบคอลัมน์gจากตารางdแทนที่ด้วยIIF()คำสั่งที่ส่งคืนfโดยตรง (สำหรับบูลส์ตา) หรือf*bบันทึก 8 ไบต์ TOP 1นอกจากนี้ยังเอาออกพื้นที่หลัง

— BradC
แหล่งที่มา

2

Haskell , 198 ไบต์

p=pure
a#b=(!!(sum[1|k<-a,k<=b]))
a!b=([6,16,99,107,162,170]#(sqrt$a*a+b*b))[p 50,p 25,id,(*3),id,(*2),p 0]$([pi/20,3*pi/20..6]#(pi+atan2 b a))[11,8,16,7,19,3,17,2,15,10,6,13,4,18,1,20,5,12,9,14,11]

เน็คไททวนเข็มนาฬิกา (#)เป็นฟังก์ชั่นการค้นหา มุมขั้วโลกใช้เพื่อจัดทำดัชนีจากรายการตัวเลขเริ่มต้นที่atan2จุดตัดที่ 11 ระยะทางจะใช้เพื่อจัดทำดัชนีจากรายการฟังก์ชั่น[const 50, const 25, id, (*3), id, (*2), const 0]และในที่สุดฟังก์ชันนี้จะใช้กับหมายเลขที่เราได้รับก่อนหน้านี้

ลองออนไลน์!

— Angs
แหล่งที่มา

1

Perl 5 `-MMath::Trig':pi' -MMath::Trig':radial' -apl` , 166 ไบต์

($d,$a)=cartesian_to_cylindrical@F;$_=(1+($d>161||$d<6)+($d<107&&$d>98)*2)*($d<170)*($d<16?25:("6 134 181 205 129 14118 167 193 172 1510"=~/../g)[($a/pi*10+41/2)%20])

ลองออนไลน์!

ทำให้การเว้นวรรคสองพิกัดแยกจากกันบน STDIN การผูกไทม์เป็นทวนเข็มนาฬิกา

— Xcali
แหล่งที่มา

ทำประตูลูกดอกเดี่ยว

บทนำ

ทำประตูลูกดอกอย่างไร

อินพุต

เอาท์พุต

ตัวอย่าง

เกณฑ์การให้คะแนน

JavaScript (ES7), 137 ไบต์

อย่างไร?

เอาท์พุทแบบกราฟิก

JavaScript (ES6) + SVG (HTML5), 53 + 523 51 + 519 507 = 576 570 558 ไบต์

ชุดประกอบ Intel 8086/8087 180 144 142 138 ไบต์

เอาท์พุต

เยลลี่ , 56 ไบต์

อย่างไร?

TI-Basic (TI-84 Plus CE), 147 146 ไบต์

T-SQL, 392 374 366 ไบต์

Haskell , 198 ไบต์

Perl 5 -MMath::Trig':pi' -MMath::Trig':radial' -apl , 166 ไบต์

Perl 5 `-MMath::Trig':pi' -MMath::Trig':radial' -apl` , 166 ไบต์