ความท้าทายนี้เกี่ยวกับการพิมพ์ชุดของลูกศรศิลปะ ASCII ที่กำลังเติบโต ฉันจะอธิบายรูปแบบในคำพูด แต่มันอาจจะง่ายกว่าที่จะดูว่าการเริ่มต้นของซีรี่ส์นี้เป็นอย่างไร:

>
<
->
<-
-->
<--
--->
<---
---->
<----
----->
<-----
------>
<------
...

ลูกศรที่มีความยาว n มีหัวลูกศร ( <หรือ>) และn-1ขีดกลาง ( -) ลูกศรที่หันเข้าหาด้านขวามีขีดกลางก่อนจากนั้น a >. ลูกศรหันซ้ายเริ่มต้นด้วย<และตามด้วยเครื่องหมายขีดกลาง ชุดประกอบด้วยnลูกศรหันไปทางความยาวขวาตามด้วยลูกศรหันหน้าไปทางซ้าย n ความยาวโดยมี n ตั้งแต่ 1 ถึงอินฟินิตี้

ในการทำสิ่งที่ท้าทายให้เขียนโปรแกรมหรือฟังก์ชั่นที่รับหนึ่งอินพุตเต็มจำนวนi >= 1และส่งออกลูกiศรแรก ลูกศรเป็นรายบุคคลไม่ใช่คู่ซ้ายขวาดังนั้นi=3คุณควรส่งออก:

>
<
->

คุณสามารถส่งคืนรายการสตริงหรือพิมพ์ทีละรายการ หากการพิมพ์ลูกศรจะต้องคั่นด้วยตัวคั่นบางตัวที่สอดคล้องกันซึ่งไม่จำเป็นต้องขึ้นบรรทัดใหม่ตามตัวอย่าง

นี่คือโค้ดกอล์ฟซึ่งมีจำนวนน้อยที่สุดที่จะชนะ

Canvas ขนาด 10 ไบต์

⇵-×<ｎ¹［↔｝］

ลองที่นี่!

R , 69 ไบต์

