ゴルフの練習のために、私は私のガールフレンドのPython入門クラスで課題を行っています。この割り当てには、文字数が非常に近い複数の戦略があり、ここの人々はさらに良い方法を見つけることができると確信しています。私はPythonでこれを行う方法に最も興味がありますが、このプログラムが得ることができる最もゴルフを知りたいので、これはコードゴルフであり、最短回答が勝ちます。

ルール：

割り当ての概要は以下のとおりです。ユーザーは2回入力するように求められる必要がありますが、プロンプトは何も言わなくてもよく、別の順序でもかまいません。

標準の抜け穴が適用されます。

課題3：矢印

ユーザーに複数の列の入力を求めるプログラムを作成すると、次のようにパターンが印刷されます。ユーザーが正数を提供すると想定できます。プログラムは、左矢印と右矢印の両方を処理する必要があります。以下にいくつかのサンプルランニングを示します。

How many columns? 3
Direction? (l)eft or (r)ight: r
*
 *
  *
 *
*
How many columns? 5
Direction? (l)eft or (r)ight: l
    *
   *
  *
 *
*
 *
  *
   *
    *

Pyth、23バイト

このコメントに対する回答に基づいて、有効である場合と無効である場合があります。とにかく、私はこのきちんとしたものを見つけました、そして、それが無効であるなら、他のPyth答えも無効です。;）まあ、それは有効です。：/

編集：私は勝ちました!!!! はい!!!! 初めて！：D

j+_J_Wqz\r.e+*dkb*\*QtJ

ライブデモ。

Pyth、27

j<tQ_Wqz\l++Jm+*\ d\*Q_PJtJ

オンラインで試す

ここでの基本的な考え方は、たとえば5のような1つの文字列を作成することです。

*
 *
  *
   *
    *
   *
  *
 *
*
 *
  *
   *
    *

そして、l入力として取得した場合は、上下を逆にします。次にinput-1、この文字列の最後の行を除くすべてを取得して出力します。

Python 2、81 79バイト

c=input()
r=1
l=0
exec"print' '*(%sabs(c-r))+'*';r+=1;"%("c+~"*input())*(2*c-1)

まだゴルフ可能かもしれませんが、私たちは見るでしょう:)

Pyth、30 28 27バイト

VtyQ+*+*tQJqz\r_WJ.a-hNQd\*

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

どうやら私は現在、まったく異なるアプローチでFryAmTheEggmanと結びついています。（私は独創的だと思います。）

例

$ python pyth.py spa.p
r
3
*
 *
  *
 *
*

$ python pyth.py spa.p
l
5
    *
   *
  *
 *
*
 *
  *
   *
    *

説明

 tyQ                              (columns * 2) - 1
V                               loop N through range(the above)
        tQ                                columns - 1 (maximum number of spaces)
       *                                multiplied by
           qz\r                           1 if direction == "r" else 0
          J                               also save that 1 or 0 to J
      +                               plus
                  .a-hNQ                    abs(N - columns + 1)
               _WJ                      negate that if direction == "r"
     *                  d           that many spaces
    +                    \*       add the star and print

PowerShell、91 85 102バイト

$c=(Read-Host)-1;if(!$c){"*";exit}(@(0..$c+($c-1)..0),@($c..0+1..$c))[(Read-Host)-eq'l']|%{" "*$_+"*"}

• 列を取得し、に保存し$cます。各列にもがあり*、必要なスペースの数にのみ関心があるため、1を減算します。
• 入力した値がであった場合1、印刷*して終了します-スクリプトの残りの部分は違いはありません。⁺
• 次のセクションでは、最初に方向を取得-eqしl、それがualであるかどうかをテストし、次にの値に基づいて動的に生成された配列の配列へのインデックスに基づいて配列を作成します$c。魔法。基本的に、これは行ごとに必要なスペースの数です。
• たとえば、5 rこのコレクションではが保持され(0,1,2,3,4,3,2,1,0)ます。
• 配列を取得してForeach-Object %ループにパイプし、X個のスペースの文字列を出力してから、*

