Đối với việc luyện tập chơi gôn, tôi đã thực hiện các bài tập trong lớp Giới thiệu của bạn gái tôi. Tôi thấy rằng đối với nhiệm vụ này, có nhiều chiến lược rất gần với số lượng nhân vật và tôi chắc chắn mọi người ở đây có thể tìm thấy những cách thậm chí tốt hơn. Mặc dù tôi quan tâm nhất đến các cách để làm điều này trong Python, tôi muốn biết môn golf nào nhất mà chương trình này có thể nhận được, do đó đây là môn đánh gôn và câu trả lời ngắn nhất sẽ thắng.

Những quy định:

Nhiệm vụ được nêu dưới đây. Người dùng nên được yêu cầu nhập hai lần, mặc dù các lời nhắc không phải nói bất cứ điều gì và có thể theo một thứ tự khác.

Tiêu chuẩn áp dụng.

Bài tập 3: Mũi tên

Viết chương trình nhắc người dùng về một số cột và chúng in mẫu như hình dưới đây. Bạn có thể giả định rằng người dùng sẽ cung cấp số dương. Chương trình của bạn nên xử lý cả mũi tên trái và phải. Dưới đây là một vài ví dụ mẫu:

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

Bình thường, 23 byte

Có thể hoặc không thể hợp lệ, dựa trên câu trả lời cho nhận xét này . Bất kể, tôi thấy điều này gọn gàng, và, nếu nó không hợp lệ, các câu trả lời Pyth khác cũng không hợp lệ. ;) Chà, nó hợp lệ , vì rõ ràng là tôi đã bỏ lỡ điều hiển nhiên. : /

EDIT: TÔI S !!!! !!!! CÓ Lần đầu tiên! : D

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

Bản thử trực tiếp.

Bình thường, 27

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

Dùng thử trực tuyến

Ý tưởng cơ bản ở đây là xây dựng một chuỗi, ví dụ 5, trông như thế này:

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

Và sau đó lật ngược nó nếu chúng ta lấy llàm đầu vào. Sau đó, chúng tôi lấy tất cả trừ những input-1dòng cuối cùng của chuỗi này và in ra.

Python 2, 81 79 byte

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

Vẫn có thể chơi được, nhưng chúng ta sẽ thấy :)

Bình thường, 30 28 27 byte

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

Hãy thử trực tuyến.

Rõ ràng tôi hiện đang bị ràng buộc với FryAmTheEggman với một cách tiếp cận hoàn toàn khác. (Tôi nghĩ rằng người ta thật tài tình.)

Thí dụ

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

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

Giải trình

 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 byte

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

• Lấy các cột, lưu trữ nó trong $c. Chúng tôi trừ đi một vì mỗi cột cũng có một *và chúng tôi chỉ quan tâm đến việc có bao nhiêu khoảng trống được yêu cầu.
• Nếu giá trị được nhập là a 1, in *và thoát - phần còn lại của tập lệnh sẽ không tạo ra sự khác biệt. ⁺
• Phần tiếp theo đầu tiên được sự chỉ đạo và kiểm tra cho dù đó là -equal tới l, sau đó tạo ra một mảng dựa trên chỉ mục vào một mảng của mảng tự động tạo ra dựa trên giá trị của $c. Ma thuật. Về cơ bản, đây là số lượng khoảng trống trên mỗi dòng chúng ta cần.
• Ví dụ, cho 5 rbộ sưu tập này sẽ tổ chức (0,1,2,3,4,3,2,1,0).
• Đưa mảng và chuyển nó thành một %vòng lặp Foreach-Object , trong đó chúng ta xuất ra một chuỗi số X khoảng trắng, sau đó là*

Ví dụ sử dụng:

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

_{Chỉnh sửa - loại bỏ biến $ebằng cách đặt trực tiếp bộ sưu tập
Edit2 - tài khoản chính xác cho 1 cột, ngay bây giờ}

⁺ Nếu vẫn bắt buộc phải lấy đầu vào cho hướng mũi tên 1 cột (tôi cho rằng không phải vậy), chúng ta có thể trao đổi vị trí của Read-Hostvà mất thêm một vài byte bằng cách giới thiệu lại $dbiến, cho 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 byte

Cảm ơn @ThomasKwa vì đã tính toán byte chính xác và chơi golf 10 byte .

Đã thử nghiệm trên phiên bản TI-84 + Silver của tôi.

