仕様書

数値を指定するとn、>サイズがASCIIの「ミーム矢印」（より大記号）を出力しますn。

n 常に0より大きい正の整数になります。

例

n = 2

\
 \
 /
/

n = 5

\
 \
  \
   \
    \
    /
   /
  /
 /
/

サンプルコード

以下は、正しい結果を返す、Crystalで作成されたサンプルプログラムです。として実行します./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)

ルール

• これはcode-golfです。最短の答えが勝ちです。ただし、最短の回答は時間とともに変化する可能性があるため、回答を選択しません。
• 標準の抜け穴は許可されていません。

Canvas、2 バイト

＼═

ここで試してみてください！

C（gcc）、56バイト

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

オンラインでお試しください！

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バイト

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

オンラインでお試しください！

末尾に改行を付けて出力します。

05AB1E、6バイト

'\3.Λ∊

オンラインでお試しください！

説明

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

C＃（Visual C＃Interactive Compiler）、66バイト

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

@someoneのおかげで1バイト節約できました。

オンラインでお試しください！

C64Mini / C64 BASIC（およびその他のCBM BASICバリアント）、52個のトークン化されたBASICバイトが使用されます

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

エクスパプランションの難読化されていないバージョンは次のとおりです。

 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

N行0に入力された数値は、TABコマンドのインデックスがゼロになるため1つ減ります。FOR/NEXT〜4及び5を介してライン2のループ上部および下部出力次いで七介してIF meme矢印はそれぞれ（シフトで表されるMとシフトNグラフィクスモードでソース）

ルビー、111 99 77 73 68 64 57 56バイト

Benjamin Urquhartに -12バイト、manatworkに-43 バイト、Value Inkに -2バイト。

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

オンラインでお試しください！

説明：

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

代替（ただしより長い）ソリューション

友人がこの答えを読んでから、さらに2、3のアプローチを考え出そうとしました。広大なインターウェブに負けないように、ここにも配置します。

挿入およびシフト解除、72バイト

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

オンラインでお試しください！

downto、注入およびシフト解除、80バイト

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

オンラインでお試しください！

興味深い、2つの非ネストループ、127バイト

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

オンラインでお試しください！

Perl 5、36 -pバイト

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

オンラインでお試しください！

T-SQLコード、80バイト

DECLARE @ INT=3

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

オンラインで試す

T-SQLクエリ、96バイト

この作業をオンラインで行うには、いくつかの小さな変更を行う必要がありました。行の先頭のスペースはオンラインスニペットに表示されません。そのため、代わりにascii 160を使用しています。Management Studioで実行する場合、設定を変更して結果をテキストとして表示することができます。これにより、この投稿されたスクリプトに正しいスペースが作成されます。

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

オンラインで試す

PowerShell、44 41バイト

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

オンラインでお試しください！

MarioLANG、719 677バイト

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

オンラインでお試しください！

これは予想よりも大変でした...

brainfuck、125バイト

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

オンラインでお試しください！

++++++++++[->+>+++++++++>+++<<<]>>++>++>    ; 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
]

木炭、5バイト

↘Ｎ‖Ｍ↓

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

↘Ｎ

数値を入力し、\その長さのsの対角線を印刷します。

‖Ｍ↓

線を垂直に反射します。

APL（NARS）、40文字、80バイト

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

テスト：

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

Retina 0.8.2、32バイト

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

オンラインでお試しください！説明：

.+
$* ¶$&$* 

2行のnスペースを生成します。

\G.
¶$`\

上の線を\対角線に変えます。

r`.\G
$'/¶

一番下の行を/対角線に変えます。

C（gcc）、67 65バイト

ceilingcatのおかげで-2バイト

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

オンラインでお試しください！

パイソン2、85の 84 81 80 75バイト

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

オンラインでお試しください！

PowerShell、50バイト

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

オンラインでお試しください！

範囲を1回だけ通過するように検討します。しかし、脳なしの方法には悪くありません。

小枝、115バイト

文字列を逆方向に構築し、最後に「返す」。

マクロを使用して、すべての結果を生成します。

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

このマクロはファイル内にあり、次のようにインポートする必要があります。

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

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

https://twigfiddle.com/5hzlpzで試すことができます（「Show raw result」をクリックします）。

Haskell、52 49バイト

Sriotchilism O'Zaicのおかげで-3バイト。

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

オンラインでお試しください！

MATL、14 13 12バイト

Xy92*t45-Pvc

@LuisMendoのおかげで1バイト節約

説明

        % 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

MATL Onlineで試してみてください

Pythonの3、90 83バイト

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

オンラインでお試しください！

@squidのおかげで-7バイト

ロックスター、133バイト

こちらからオンラインでお試しください！

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

ロックスターは文字列操作で有名ではないため、それを行うには比較的多くのコードが必要です（再帰的にさらに長くなりました）。

矢印のサイズが入力として取得されます。

PHP、79 63 61バイト

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

オンラインでお試しください！

PHPで再帰的。

-12バイトによって@manatwork

\ / \ />、74バイト

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

説明：（開始点に基づいて回転した線）

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バイト

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

オンラインでお試しください！

Python 2、63バイト

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

オンラインでお試しください！

スタックス、10 バイト

Ç₧¥╗M'gQ9⌂

実行してデバッグする

SimpleTemplate、100バイト

これは非常に楽しい挑戦でしたが、言語のいくつかのバグにより最適化が困難になりました。

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

基本的に、値を逆方向に循環させ、文字列を真ん中から順に処理します。

答えはどうあるべきか

バグが原因で、コードが正しく解釈されていませんでした。

コンパイラーにバグがなかった場合（86バイト）のコードは次のようになります。

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

ああ、まあ、少なくともソリューションは動作します：x

JavaScript（Node.js）、42バイト（末尾の改行が許可されている場合）

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

オンラインでお試しください！

JavaScript（Node.js）、48 46バイト

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

オンラインでお試しください！