골프 연습을 위해 여자 친구의 Intro to 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 답변도 유효하지 않습니다. ;) 글쎄, 그것은 명백하게 명백한 것을 놓 쳤기 때문에 유효합니다 . : /

편집 : 나는 !!!! 예 !!!! 처음으로! :디

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

라이브 데모.

피스, 27

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

온라인으로 사용해보십시오

여기서 기본 아이디어는 5와 같이 하나의 문자열을 작성하는 것입니다.

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

l입력 값을 받으면 거꾸로 뒤집습니다 . 그런 다음 input-1이 문자열 의 마지막 줄을 제외하고 모두 인쇄합니다.

파이썬 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다음의 값에 기초하여 동적으로 생성 된 배열의 배열 인덱스에 기초한 배열을 생성 $c. 마법. 기본적으로 이것은 라인 당 필요한 공간의 수입니다.
• 예를 5 r들어이 컬렉션의 경우 hold (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다시 도입하여 106 의 위치를 바꾸고 몇 바이트를 잃을 수 있습니다 .$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

또한 화면을 지우거나 일시 중지하지 않습니다.

나는 내가 사용하는 방정식을 더 골프화 할 수있는 것처럼 느낍니다. 또한 종료 따옴표를 제외하는 것이 잘못되었다고 느낍니다.

파이썬 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에서 덜 허드]. 그것의 두 부분, 그들 중 어느 것도 놀랍지 않습니다. 많은 열을 읽고 array-index-ternary-operator-substitute를 사용하여 오프셋을 가져오고 오프셋에서 시작 하여 웨이브 함수를 실행 합니다 (그리고 조정하여 수행하지 않습니다 mod 0).

(그리고 나는 그 파동 함수에 나이를 먹었고, 나의 오해를 발견 할 수 없었고, 모든 것이 비정형 적이며, 정직한 Parens를 타이핑했습니다).

파이썬 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"
  *
 *
*
 *
  *

펄, 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()

파이썬 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,:)]))

루비, 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 루프 내부에 방향에 대한 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

파이썬, 88 바이트

편집

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