使用例：

PS C:\Tools\Scripts\golfing> .\simple-printing-arrows.ps1
6
r
*
 *
  *
   *
    *
     *
    *
   *
  *
 *
*

_{編集- $eコレクションを直接パイピングすることにより変数を削除しました
Edit2-1列を正しく説明するようになりました。}

⁺ 1列矢印の方向の入力がまだ必須である場合（そうではないと主張します）、106の変数をRead-Host再導入することで、位置を入れ替えて、さらに2バイトを失うことができます。$d

$c=(Read-Host)-1;$d=Read-Host;if(!$c){"*";exit}(@(0..$c+($c-1)..0),@($c..0+1..$c))[$d-eq'l']|%{" "*$_+"*"}

TI-BASIC、75 65 57 54 50 47バイト

正しいバイト計算と10バイトのゴルフをしてくれた@ThomasKwaに感謝します。

TI-84 + Silver Editionでテスト済み。

最初のTI-BASIC提出、ゴルフの提案を歓迎します（まだ多くのトリックは知りません）。名前が表示されているメモリの要素を果たしている場合、これは1ではなく3文字でした（電卓自体でバイトカウントを確認しました）。このプログラムは、output関数の制限によって制限されています（長さ4の矢印と思います）textが、長さが短すぎる場合はグラフィカルに表示される可能性があります。