for(i in 1:scan()-1)cat('<'[i%%2],rep('-',i/2),'>'[!i%%2],'
',sep='')

ลองออนไลน์!

• -5 ไบต์ขอบคุณ @Giuseppe
• -3 ไบต์ขอบคุณ @Robert S.

Java (JDK) , 81 ไบต์

n->{for(int i=0;i<n;)System.out.printf(i%2<1?"<%s%n":"%s>%n","-".repeat(i++/2));}

ลองออนไลน์!

คำอธิบาย

n->{                  // int-accepting consumer
 for(int i=0;i<n;)    //  for each i from 0 to n-1 included
  System.out.printf(  //   output on stdout with a pattern
   i%2<1              //    if i is even:
    ?"<%s%n"          //     use the left-arrow pattern
    :"%s>%n",         //    else: use the right-arrow pattern
   "-".repeat(i++/2)  //    fill the "%s" in the pattern with i/2 dashes, and increment i
  );                  // 
}                     //

Haskell, 41 40 ไบต์

(`take`g">")
g p=p:('<':init p):g('-':p)

ลองออนไลน์!

recursion เก่าธรรมดา: เริ่มต้นด้วยสตริงp= ">"เก็บpเป็น<ในด้านหน้าของทั้งหมด แต่ถ่านสุดท้ายของpและโทร recursive กับหนึ่งวางอยู่ตรงหน้า- pใช้nรายการแรกของรายการนี้

แก้ไข: -1 ไบต์ขอบคุณ @xnor

พลเรือจัตวา BASIC V2 (C64), 94 ไบต์

0inputn:fOi=1ton:oniaN1gO1:?"<";
1on-(i<3)gO2:fOj=1.5toi/2:?"-";:nE
2on-nOiaN1gO3:?">";
3?:nE

ไม่แน่ใจเกี่ยวกับจำนวนไบต์ทั้งหมดนี้ขึ้นอยู่กับการแสดงข้อความสำหรับการพิมพ์โปรแกรมที่ถูกต้อง มันสั้นลงเล็กน้อยบนดิสก์ (91 ไบต์) เนื่องจาก BASIC V2 ใช้การแทนค่า "tokenized" ของโปรแกรม

การสาธิตออนไลน์

"ungolfed" เล็กน้อย:

0 inputn:fori=1ton:oniand1goto1:print"<";    :rem read n from user, loop to n, if odd skip "<"
1 on-(i<3)goto2:forj=1.5toi/2:print"-";:next :rem skip for i<3, print (i-1)/2 times "-"
2 on-notiand1goto3:print">";                 :rem if even skip ">"
3 print:next                                 :rem newline and next loop iteration

Brainfuck ที่แก้ไขตัวเองได้ขนาด 55 ไบต์

รับอินพุตเป็นรหัสอักขระ
รองรับอินพุตได้สูงสุด 255
ใช้อักขระ null เพื่อแยกบรรทัด

โดยบังเอิญตัวละครลูกศรวาดทั้งหมดจะใช้เป็นคำสั่ง BF น่าเสียดายที่มันไม่ได้บันทึกไบต์ใด ๆ (ในปัจจุบัน)

>>,[<<[-<.>>+<]<<.>>.+>>-[<<<<<.>>>>[-<+<.>>].>-<]>]<>-

ลองออนไลน์!

คำอธิบาย

 Code  |              Memory         | Output | Comment
-------+-----------------------------+--------+--------------------------
       | '<' '>' '-' [0]  0   0   0  |        |
>>,    | '<' '>' '-'  0   0  [x]  0  |        |
[      |                             |        |
       | '<' '>' '-'  l   0  [x]  0  |        | l = arrow length
<<[-<  |                             |        | copy l to next cell
.>>+<] |                             |        | and print '-'
       | '<' '>' '-' [0]  l   x   0  | -----  | there are l '-'s
<<.    | '<' [>] '-'  0   l   x   0  | >      |
>>.+   | '<' '>' '-' [1]  l   x   0  | <null> |
>>-    | '<' '>' '-'  1   l  [y]  0  |        | y=x-1
[      |                             |        | execute if y>0
<<<<<. | [<] '>' '-'  1   l   y   0  | <      |
>>>>   | '<' '>' '-'  1  [l]  y   0  |        |
[-<+<. |                             |        |
>>]    | '<' '>' '-'  L  [0]  y   0  | -----  | L=l+1
.      | '<' '>' '-'  L  [0]  y   0  | <null> |
>-<]>] |                             |        | decrement y
<>-    |                             |        | do nothing, used as data

Python 2 , 54 ไบต์

ขอบคุณและ Jo King สำหรับการแก้ไขข้อผิดพลาด

k=0
exec"print k%2*'<'+k/2*'-'+~k%2*'>';k+=1;"*input()

ลองออนไลน์!

Pyth, 17 ไบต์

m_W%d2+*\-/d2@"><

เอาท์พุทเป็นรายการของสตริง ลองออนไลน์ได้ที่นี่

m_W%d2+*\-/d2@"><"dQ   Implicit: Q=eval(input())
                       Trailing "dQ inferred
m                  Q   Map [0-Q), as d, using:
          /d2            Floored division of d by 2
       *\-               Repeat "-" the above number of times
      +                  Append to the above...
             @"><"d      Modular index d into "><" - yields ">" for even d, "<" for odd
                         - examples: d=4 gives "-->", d=7 gives "---<"
 _W                      Reverse the above if...
   %d2                   ... (d % 2) != 0
                       Implicit print result of the map

PowerShell , 62 56 50 ไบต์

param($n)(0..$n|%{($j='-'*$_)+'>';"<$j"})[0..--$n]

ลองออนไลน์!

วนซ้ำจาก0อินพุตสูงสุด$nแต่ละการวนซ้ำสร้างสตริงลูกศรสองสตริง สิ่งเหล่านั้นจะถูกจัดทำดัชนีด้วย0..--$nเพื่อดึงองค์ประกอบที่ถูกต้องออกมาจำนวนมาก

บันทึก 6 ไบต์ขอบคุณ KGlasier

Python 3, 53 ไบต์

codegolf คำตอบแรกของฉัน

lambda x:[i%2*"<"+i//2*"-"+~i%2*">"for i in range(x)]

-10 ไบต์ขอบคุณ Jo King

Haskell , 51 44 ไบต์

^{-7 ไบต์ขอบคุณxnor (ใช้iterateมากกว่า list-comprehension)!}

(`take`do b<-iterate('-':)"";[b++">",'<':b])

ลองออนไลน์!

คำอธิบาย / Ungolfed

การใช้คำdoอธิบายประกอบช่วยให้เรา a concatและการใช้เครื่องหมาย - อนุญาตให้ฟังก์ชั่น pointfree ด้วยการtakeยกเลิกสิ่งเหล่านี้จะให้:

f n = take n $ concat [ [b++">", '<':b] | b <- iterate ('-':) "" ]

Japté -m, 16 15 13 12 ไบต์

บันทึก 1 ไบต์ขอบคุณShaggy

g<i>)iUUz ç-

ทดสอบออนไลน์

คำอธิบาย:

-m            // Map the program through [0...Input); U becomes the iterative number
g<i>)iUUz ç-  
 <i>          // ">" prepended with "<", creating "><"
