specificazioni

Dato un numero n, genera una "freccia meme" ASCII (simbolo maggiore di >) , di dimensioni n.

n sarà sempre un numero intero positivo, maggiore di 0.

Esempi

n = 2

\
 \
 /
/

n = 5

\
 \
  \
   \
    \
    /
   /
  /
 /
/

Codice d'esempio

Ecco un programma di esempio, scritto in Crystal, che restituisce i risultati corretti. Eseguilo come ./arrow 10.

arrow.cr:

def f(i)
        i.times { |j|
                j.times { print ' ' }
                puts "\\"
        }
        i.times { |j|
                (i-j-1).times { print ' ' }
                puts '/'
        }
end

f(ARGV[0].to_i)

Regole

• Questo è code-golf . Vince la risposta più breve. Tuttavia, non selezionerò una risposta, poiché la risposta più breve potrebbe cambiare nel tempo.
• Non sono ammesse scappatoie standard.

Tela , 2 byte

＼═

Provalo qui!

C (gcc) , 56 byte

f(n,i){for(i=-n;n;printf("%*c\n",i?++i+n:n--,i?92:47));}

Provalo online!

f(n,i){for(i=-n;i;printf("%*c\n",  ++i+n    ,  92   ));     //first print descending '\'s
       for(    ;n;printf("%*c\n",        n--,     47));}    // then print returning  '/'s

Python 2 , 54 byte

f=lambda n,p='':n*'?'and p+'\\\n'+f(n-1,p+' ')+p+'/\n'

Provalo online!

Output con una nuova riga finale.

05AB1E , 6 byte

'\3.Λ∊

Provalo online!

Spiegazione

   .Λ    # draw
'\       # the string "\"
         # of length input
  3      # in the south-eastern direction
     ∊   # then vertically mirror it

C # (compilatore interattivo Visual C #) , 66 byte

n=>new int[n*2].Select((a,b)=>"".PadLeft(b<n?b:n*2+~b)+"\\/"[b/n])

Salvataggio di un byte grazie a @someone.

Provalo online!

C64Mini / C64 BASIC (e altre varianti CBM BASIC), 52 byte BASIC tokenizzati utilizzati

 0INPUTN:N=N-1:FORI=0TON:PRINTTAB(I)"\":NEXT:FORI=NTO0STEP-1:PRINTTAB(I)"/":NEXT

Ecco la versione non offuscata per l'esaplanzione:

 0 INPUT N
 1 LET N=N-1
 2 FOR I=0 TO N
 3  PRINT TAB(I);"\"
 4 NEXT I
 5 FOR I=N TO 0 STEP -1
 6  PRINT TAB(I);"/"
 7 NEXT I

Qualsiasi numero mai immesso Nnella riga zero viene ridotto di uno quando il TABcomando viene indicizzato con zero; I FOR/NEXTloop nelle linee da due a quattro e da cinque a sette quindi emettono rispettivamente la parte superiore e inferiore se la memefreccia (rappresentata da una sorgente in modalità grafica spostata Me spostata )N

Rubino , 111 99 77 73 68 64 57 56 byte

-12 byte grazie a Benjamin Urquhart , -43 grazie a manatwork e -2 byte grazie a Value Ink .

->i{s=[];puts (0...i).map{|j|s=(p=' '*j)+?/,*s;p+?\\},s}

Provalo online!

Spiegazione:

f=->i{                      # instead of a function, use a lambda
  s=[]                      # needs a helper variable *now*, for scope
  puts(                     # puts takes arbitrary num of args; \n after each
    (0...i).map{|j|         # not from 0 to i but from 0 to i-1 (*three* dots)
      s=(
        p=' '*j             # p will remain in scope inside of .map,
      )
      +?/                   # character literal instead of string
      ,*s                   # essentially appending to the array

      p+?\\                 # p is what's returned by .map, not s!

    },                      # up until here, 1st arg to display
    s                       # NOW, as the *2nd* arg, s is displayed
  )
}

Soluzioni alternative (ma più lunghe)

Un amico ha letto questa risposta e poi ha cercato di trovare un altro paio di approcci. Mettendoli anche qui, in modo che non si perdano nelle vaste interwebs.

iniettare e spostare, 72 byte

->n{puts (0...n).inject([]){|s,i|i=' '*(n-1-i);s.unshift i+?\\;s<<i+?/}}

Provalo online!

downto, inject e unshift, 80 byte

->n{puts n.downto(1).map{|i|' '*(i-1)}.inject([]){|s,i|s<<i+?/;s.unshift i+?\\}}

Provalo online!

intrigante, due loop non nidificati, 127 byte

