Para a prática de golfe, tenho feito as tarefas na aula de Introdução à Python da minha namorada. Descobri que, para essa tarefa, havia várias estratégias muito próximas na contagem de caracteres, e tenho certeza que as pessoas aqui podem encontrar maneiras ainda melhores. Embora eu esteja mais interessado em maneiras de fazer isso em Python, eu gostaria de saber o máximo de golfe que esse programa pode obter, portanto, esse é o código de golfe e as respostas mais curtas.

As regras:

A tarefa está descrita abaixo. O usuário deve ser solicitado a inserir duas vezes, embora os prompts não precisem dizer nada e possam estar em uma ordem diferente.

Aplicam-se brechas padrão.

Tarefa 3: Setas

Escreva um programa que solicite ao usuário um número de colunas e ele imprima o padrão como visto abaixo. Você pode assumir que o usuário fornecerá números positivos. Seu programa deve lidar com as setas esquerda e direita. Aqui estão alguns exemplos de execução:

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

Pitão, 23 bytes

Pode ou não ser válido, com base na resposta a este comentário . Independentemente disso, achei isso legal e, se for inválido, as outras respostas de Pyth também são inválidas. ;) Bem, é válido , porque eu aparentemente perdi o óbvio. : /

EDIT: Eu ganhei !!!! YESSS !!!! Primeira vez! : D

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

Demonstração ao vivo.

Pyth, 27

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

Experimente online

A idéia básica aqui é criar uma string que, por exemplo, 5, fique assim:

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

E depois vire de cabeça para baixo se recebermos lcomo entrada. Depois, pegamos todas as últimas input-1linhas dessa sequência e as imprimimos.

Python 2, 81 79 bytes

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

Ainda pode ser jogável, mas veremos :)

Pitão, 30 28 27 bytes

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

Experimente online.

Aparentemente, atualmente estou empatado com FryAmTheEggman com uma abordagem completamente diferente. (Eu acho que esse é engenhoso.)

Exemplo

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

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

Explicação

 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 Bytes

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

• Obtém as colunas e as armazena $c. Subtraímos um porque cada coluna também possui um *e estamos interessados ​​apenas em quantos espaços são necessários.
• Se o valor digitado for a 1, imprima *e saia - o restante do script não faz diferença. ⁺
• A próxima seção primeiro obtém a direção e testa se é -eqnecessário l, depois cria uma matriz com base na indexação em uma matriz de matrizes geradas dinamicamente com base no valor de $c. Magia. Basicamente, é quantos espaços por linha precisamos.
• Por exemplo, para 5 resta coleção seria válida (0,1,2,3,4,3,2,1,0).
• Pega a matriz e a canaliza em um %loop Foreach-Object , onde produzimos uma sequência de X números de espaços e, em seguida, o*

Exemplo de uso:

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

_{Editar - variável removida $ecanalizando a coleção diretamente
Edit2 - responde corretamente por 1 coluna, agora}

⁺ Se ainda for obrigatório usar a entrada como direção para as setas de 1 coluna (eu afirmo que não), podemos trocar o posicionamento do Read-Hoste perder mais alguns bytes reintroduzindo a $dvariável, por 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 Bytes

Agradecemos a @ThomasKwa pelo cálculo correto de bytes e por 10 bytes de golfe .

Testado na minha TI-84 + Silver Edition.

Primeira submissão do TI-BASIC, sugestões de golfe são bem-vindas (ainda não sei muitos truques). Se o nome representa um fator na memória mostrada, esse era de 3 caracteres em vez de 1 (observei a contagem de bytes na própria calculadora). Este programa é limitado pelas outputrestrições da função (penso nas setas de comprimento 4), mas provavelmente poderia mudar para text, que é exibido graficamente se o comprimento for muito baixo.

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

Observe que isso também não limpa a tela nem a pausa.

Eu realmente sinto que a equação que estou usando pode ser mais jogada no golfe. Também parece errado excluir as aspas finais.

Python 2, 89 bytes

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

Funciona quase de forma idêntica à minha resposta Pyth, apenas calculando o número correto de espaços em tempo real.

PowerShell, 104 102 97 bytes

# 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 se você deseja executá-lo novamente, abra um novo PowerShell ou rv oredefina o estado da variável.

Comparado com o quão concisos os outros são, isso dói. [Dói menos aos 97 do que aos 122]. Duas partes, nenhuma delas muito surpreendente; lê um número de colunas, usa um substituto de operador ternário de índice de matriz para obter um deslocamento e executa uma função de onda iniciada no deslocamento (e um ajuste para que não caia demais mod 0).

(E ai, eu passei anos nessa função de onda, incapaz de detectar meu mal-entendido e digitando todas as parênteses honestas de que não é LISP)?

Python 2, 98 89 bytes

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

Um pouco mais demorado.

Uso

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

Perl, 85 bytes

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

Uso:

perl 59874.pl <<< '6
r'

PHP, 156 bytes

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

Cria duas matrizes, assim:

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

usa a união de matriz $s+$tou $t+$spara combiná-los e array_spliceremover o elemento no meio. Finalmente, use<?=join()

Python 2, 111 109 104 bytes

Solução bastante simples. Tenho certeza de que pode jogar mais. Para quem não sabe, ~x+né o mesmo que 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," ")

Experimente online

Edit : Isso foi jogado na última linha:

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

Matlab, 109 105 96 bytes

Obrigado a @beaker por me salvar 9 bytes .

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 bytes

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{ - duas vezes, é claro ...

l,d=gets.split; - obtenha a entrada

l=l.to_i; - altera o comprimento para um número inteiro

a=(d=="r"?(0..l-1):(l-1).downto(0)).to_a; - crie uma matriz do intervalo de 0 ao comprimento

(a+a[0..-2].reverse).each{|x| puts "#{' '*x}*"} - itere, vire as cordas para fazer as flechas

Não é exatamente o melhor golfe de todos os tempos, mas, ei.

PowerShell, 98 94 bytes

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

Se eu conseguisse encontrar uma maneira de direcionar o Read-Host para dentro do loop foreach-object, mas solicitá-lo apenas uma vez, poderei salvar alguns bytes.

Editar: 94 bytes. Em vez de testar para a esquerda, teste para a direita (simplifica o loop).

Original 98 bytes:

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

> <> , 60 bytes

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

2 bytes desperdiçados na linha de fundo, que irritante!

Devido a como a entrada funciona em> <>, não é possível 'esperar' pela entrada - o icomando verifica se um caractere de entrada está disponível no STDIN. Se houver, empurra o valor ASCII desse caractere e empurra -1, se não.

Isso significa que, para usar este programa, o número e a direção já devem estar prontos no STDIN, por exemplo, 3rpara uma seta de tamanho 3 apontando para a direita. Não tenho certeza se isso desqualifica esta entrada, deixe-me saber sua opinião: o)

Também vou escrever uma descrição, se alguém quiser.

PHP, 154 bytes

Parece realmente repetitivo, mas faz o desejado:

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

Executa a partir da linha de comando como:

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

Python, 88 bytes

Editado

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