g             //   Get the char at index U, with index-wrapping
    i         // Insert:
     U        //   At index U, with index-wrapping
         ç-   //   "-" repeated:
      Uz      //     U/2 times

เยลลี่ 15 ไบต์

ị⁾><;’H”-ẋƲṚ⁸¡)

ลองออนไลน์!

MathGolf , 17 15 ไบต์

บันทึก 2 ไบต์ด้วย Jo King และ Kevin Cruijssen

{ï½'-*'>ï¥╛Å⌡\n

ลองออนไลน์!

คำอธิบาย

วิธี 15 ไบต์แตกต่างจากโซลูชันดั้งเดิมของฉันฉันไม่สามารถให้เครดิตสำหรับการใช้งานได้

{                 start block or arbitrary length
 ï                index of current loop, or length of last loop
  ½               pop a : push(a//2 if int else a/2)
   '-             push single character "-"
     *            pop a, b : push(a*b)
      '>           push single character ">"
        ï         index of current loop, or length of last loop
         ¥        modulo 2
          ╛       if without else
           Å      start block of length 2
            ⌡     decrement twice
             \    swap top elements
              n   newline char, or map array with newlines

Japt -m , 14 ไบต์

"<>"¬hUUz ç-)q

ลองออนไลน์!

อัปเดตด้วยวิธีการใหม่อย่างสมบูรณ์

คำอธิบาย:

                  #Implicitly map over the range [0..input) as U
"<>"              #The string "<>"
    ¬             #Split into the array ["<",">"]
     hU     )     #Replace the element at index U with wrapping:
           -      # The character '-'
          ç       # Repeated a number of times equal to
       Uz         #  U integer divided by 2
             q    #Join the array to a string

C (gcc) , 80 77 76 74 71 ไบต์

g(n,i,j){--n&&g(n);for(j=n%2,i=n/=2;putchar(~n?n---i*j?45:62-j*2:0););}

ลองออนไลน์!

-3 ไบต์ด้วยความคิดจากASCII เท่านั้น

-1 พร้อม\0แทน\n

-5 การจัดเรียงชิ้นส่วนใหม่

\0การส่งออกรวมถึงการต่อท้าย

g(n,i,j){
    --n&&g(n);              //draw smaller arrows first (if n>1)
    for(j=n%2,i=n/=2;       //j:!(input parity); i:arrow len-1=ceil(input)/2-1
        putchar(~n          //if n>=0, arrow is not yet completed
                ? n---i*j   //if not first (j==1) or last (j==0) char of arrow:
                  ? 45      // output '-'
                  : 62-j*2  // otherwise, output the appropriate arrow head
                : 0););     //\0 after arrow complete. putchar returns 0; loop terminates
}

JavaScript (ES6), 58 ไบต์

ส่งคืนสตริงที่คั่นด้วยช่องว่าง

n=>(g=p=>n--?k++&1?`<${p} `+g(p+'-'):p+'> '+g(p):'')(k='')

ลองออนไลน์!

SNOBOL4 (CSNOBOL4) , 123 122 118 ไบต์

	N =INPUT - 1
P	H =X / 2
	Y =DUPL('-',H)
	OUTPUT =EQ(H,X - H) Y '>'	:S(I)
	OUTPUT ='<' Y
I	X =LT(X,N) X + 1	:S(P)
END	

ลองออนไลน์!

V , 22 ไบต์

i>
<Àñäkjjé-já-ñÀGjdG

ลองออนไลน์!

ถ่าน 16 ไบต์

ＮθＦθ«⊘ι↓>‖Ｔ»Ｆθ‖Ｔ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด ฉันมีวิธีแก้ปัญหา 17 ไบต์สามข้อก่อนที่จะเจอปัญหานี้ในที่สุด คำอธิบาย:

Ｎθ

nอินพุต

Ｆθ«

ทำซ้ำnครั้ง 0 ดัชนี

⊘ι

ลากเส้นที่มี-ความยาวครึ่งหนึ่งของดัชนี (ตัดให้สั้นลง)

↓>

วาดหัวลูกศรและย้ายไปที่บรรทัดถัดไป

‖Ｔ»

สะท้อนทุกอย่างพลิกหัวลูกศร

Ｆθ‖Ｔ

วงด้านบนมีการnสะท้อนกลับ แต่เราต้องการจำนวนการnสะท้อนค่อนข้างเท่า

ทำความสะอาด , 76 73 ไบต์

import StdEnv,StdLib
$n=take n[s\\i<-inits['--'..],s<-[i++['>'],['<':i]]]

ลองออนไลน์!

ใช้ความจริงที่เรียบร้อยซึ่ง['-','-'..]เหมือนกับ['--'..]การบันทึกสักเล็กน้อย

จาวาสคริปต์, 49 ไบต์

f=n=>--n?f(n,l='')+(n%2?`
<`+l:`
${l+='-'}>`):'>'

ลองออนไลน์!

Powershell, 51 ไบต์

param($n)0..$n|%{'-'*$_+'>';'<'+'-'*$_}|?{$n---gt0}

รหัสเครื่อง 6502 (C64), 49 ไบต์

00 C0 20 9B B7 A2 00 8A 4A A8 90 05 A9 3C 20 D2 FF A9 2D C0 00 F0 06 20 D2 FF 
88 D0 FA 8A 4A B0 05 A9 3E 20 D2 FF A9 0D 20 D2 FF E8 E4 65 D0 D7 60

ยังค่อนข้างสั้นกว่าBASICเล็กน้อย) อันนี้มีช่วงตัวเลขไม่เกิน255เพราะจำนวนเต็มธรรมชาติของเครื่องมีเพียง 8 บิต

