为了打高尔夫球，我一直在女友的Python入门课程中做作业。我发现，对于这项任务，有多种策略在字符数方面非常接近，我敢肯定，这里的人们可以找到更好的方法。尽管我对使用Python进行此操作的方式最感兴趣，但是我想知道该程序可以得到的最多帮助，因此这是代码保护和最短答案的获胜。

规则：

任务概述如下。尽管提示不必说什么，并且可以以不同的顺序进行，但应要求用户输入两次。

有标准漏洞。

作业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

现场演示。

珀斯，27岁

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

在线尝试

这里的基本思想是构建一个字符串，例如5，如下所示：

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

如果得到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。我们减去一个是因为每个列也都有一个，*并且我们只对需要多少空格感兴趣。
• 如果输入的值为a 1，则打印*并退出-脚本的其余部分没有影响。⁺
• 下一节将首先获取方向和试验是否是-eqUAL到l，然后创建基于索引的阵列成基于所述值动态生成的数组的数组$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列箭头的方向（我认为不是），我们可以Read-Host通过重新引入$d变量106来交换和的位置并丢失更多字节：

$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字节

感谢@ThomasKwa进行了正确的字节计算并打了10个字节。

在我的TI-84 +银版上进行了测试。

第一次提交TI-BASIC，欢迎打高尔夫球（我不知道很多技巧）。如果名称在显示的内存中起重要作用，则该字符为3个字符而不是1个字符（我查看了计算器本身的字节数）。该程序受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)+'*'}

注意 如果要再次运行它，请打开新的PowerShell，或rv o重置变量状态。

与其他人相比，这很痛苦。[比122受伤的伤少[97]。它分为两个部分，两个都不奇怪。读取许多列，使用array-index-ternary-operator-substitute来获取偏移量，并通过从该偏移量开始的wave函数运行（并进行调整，以免发生变化mod 0）。

（还有，我真是在那个wave函数上花了很长时间了，无法发现我的误解，并输入所有不是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);

创建两个数组，如下所示：

$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字节

感谢@beaker为我节省了9个字节。

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{ -当然是两次...

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循环中，但只提示一次，那么我可能可以节省一些字节。

编辑：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))+"*"