Spezifikationen

Geben Sie unter Angabe einer Zahl neinen ASCII-Meme-Pfeil (Größer-als-Symbol >) mit der Größe aus n.

n wird immer eine positive ganze Zahl größer als 0 sein.

Beispiele

n = 2

\
 \
 /
/

n = 5

\
 \
  \
   \
    \
    /
   /
  /
 /
/

Beispielcode

Hier ist ein in Crystal geschriebenes Beispielprogramm, das die richtigen Ergebnisse zurückgibt. Führen Sie es als ./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)

Regeln

• Das ist Code-Golf . Die kürzeste Antwort gewinnt. Ich werde jedoch keine Antwort auswählen, da sich die kürzeste Antwort mit der Zeit ändern kann.
• Standardlücken sind nicht erlaubt.

Canvas , 2 Bytes

＼═

Probieren Sie es hier aus!

C (gcc) , 56 Bytes

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

Probieren Sie es 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 Bytes

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

Probieren Sie es online!

Ausgaben mit einer nachgestellten Newline.

05AB1E , 6 Bytes

'\3.Λ∊

Probieren Sie es online!

Erläuterung

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

C # (Visual C # Interactive Compiler) , 66 Byte

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

Dank @someone ein Byte gespeichert.

Probieren Sie es online!

C64Mini / C64 BASIC (und andere CBM BASIC-Varianten), 52 tokenisierte BASIC-Bytes werden verwendet

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

Hier ist die nicht verschleierte Version zur Exaplantion:

 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

Jede Zahl, die Nin Zeile Null eingegeben wird, wird um eins reduziert, wenn der TABBefehl mit Nullindex versehen wird. Die FOR/NEXTSchleifen in den Zeilen zwei bis vier und fünf bis sieben geben dann den oberen und unteren Teil des memePfeils aus (dargestellt durch eine im Grafikmodus verschobene Mund eine Nim Grafikmodus verschobene Quelle ).

Ruby , 111 99 77 73 68 64 57 56 Bytes

-12 Bytes dank Benjamin Urquhart , -43 dank Manatwork und -2 Bytes dank Value Ink .

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

Probieren Sie es online!

Erläuterung:

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
  )
}

Alternative (aber längere) Lösungen

Ein Freund las diese Antwort und versuchte dann, ein paar weitere Ansätze zu finden. Stellen Sie sie auch hierher, damit sie nicht für die riesigen Interwebs verloren gehen.

Injizieren und Entladen, 72 Bytes

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

Probieren Sie es online!

Downto, Inject und Unshift, 80 Bytes

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

Probieren Sie es online!

faszinierend, zwei nicht verschachtelte Schleifen, 127 Bytes

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

Probieren Sie es online!

Perl 5 -p , 36 Bytes

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

Probieren Sie es online!

T-SQL-Code, 80 Byte

DECLARE @ INT=3

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

Probieren Sie es online aus

T-SQL-Abfrage, 96 Byte

Um diese Arbeit online zu machen, musste ich einige kleinere Änderungen vornehmen. Leerzeichen am Anfang einer Zeile werden im Online-Snippet nicht angezeigt. Also benutze ich stattdessen ASCII 160. Wenn Sie in Management Studio ausgeführt werden, können Sie die Einstellungen so ändern, dass das Ergebnis als Text angezeigt wird. Dies würde zu den richtigen Leerzeichen in diesem bereitgestellten Skript führen.

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

Probieren Sie es online aus

PowerShell , 44 bis 41 Byte

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

Probieren Sie es online!

MarioLANG , 719 677 Bytes

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

Probieren Sie es online!

Das war schwieriger als erwartet ...

Brainfuck , 125 Bytes

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

Probieren Sie es 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
]

Kohle , 5 Bytes

↘Ｎ‖Ｍ↓

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Erläuterung:

↘Ｎ

Geben Sie eine Zahl ein und drucken Sie eine diagonale Linie von \s dieser Länge.

‖Ｍ↓

Spiegeln Sie die Linie vertikal.

APL (NARS), 40 Zeichen, 80 Byte

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

Prüfung:

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

Retina 0.8.2 , 32 Bytes

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

Probieren Sie es online! Erläuterung:

.+
$* ¶$&$* 

Erzeugen Sie zwei Zeilen mit nLeerzeichen.

\G.
¶$`\

Verwandle die obere Linie in eine \Diagonale.

r`.\G
$'/¶

Verwandle die untere Linie in eine /Diagonale.

C (gcc) , 67 65 Bytes

-2 Bytes dank Ceilingcat

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

Probieren Sie es online!

Python 2 , 85 84 81 80 75 Bytes

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

Probieren Sie es online!

PowerShell , 50 Byte

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

Probieren Sie es online!

Ich werde versuchen, es so zu machen, dass es den Bereich nur einmal durchläuft. Nicht schlecht für die No-Brain-Methode.

Zweig, 115 Bytes

Erstellt den String rückwärts und gibt ihn am Ende "zurück".

Verwendet ein Makro, um alle Ergebnisse zu generieren.

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

Dieses Makro muss sich in einer Datei befinden und folgendermaßen importiert werden:

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

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

Sie können es auf https://twigfiddle.com/5hzlpz versuchen (klicken Sie auf "Rohergebnis anzeigen").

Haskell , 52 49 Bytes

-3 Bytes dank Sriotchilism O'Zaic .

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

Probieren Sie es online!

MATL, 14 13 12 Bytes

Xy92*t45-Pvc

1 Byte gespart dank @LuisMendo

Erläuterung

        % 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

Probieren Sie es bei MATL Online aus

Python 3 , 90 83 Bytes

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

Probieren Sie es online!

-7 Bytes dank @squid

Rockstar, 133 Bytes

Probieren Sie es hier online aus !

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,""

Da Rockstar nicht für String-Operationen bekannt ist, ist relativ viel Code erforderlich (rekursiv sogar länger).

Die Größe des Pfeils wird als Eingabe verwendet.

PHP ,79 63 61 Bytes

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

Probieren Sie es online!

In PHP rekursiv.

-12 Bytes von @manatwork

\ / \ /> 74 Bytes

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

Erläuterung: (Linien gedreht basierend auf dem Startpunkt)

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 Bytes

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

Probieren Sie es online!

Python 2 , 63 Bytes

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

Probieren Sie es online!

Stax , 10 Bytes

Ç₧¥╗M'gQ9⌂

Führen Sie es aus, und debuggen Sie es

SimpleTemplate , 100 Byte

Dies war eine ziemlich lustige Herausforderung, aber einige Fehler in der Sprache erschwerten die Optimierung.

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

Grundsätzlich werden die Werte rückwärts durchlaufen, wobei die Zeichenfolge von der Mitte nach außen abgearbeitet wird.

Wie die Antwort sein sollte

Aufgrund der Fehler wurde der Code nicht richtig interpretiert.

So wäre der Code, wenn der Compiler keinen Fehler hätte (86 Bytes):

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

Na ja, zumindest funktioniert die Lösung: x

JavaScript (Node.js) , 42 Bytes (Wenn nachfolgende neue Zeile erlaubt ist)

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

Probieren Sie es online!

JavaScript (Node.js) , 48 46 Bytes

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

Probieren Sie es online!