การสาธิตออนไลน์

การใช้งาน: SYS49152,[n](เช่นSYS49152,3สำหรับตัวอย่างจากการท้าทาย)

ความคิดเห็นถอดแยกชิ้นส่วน :

         00 C0       .WORD $C000        ; load address
.C:c000  20 9B B7    JSR $B79B          ; get unsigned byte from commandline
.C:c003  A2 00       LDX #$00           ; main loop counter
.C:c005   .loop:
.C:c005  8A          TXA                ; loop counter to accumulator
.C:c006  4A          LSR A              ; divide by 2, shift lowest bit to C
.C:c007  A8          TAY                ; result to Y
.C:c008  90 05       BCC .toright       ; C clear -> counter even, skip '<'
.C:c00a  A9 3C       LDA #$3C           ; load character '<'
.C:c00c  20 D2 FF    JSR $FFD2          ; output character
.C:c00f   .toright:
.C:c00f  A9 2D       LDA #$2D           ; load character '-'
.C:c011  C0 00       CPY #$00           ; counter/2 == 0 ? then no dashes
.C:c013  F0 06       BEQ .skipdashes
.C:c015   .printdashes:
.C:c015  20 D2 FF    JSR $FFD2          ; output character
.C:c018  88          DEY                ; decrement Y
.C:c019  D0 FA       BNE .printdashes   ; not 0 yet -> repeat
.C:c01b   .skipdashes:
.C:c01b  8A          TXA                ; loop counter to accumulator
.C:c01c  4A          LSR A              ; shift lowest bit to C
.C:c01d  B0 05       BCS .toleft        ; C set -> counter odd, skip '>'
.C:c01f  A9 3E       LDA #$3E           ; load character '>'
.C:c021  20 D2 FF    JSR $FFD2          ; output character
.C:c024   .toleft:
.C:c024  A9 0D       LDA #$0D           ; load newline character
.C:c026  20 D2 FF    JSR $FFD2          ; output character
.C:c029  E8          INX                ; next loop iteration
.C:c02a  E4 65       CPX $65            ; compare to command line argument
.C:c02c  D0 D7       BNE .loop          ; not reached yet -> repeat main loop
.C:c02e  60          RTS                ; exit

