Tantangan ini adalah tentang mencetak serangkaian panah seni-ASCII yang sedang tumbuh. Saya akan menjelaskan polanya dalam kata-kata, tetapi mungkin akan lebih mudah untuk melihat seperti apa awal seri ini:

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

Panah dengan panjang n berisi panah ( <atau >) dan n-1garis putus - putus ( -). Panah yang menghadap kanan memiliki tanda hubung pertama, kemudian a >. Panah yang berhadapan dengan kiri dimulai dengan <, dan diikuti oleh tanda hubung. Serial ini terdiri dari npanah yang menghadap ke kanan panjang diikuti oleh panjang n panah yang menghadap ke kiri, dengan n dari 1 hingga tak terbatas.

Untuk menyelesaikan tantangan, tulis sebuah program atau fungsi yang mengambil satu input, integer i >= 1, dan output ipanah pertama . Panah bersifat individual, bukan berpasangan kiri-kanan, jadi untuk i=3Anda harus mengeluarkan:

>
<
->

Anda dapat mengembalikan daftar string, atau mencetaknya satu demi satu. Jika mencetak, panah harus dibatasi oleh pembatas yang konsisten, yang tidak harus berupa baris baru seperti pada contoh.

Ini adalah kode-golf , byte paling sedikit menang.

Kanvas , 10 byte

⇵-×<ｎ¹［↔｝］

Coba di sini!

R , 69 byte

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

Cobalah online!

• -5 byte terima kasih kepada @Giuseppe
• -3 byte terima kasih kepada @Robert S.

Java (JDK) , 81 byte

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

Cobalah online!

Penjelasan

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 byte

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

Cobalah online!

Rekursi lama biasa: mulai dengan string p= ">", kumpulkan p, <di depan semua kecuali karakter terakhir pdan panggilan rekursif dengan satu -diletakkan di depan p. Ambil nitem pertama dari daftar ini.

Sunting: -1 byte berkat @xnor.

Commodore BASIC V2 (C64), 94 byte

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

Tidak sepenuhnya yakin tentang jumlah byte, ini didasarkan pada representasi teks untuk mengetik program yang valid. Ini sedikit lebih pendek pada disk (91 byte) karena BASIC V2 menggunakan representasi program "tokenized".

Demo online

Sedikit "tidak berbulu":

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 yang memodifikasi sendiri , 55 byte

Ambil input sebagai kode karakter.
Hanya mendukung input hingga 255.
Gunakan karakter nol untuk memisahkan baris.

Secara kebetulan, semua karakter panah-gambar digunakan sebagai perintah BF. Sayangnya, itu tidak menyimpan byte (saat ini).

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

Cobalah online!

Penjelasan

 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 byte

terima kasih kepada dan Jo King untuk memperbaiki bug.

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

Cobalah online!

Pyth, 17 byte

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

Output adalah daftar string. Cobalah online di sini .

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 byte

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

Cobalah online!

Loop dari 0hingga input $n, setiap iterasi membuat dua string panah. Itu kemudian diindeks dengan 0..--$nuntuk menarik jumlah elemen yang benar.

Disimpan 6 byte berkat KGlasier.

Python 3, 53 byte

Jawaban codegolf pertama saya.

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

-10 byte terima kasih kepada Jo King

Haskell , 51 44 byte

^{-7 byte terima kasih kepada xnor (menggunakan iteratelebih dari daftar-pemahaman)!}

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

Cobalah online!

Penjelasan / Tidak Diundang

Menggunakan do-notation menyelamatkan kita concat, dan menggunakan infix-notation memungkinkan fungsi pointfree dengan take, membatalkan ini akan memberi:

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

Japt -m, 16 15 13 12 bytes

Disimpan 1 byte berkat Shaggy

g<i>)iUUz ç-

Uji secara online

Penjelasan:

-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

Jelly , 15 byte

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

Cobalah online!

MathGolf , 17 15 byte

Disimpan 2 byte berkat Jo King dan Kevin Cruijssen

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

Cobalah online!

Penjelasan

Pendekatan 15-byte berbeda dibandingkan dengan solusi asli saya, saya tidak bisa mengambil kredit apa pun untuk implementasi.

{                 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 byte

"<>"¬hUUz ç-)q

Cobalah online!

Diperbarui dengan metode yang sama sekali baru.

Penjelasan:

                  #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 byte

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

Cobalah online!

-3 byte dengan ide dari ASCII-only .

-1 dengan \0alih - alih\n

-5 mengatur ulang bagian

Output termasuk trailing \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 byte

Mengembalikan string yang dipisahkan ruang.

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

Cobalah online!

SNOBOL4 (CSNOBOL4) , 123 122 118 byte

	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	

Cobalah online!

V , 22 byte

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

Cobalah online!

Arang , 16 byte

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

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Saya memiliki tiga solusi 17-byte sebelum akhirnya menemukan yang satu ini. Penjelasan:

Ｎθ

Masukan n.

Ｆθ«

Ulangi nkali, diindeks 0.

⊘ι

Gambarkan garis -dengan panjang setengah indeks (terpotong).

↓>

Gambarlah panah dan pindah ke baris berikutnya.

‖Ｔ»

Refleksikan semuanya, membalikkan panah.

Ｆθ‖Ｔ

Loop di atas memiliki nrefleksi, tetapi kita membutuhkan sejumlah refleksi, jadi lakukan nrefleksi lain .

Bersih , 76 73 byte

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

Cobalah online!

Menggunakan fakta rapi yang ['-','-'..]sama ['--'..]dengan menghemat sedikit.

JavaScript, 49 byte

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

Cobalah online!

Powershell, 51 byte

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

6502 kode mesin (C64), 49 byte

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

Masih agak lebih pendek dari BASIC ;) Yang ini hanya memiliki rentang angka hingga255 karena ukuran integer alami mesin hanya memiliki 8 bit.

Demo online

Penggunaan: SYS49152,[n](misalnya SYS49152,3untuk contoh dari tantangan)

Komentar pembongkaran :

         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 byte

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

Cobalah online!

Blok kode anonim yang mengembalikan daftar baris.

K (ngn / k) , 31 29 byte

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

Cobalah online!

pertama-tama kita membuat daftar dengan 0 bukan "<", 1 bukannya "-", dan 2 bukannya ">":

{ } berfungsi dengan argumen x

x{... }\0terapkan waktu fungsi dalam x, dimulai dengan nilai awal 0dan pertahankan hasil antara

|x membalikkan

2- ganti 0 dengan 2 dan sebaliknya, pertahankan 1s sebagaimana adanya

1, tambahkan sebuah 1

(1=*x)_Apakah yang pertama xsama dengan 1? jika ya, jatuhkan satu elemen, jika tidak drop 0 elemen (tidak melakukan apa-apa)

2,tambahkan 2 untuk ">"panah awal

x#kami memiliki sedikit terlalu banyak daftar, sehingga mengambil hanya yang pertama xdari mereka

"<->" gunakan elemen daftar '(0/1/2) sebagai indeks dalam string ini

05AB1E , 23 20 byte

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

Cobalah online!

Pertama kali menggunakan 05AB1E atau bahasa golf lainnya. Ada ide yang menyambut.

-3 dari Kevin Cruijssen

C # (.NET Core) , 90 byte

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

Cobalah online!

Menggunakan delegasi Action untuk menarik input dan tidak membutuhkan pengembalian.

Tidak Disatukan:

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 byte

Cobalah online! (Terima kasih kepada @Oliver)

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

Merah , 109 108 byte

-1 byte terima kasih kepada 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 #"-"]]]

Cobalah online!