Lần gửi TI-BASIC đầu tiên, đề xuất chơi gôn được chào đón (Tôi chưa biết nhiều thủ thuật). Nếu tên đóng một yếu tố trong bộ nhớ được hiển thị, thì cái này có 3 ký tự thay vì 1 (Tôi đã xem số byte trên máy tính của mình). Chương trình này bị giới hạn bởi các outputhạn chế của chức năng (tôi nghĩ là mũi tên có độ dài 4), nhưng tôi có thể có thể chuyển sang text, hiển thị bằng đồ họa nếu độ dài quá thấp.

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

Lưu ý rằng điều này cũng không xóa màn hình hoặc tạm dừng nó.

Tôi thực sự cảm thấy như phương trình tôi đang sử dụng có thể được đánh gôn nhiều hơn. Nó cũng cảm thấy rất sai khi loại trừ dấu ngoặc kép kết thúc.

Python 2, 89 byte

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

Hoạt động gần như giống hệt với câu trả lời Pyth của tôi, chỉ cần tính toán số lượng không gian chính xác khi đang bay.

PowerShell, 104 102 97 byte

# 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)+'*'}

Lưu ý nếu bạn muốn chạy lại, hãy mở PowerShell mới hoặc rv ođể đặt lại trạng thái biến.

So với cách những người khác ngắn gọn, điều này đau. [Đau ít hơn 97 so với lúc 122]. Hai phần của nó, không ai trong số họ rất ngạc nhiên; đọc một số cột, sử dụng bộ thay thế toán tử-chỉ số-toán tử mảng để lấy phần bù và chạy qua hàm sóng bắt đầu từ phần bù (và một điều chỉnh để nó không bị đổ khi thực hiện mod 0).

(Và ouch tôi đã dành nhiều năm cho chức năng sóng đó, không thể phát hiện ra sự hiểu lầm của mình và gõ tất cả các parens không phải là LISP-, trung thực).

Python 2, 98 89 byte

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

Dài hơn một chút.

Sử dụng

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

Perl, 85 byte

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

Sử dụng:

perl 59874.pl <<< '6
r'

PHP, 156 byte

<?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ạo hai mảng, như thế này:

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

sau đó sử dụng liên kết mảng $s+$thoặc $t+$sđể kết hợp chúng và array_spliceloại bỏ phần tử ở giữa. Cuối cùng đầu ra bằng cách sử dụng<?=join()

Con trăn 2, 111 109 104 byte

Giải pháp khá đơn giản. Tôi chắc chắn rằng nó có thể được chơi gôn nhiều hơn. Đối với những người không biết, ~x+ncũng giống như 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," ")

Dùng thử trực tuyến

Chỉnh sửa : Điều này đã được đánh gôn vào dòng cuối cùng:

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

Matlab, 109 105 96 byte

Cảm ơn @beaker đã tiết kiệm cho tôi 9 byte .

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 byte

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{ - hai lần, tất nhiên ...

l,d=gets.split; - nhận đầu vào

l=l.to_i; - thay đổi độ dài thành số nguyên

a=(d=="r"?(0..l-1):(l-1).downto(0)).to_a; - tạo một mảng từ phạm vi 0 đến chiều dài

(a+a[0..-2].reverse).each{|x| puts "#{' '*x}*"} - Lặp lại, biến thành chuỗi để làm mũi tên

Không chính xác là golf vĩ đại nhất từng có, nhưng, hey.

PowerShell, 98 94 byte

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

Nếu tôi có thể tìm cách đặt Read-Host cho hướng bên trong vòng lặp đối tượng foreach nhưng chỉ nhắc cho nó một lần tôi có thể lưu một vài byte.

Chỉnh sửa: 94 byte. Thay vì kiểm tra bên trái, kiểm tra bên phải (đơn giản hóa vòng lặp).

98 byte gốc:

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

> <> , 60 byte

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

2 byte lãng phí ở dòng dưới cùng, thật khó chịu!

Do cách thức hoạt động của đầu vào trong> <>, không thể 'chờ' cho đầu vào - i lệnh sẽ kiểm tra xem một ký tự đầu vào có sẵn trên STDIN không. Nếu có, nó sẽ đẩy giá trị ASCII của ký tự đó và đẩy -1 nếu không.

Điều này có nghĩa là, để sử dụng chương trình này, số lượng và hướng phải sẵn sàng trên STDIN, ví dụ: 3r đối với mũi tên cỡ 3 chỉ về bên phải. Tôi không chắc nếu điều đó không đủ điều kiện cho mục này, hãy cho tôi biết suy nghĩ của bạn: o)

Tôi cũng sẽ viết một mô tả nếu bất cứ ai muốn một.

PHP, 154 byte

Nó trông thực sự lặp đi lặp lại, nhưng nó thực hiện mong muốn:

$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);

Chạy từ dòng lệnh như:

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

Python, 88 byte

Đã chỉnh sửa

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