Perl 6 , 39 ไบต์

{map {'<'x$_%2~'-'x$_/2~'>'x$_%%2},^$_}

ลองออนไลน์!

การบล็อกโค้ดแบบไม่ระบุชื่อที่ส่งคืนรายการของบรรทัด

K (ngn / k) , 31 29 ไบต์

{"<->"x#2,x{(1=*x)_1,2-|x}\0}

ลองออนไลน์!

ก่อนอื่นเราสร้างรายการด้วย 0 แทน"<"1 แทน"-"และ 2 แทน">":

{ } ฟังก์ชั่นที่มีข้อโต้แย้ง x

x{... }\0ใช้ฟังก์ชันภายในxเวลาเริ่มต้นด้วยค่าเริ่มต้น0และการรักษาผลกลาง

|x ถอยหลัง

2- แทนที่ 0 ด้วย 2 และในทางกลับกันรักษา 1s ตามที่เป็น

1, เติม 1

(1=*x)_แรกของxเท่ากับ 1 คืออะไร? ถ้าใช่ปล่อยองค์ประกอบหนึ่งมิฉะนั้นปล่อย 0 องค์ประกอบ (ไม่ทำอะไรเลย)

2,เติม 2 สำหรับ">"ลูกศรเริ่มต้น

x#เรามีรายการเล็ก ๆ น้อย ๆ มากเกินไปเพื่อให้ใช้เพียงครั้งแรกxของพวกเขา

"<->" ใช้องค์ประกอบรายการ (0/1/2) เป็นดัชนีในสตริงนี้

05AB1E , 23 20 ไบต์

FNÉD„><è'-N;∍«s_iR},

ลองออนไลน์!

ครั้งแรกที่ใช้ 05AB1E หรือภาษากอล์ฟอื่น ๆ สำหรับเรื่องนั้น ความคิดใด ๆ ยินดีต้อนรับ

-3 จาก Kevin Cruijssen

C # (.NET Core) , 90 ไบต์

a=>{for(int i=0;i<a;i++){var s=new String('-',i/2);Console.WriteLine(i%2<1?s+">":"<"+s);}}

ลองออนไลน์!

ใช้ ตัวแทนการดำเนินการเพื่อดึงข้อมูลเข้าและไม่ต้องการผลตอบแทน

Ungolfed:

a => {
    for(int i = 0; i < a; i++)          // from [0, a)
    {
        var s = new String('-', i / 2);     // create string of dashes of length (a / 2)
        Console.WriteLine(i % 2 < 1 ?       // write arrow
                                s + ">" :       // if i is even: dashes plus ">"
                                "<" + s);       // if i is odd: "<" plus dashes
    }
}

ES6, 96 82 79 70 ไบต์

ลองออนไลน์! (ขอบคุณ @Oliver)

n=>[...Array(n)].map((_,i)=>(i%2?"<":"")+"-".repeat(i/2)+(i%2?"":">"))

สีแดง , 109 108 ไบต์

-1 ไบต์ขอบคุณ NK1406

func[n][repeat i n[print reduce[pick[pad/with pad/left/with]k: i% 2 + 1
pick copy"<>"k i / 2 + k - 1 #"-"]]]

ลองออนไลน์!