Prompt L,Str1
Str1="R
For(I,1,2L-1
Output(I,(1-2Ans)abs(I-L)+AnsL+1,"*
End

これは、画面をクリアしたり一時停止したりしないことにも注意してください。

私が使っている方程式はもっとゴルフができると本当に感じています。また、終了引用符を除外するのは非常に間違っていると感じています。

Python 2、89バイト

c=input()-1
d=raw_input()>'l'
for j in range(2*c+1):print' '*(d*c-(2*d-1)*abs(c-j))+'*'

Pythの答えとほぼ同じように機能し、その場で正しいスペースの数を計算するだけです。

PowerShell、104102 97バイト

# 97 version:
$o=@(($c=(read-host)-1))[(read-host)-eq'l'];($j=2*$c)..0|%{' '*[Math]::Abs($o++%($j+!$j)-$c)+'*'}

3
r
*
 *
  *
 *
*

# Previous 102 version:
$o=@(($c=(read-host)-1))[(read-host)-eq'l'];(2*$c)..0|%{
' '*[Math]::Abs($o++%(2*($c+(!$c+0)))-$c)+'*'}

NB。再度実行する場合は、新しいPowerShellを開くかrv o、変数の状態をリセットします。

他の人がどれほど簡潔であるかと比較すると、これは痛い。[122の場合よりも97の場合の方が痛くない]。それには2つの部分がありますが、どちらも非常に驚くべきことではありません。多数の列を読み取り、array-index-ternary-operator-substituteを使用してオフセットを取得し、オフセットで始まる波動関数を実行します（調整を行わないように調整しmod 0ます）。

（そして、私はその波動関数に何年も費やしましたが、私の誤解を見つけられず、LISPではない、正直な括弧をすべて入力しました）。

Python 2、98 89バイト

f=[' '*n+'*'for n in range(input())]
if'l'==input():f=f[::-1]
print'\n'.join(f+f[-2::-1])

もう少し長い。

使用法

$ python2 test.py
3
"l"
  *
 *
*
 *
  *

Perl、85バイト

($-,$_)=<>;$,=$/;@}=map$"x$_.'*',0..--$-;@}=reverse@}if/l/;print@},map$}[$--$_],1..$-

使用法：

perl 59874.pl <<< '6
r'

PHP、156バイト

<?for($c=1+fgets(STDIN);--$c;$s[-$c]=$t[]=sprintf("%{$c}s","*"));arsort($s);$a=fgetc(STDIN)==r?$s+$t:$t+$s;array_splice($a,count($a)/2,1)?><?=join("
",$a);

次のような2つの配列を作成します。

$t = [
    0 => "  *"
    1 => " *"
    2 => "*"
]
$s = [
    -1 => "*"
    -2 => " *"
    -3 => "  *"
]

次に、配列ユニオンを使用する$s+$tか$t+$s、それらを結合しarray_spliceて、中央の要素を削除します。最後に使用して出力<?=join()

Python 2、111 109 104バイト

非常にシンプルなソリューション。もっとゴルフができると確信しています。知らない人にとって~x+nは、と同じn-1-xです。

n=input()
r=range(n)
r+=r[-2::-1]
for i in[r,[~x+n for x in r]]['r'>raw_input()]:print"*".rjust(i+1," ")

オンラインで試す

編集：これは最後の行にゴルフされました：

if'r'>d:r=[~x+n for x in r]
for i in r:print"*".rjust(i+1," ")

MATLAB、109の 105 96バイト

9バイト節約してくれた@beakerに感謝します。

x=eye(input(''));if(input('','s')<114),x=fliplr(x);end
x=x*10+32;disp(char([x;x(end-1:-1:1,:)]))

Ruby、118バイト

2.times{l,d=gets.split;l=l.to_i;a=(d=="r"?(0..l-1):(l-1).downto(0)).to_a;(a+a[0..-2].reverse).each{|x| puts "#{' '*x}*"}}

2.times{ -もちろん2回...

l,d=gets.split; -入力を取得する

l=l.to_i; -長さを整数に変更

a=(d=="r"?(0..l-1):(l-1).downto(0)).to_a; -0から長さの範囲の配列を作成します

(a+a[0..-2].reverse).each{|x| puts "#{' '*x}*"} -繰り返し、矢印を作るために文字列に変わります

これまでで最高のゴルフではありませんが、ちょっと。

PowerShell、98 94バイト

$c=(Read-Host)-1;$d=Read-Host;if($c){$c..0+1..$c|%{if($d-eq'r'){$_=$c-$_}' '*$_+'*'}}else{'*'}

foreach-objectループ内に指示用のRead-Hostを配置する方法を見つけることができたが、一度だけプロンプトを出すことができれば、数バイトを保存できるかもしれません。

編集：94バイト。左をテストする代わりに、右をテストします（ループを簡素化します）。

元の98バイト：

$c=(Read-Host)-1;$d=Read-Host;if($c){0..$c+($c-1)..0|%{if($d-eq'l'){$_=$c-$_}' '*$_+'*'}}else{'*'}

> <>、60バイト

i"1l"i=&-:&*&:?!\:1-:}c0.
~/?:<-$?&::&;!?l<oao"*"
1/  \o" "-

一番下の行に2つの無駄なバイトがあります。

入力が> <>でどのように機能するかにより、入力を「待機」することはできません。iコマンドは、STDINで入力文字が使用可能かどうかをチェックします。存在する場合、その文字のASCII値をプッシュし、存在しない場合は-1をプッシュします。

これは、このプログラムを使用するために、番号と方向がSTDINで既に準備されている必要があることを意味します。たとえば3r、右を指すサイズ3の矢印の場合です。それがこのエントリを失格にするかどうかはわかりません、あなたの考えを教えてください：o）

誰かが説明したい場合は、説明も書きます。

PHP、154バイト

それは本当に反復的に見えますが、望ましいことをします：

$c=$argv[1];$b=l==$argv[2]?1:0;$a=$b?$c:-1;function a($a){echo strrev(str_pad('*',$a))."\n";}while($b?--$a:++$a<$c)a($a+1);while($b?++$a<=$c:1<$a--)a($a);

次のようなコマンドラインから実行します。

php arrow.php 5 l
php arrow.php 5 r

Python、88バイト

編集済み

n=input()-1
x=raw_input()>'l'
for i in range(2*n+1):print" "*(n*x+(-1)**x*abs(n-i))+"*"