->n{
r=->s,c{s[0..-(c+1)],s[-c..-1]=s[c..-1],s[0..c-1];s};
n.times{|i|puts r[' '*n+?\\,n-i]}
n.times{|i|puts r[' '*n+?/,i+1]}
}

Provalo online!

Perl 5 -p , 36 byte

$\=($q=$"x$_)."\\
$\$q/
"while$_--}{

Provalo online!

Codice T-SQL, 80 byte

DECLARE @ INT=3

,@z INT=0
x:PRINT
space(@-abs(@-@z-.5))+char(92-@z/@*45)SET
@z+=1IF @z<@*2GOTO x

Provalo online

Query T-SQL, 96 byte

Per rendere questo lavoro online ho dovuto apportare alcune piccole modifiche. Gli spazi all'inizio di una riga non vengono visualizzati nello snippet online. Quindi sto usando ASCII 160 invece. Durante l'esecuzione in Management Studio, è possibile modificare le impostazioni per mostrare il risultato come testo, il che comporterebbe gli spazi corretti in questo script pubblicato.

DECLARE @ INT=3
SELECT space(@-abs(@-number-.5))+char(92-number/@*45)FROM
spt_values WHERE number<@*2and'p'=type

Provalo online

PowerShell , 44 41 byte

filter f{if($_){'\'
--$_|f|%{" $_"}
'/'}}

Provalo online!

MarioLANG , 719 677 byte

+
+
+
+
+
+         ((((+)+++++)))<
+>======================"
+)++++++)+++++++++++((-[!)
========================#=-
) ![-    <+;)+++)---)++++)<
)=#======"=================
) >)+)+((!
+ "======#
         <))))).(((((((<
 ========">============"
>)+)+((-[!+))        -[!((((((((.)).))))+(-[!)
"========#=============#====================#<
!)                                          <
#==========================================="
                  >(((((.)))>
                  "========<"========
 ![-)).))).(((((((![-    ))+![-((+)+)<((![<
 #================#=========#========"==#="===
 >                                   !  >-!
 "===================================#  "=#

Provalo online!

Questo è stato più difficile del previsto ...

Brainfuck , 125 byte

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

Provalo online!

++++++++++[->+>+++++++++>+++<<<]>>++>++>    ; Initialize with " \"
,                                           ; Get input
[->                                         ; loop and decrement n 
    [->+<<<.>>]                             ; output number of spaces, copy n
    <<<.                                    ; output \
    <.                                      ; output newline
    >>>>                                    
    >[-<+>]<+                               ; copy copy of n back to original place 
<]
<<[--<<+>>]<<+>>                            ; change "\" to "/"
>>>                             
[                                           ; second loop for bottom half
 -                                          ; decrement n
 [-<+<.>>]                                  ; output n spaces
 <<<<<.>.                                   ; output \ and newline
 >>>[->+<]>                                 ; copy n back
]

Carbone , 5 byte

↘Ｎ‖Ｍ↓

Provalo online! Il collegamento è alla versione dettagliata del codice. Spiegazione:

↘Ｎ

Inserire un numero e stampare una linea diagonale di \s di quella lunghezza.

‖Ｍ↓

Rifletti la linea in verticale.

APL (NARS), 40 caratteri, 80 byte

{f←{⍺,⍨⍵⍴' '}⋄⊃('\'f¨k),('/'f¨⌽k←¯1+⍳⍵)}

test:

  h←{f←{⍺,⍨⍵⍴' '}⋄⊃('\'f¨k),('/'f¨⌽k←¯1+⍳⍵)}
  h 2
\ 
 \
 /
/ 
  h 5
\    
 \   
  \  
   \ 
    \
    /
   / 
  /  
 /   
/    

Retina 0.8.2 , 32 byte

.+
$* ¶$&$* 
\G.
¶$`\
r`.\G
$'/¶

Provalo online! Spiegazione:

.+
$* ¶$&$* 

Genera due linee di nspazi.

\G.
¶$`\

Trasforma la linea superiore in \diagonale.

r`.\G
$'/¶

Trasforma la linea di fondo in una /diagonale.

C (gcc) , 67 65 byte

-2 byte grazie a ceilingcat

f(n,i){for(i=~n;i++<n;)i&&printf("%*c\n",n-abs(i)+1,"/\\"[i<0]);}

Provalo online!

Python 2 , 85 84 81 80 75 byte

def a(n):l="for i in range(n):print' '*";exec l+"i+'\\\\'\n"+l+"(n+~i)+'/'"

Provalo online!

PowerShell , 50 byte

param($n)0..--$n|%{' '*$_+'\'}
$n..0|%{' '*$_+'/'}

Provalo online!

Cercherà di farlo in modo che passi attraverso il range solo una volta. Non male per il metodo no brain però.

Ramoscello, 115 byte

Costruisce la stringa all'indietro, "restituendola" alla fine.

Utilizza una macro per generare tutti i risultati.

{%macro a(N,s="")%}{%for i in N..1%}{%set s=('%'~i~'s
'~s~'%'~i~'s
')|format('\\','/')%}{%endfor%}{{s}}{%endmacro%}

Questa macro deve essere in un file e importata in questo modo:

{% import 'macro.twig' as a %}

{{ a.a(<value>) }}

Puoi provarlo su https://twigfiddle.com/5hzlpz (fai clic su "Mostra risultato non elaborato").

Haskell , 52 49 byte

-3 byte grazie allo Sriotchilism O'Zaic .

unlines.g
g 0=[]
g n="\\":map(' ':)(g$n-1)++["/"]

Provalo online!

MATL, 14 13 12 byte

Xy92*t45-Pvc

1 byte salvato grazie a @LuisMendo

Spiegazione

        % Implicitly grab the input as an integer
Xy      % Create an identity matrix this size
92*     % Multiply by 92 (ASCII for '\')
t       % Duplicate the matrix
45-     % Subtract 45 from every element yielding 47 (ASCII for '/') on the diagonal
        % and -45 everywhere else
P       % Vertically flip this matrix
v       % Vertically concatenate the two matrices
c       % Convert to characters (negative numbers are replaced with a space)
        % Implicitly display the result

Provalo su MATL Online

Python 3 , 90 83 byte

lambda n:'\n'.join([' '*i+'\\'for i in range(n)]+[' '*(n+~i)+'/'for i in range(n)])

Provalo online!

-7 byte grazie a @squid

Rockstar, 133 byte

Provalo online qui !

F takes N,S
If N is 0
Give back N

Say S+"\"
Let T be S+" "
Let M be N-1
F taking M,T
Say S+"/"

Listen to X
F taking X,""

Dato che Rockstar non è famoso per le operazioni sulle stringhe, ci vuole un sacco di codice per farlo (ricorsivamente era ancora più lungo).

La dimensione della freccia viene considerata come input.

PHP, 79 63 61 byte

function f($x,$s=''){if($x)echo"$s\\
",f($x-1,"$s "),"$s/
";}

Provalo online!

Ricorsivo in PHP.

-12 byte di @manatwork

\ / \ /> , 74 byte

jp100o
-84*}!o:?!x1
@+:q:p=?x:o~$:0(pa"\/"q?$~}}:
x2-:p$1-y$:0(?
.{suh?!;2

Spiegazione: (linee ruotate in base al punto iniziale)

jp100o                        //setup
:?!x1-84*}!                   //add leading spaces, loop and decrement until 0
~$:0(pa"\/"q?$~}}:@+:q:p=?x:o //add correct slash, go back to loop or switch sides
$:0(?x2-:p$1-y                //flip direction state or continue to print
{suh?!;2.                     //remove extra data and print stack

Python 3 , 55 byte

f=lambda n,i="":n and i+"\\\n"+f(n-1,i+" ")+i+"/\n"or""

Provalo online!

Python 2, 63 bytes

f=lambda n,s='':n and f(n-1,~-n*' '+'\\\n'+s+~-n*' '+'/\n')or s

Try it online!

Stax, 10 bytes

Ç₧¥╗M'gQ9⌂

Run and debug it

SimpleTemplate, 100 bytes

This was quite a fun challenge, but some bugs in the language made it hard to optimize.

{@set_ argv.0}{@while_}{@callstr_repeat intoS" ",_}{@setO S,"\\\n",O,S,"/\n"}{@incby-1_}{@/}{@echoO}

Basically, cycles throught the values backwards, working the string from the middle out.

How the answer should be

Due to the bugs, the code wasn't being interpreted properly.

This is how the code would be, if the compiler didn't had any bug (86 bytes):

{@forfrom argv.0to0step-1}{@callrepeat intoS" ",_}{@setO S,"\\
",O,S,"/
"}{@/}{@echoO}

Oh, well, at least the solution works :x

JavaScript (Node.js), 42 bytes (If trailing new line is allowed)

n=>(F=s=>n--?s+`\\
`+F(s+" ")+s+`/
`:"")``

Try it online!

JavaScript (Node.js), 48 46 bytes

n=>(F=s=>s+`\\
${--n?F(s+" ")+`
`:""}${s}/`)``

Try it online!