Pour la pratique du golf, j'ai fait les devoirs dans le cours d'introduction à Python de ma petite amie. J'ai trouvé que pour cette mission, il y avait plusieurs stratégies qui se sont rapprochées du nombre de personnages, et je suis sûr que les gens ici peuvent trouver des moyens encore meilleurs. Bien que je sois plus intéressé par les moyens de le faire en Python, je voudrais savoir le plus de golf que ce programme peut obtenir, c'est donc le golf de code et les réponses les plus courtes.

Les règles:

La mission est décrite ci-dessous. L'utilisateur doit être invité à entrer deux fois, bien que les invites n'aient rien à dire et puissent être dans un ordre différent.

Des échappatoires standard s'appliquent.

Affectation 3: flèches

Écrivez un programme qui invite l'utilisateur à entrer un certain nombre de colonnes et imprime le modèle comme indiqué ci-dessous. Vous pouvez supposer que l'utilisateur fournira des nombres positifs. Votre programme doit gérer les flèches gauche et droite. Voici quelques exemples d'exécutions:

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

Pyth, 23 octets

Peut être valide ou non, selon la réponse à ce commentaire . Quoi qu'il en soit, j'ai trouvé cela soigné et, s'il n'est pas valide, les autres réponses Pyth sont également invalides. ;) Eh bien, c'est valable , car j'ai apparemment manqué l'évidence flagrante. : /

EDIT: J'AI GAGNÉ !!!! OUI !!!! Première fois! :RÉ

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

Démo en direct.

Pyth, 27

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

Essayez-le en ligne

L'idée de base ici est de construire une chaîne qui, par exemple 5, ressemble à ceci:

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

Et puis retournez-le à l'envers si nous obtenons lcomme entrée. Ensuite, nous prenons toutes les input-1lignes de cette chaîne, sauf les dernières , et nous l'imprimons.

Python 2, 81 79 octets

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

Peut-être encore jouable au golf, mais nous verrons :)

Pyth, 30 28 27 octets

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

Essayez-le en ligne.

Apparemment, je suis actuellement à égalité avec FryAmTheEggman avec une approche complètement différente. (Je pense que l'on est ingénieux.)

Exemple

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

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

Explication

 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 octets

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

• Obtient les colonnes, les stocke $c. Nous soustrayons un car chaque colonne a également un *et nous ne sommes intéressés que par le nombre d'espaces requis.
• Si la valeur entrée était a 1, print *et exit - le reste du script ne fait aucune différence. ⁺
• La section suivante obtient d'abord la direction et teste si elle est -equal l, puis crée un tableau basé sur l'indexation dans un tableau de tableaux générés dynamiquement en fonction de la valeur de $c. La magie. Essentiellement, c'est le nombre d'espaces par ligne dont nous avons besoin.
• Par exemple, pour 5 rcette collection tiendrait (0,1,2,3,4,3,2,1,0).
• Prend le tableau et le canalise dans une %boucle Foreach-Object , où nous générons une chaîne de X espaces, puis le*

Exemple d'utilisation:

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

_{Édition - variable supprimée $een canalisant directement la collection
Édition2 - représente correctement 1 colonne, maintenant}

⁺ S'il est toujours obligatoire de prendre une entrée pour la direction pour les flèches à 1 colonne (je soutiens que ce n'est pas le cas), nous pouvons échanger le positionnement du Read-Hostet perdre quelques octets supplémentaires en réintroduisant la $dvariable, pour 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 octets

Merci à @ThomasKwa pour le calcul correct des octets et le golf de 10 octets .

Testé sur ma TI-84 + Silver Edition.

Première soumission TI-BASIC, suggestions de golf bienvenues (je ne connais pas encore beaucoup de trucs). Si le nom joue un facteur dans la mémoire affiché, celui-ci était de 3 caractères au lieu de 1 (j'ai regardé le nombre d'octets sur ma calculatrice elle-même). Ce programme est limité par les outputrestrictions de la fonction (je pense aux flèches de longueur 4), mais je pourrais probablement passer à text, qui s'affiche graphiquement si c'est trop faible.

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

Notez que cela n'efface pas non plus l'écran ni ne le met en pause.

J'ai vraiment l'impression que l'équation que j'utilise peut être jouée davantage. Il est également très mal d'exclure le guillemet final.

Python 2, 89 octets

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

Fonctionne presque de manière identique à ma réponse Pyth, calculant simplement le nombre correct d'espaces à la volée.

PowerShell, 104 102 97 octets

# 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. si vous souhaitez l'exécuter à nouveau, ouvrez un nouveau PowerShell ou rv oréinitialisez l'état de la variable.

Comparé à la lacune des autres, cela fait mal. [Fait moins mal à 97 qu'à 122]. Deux parties, ni très surprenantes; lit un certain nombre de colonnes, utilise un substitut d'opérateur ternaire tableau-index pour obtenir un décalage, et exécute une fonction d'onde à partir du décalage (et un ajustement afin qu'il ne tombe pas dessus mod 0).

(Et aïe ai-je passé des siècles sur cette fonction d'onde, incapable de repérer mon malentendu et de taper tous les parens honnêtes, ce n'est pas LISP).

Python 2, 98 89 octets

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

Un peu plus long.

Usage

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

Perl, 85 octets

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

Usage:

perl 59874.pl <<< '6
r'

PHP, 156 octets

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

Crée deux tableaux, comme ceci:

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

utilise ensuite l'union de tableau $s+$tou $t+$spour les combiner et array_splicepour supprimer l'élément au milieu. Enfin sortie en utilisant<?=join()

Python 2, 111 109 104 octets

Solution assez simple. Je suis sûr qu'il peut être joué plus au golf. Pour ceux qui ne savent pas, ~x+nc'est la même chose 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," ")

Essayez-le en ligne

Edit : Cela a été joué dans la dernière ligne:

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

Matlab, 109 105 96 octets

Merci à @beaker de m'avoir sauvé 9 octets .

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

Rubis, 118 octets

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{ - deux fois, bien sûr ...

l,d=gets.split; - obtenir l'entrée

l=l.to_i; - changer la longueur en un entier

a=(d=="r"?(0..l-1):(l-1).downto(0)).to_a; - créer un tableau de la plage de 0 à la longueur

(a+a[0..-2].reverse).each{|x| puts "#{' '*x}*"} - itérer, transformer en cordes pour faire les flèches

Pas exactement le plus grand golf de tous les temps, mais bon.

PowerShell, 98 94 octets

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

Si je pouvais trouver un moyen de mettre le Read-Host pour la direction à l'intérieur de la boucle foreach-object, mais seulement l'inviter une fois que je serais en mesure d'économiser quelques octets.

Modifier: 94 octets. Au lieu de tester pour gauche, testez pour droite (simplifie la boucle).

98 octets d'origine:

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

> <> , 60 octets

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

2 octets perdus en fin de compte, comme c'est irritant!

En raison du fonctionnement de l'entrée dans> <>, il n'est pas possible d '«attendre» l'entrée - la icommande vérifie si un caractère d'entrée est disponible sur STDIN. S'il y en a un, il pousse la valeur ASCII de ce caractère et pousse -1 sinon.

Cela signifie que, pour utiliser ce programme, le nombre et la direction doivent déjà être prêts sur STDIN, par exemple 3rpour une flèche de taille 3 pointant vers la droite. Je ne sais pas si cela disqualifie cette entrée, faites-moi part de vos réflexions: o)

Je rédigerai également une description si quelqu'un en veut.

PHP, 154 octets

Cela a l'air vraiment répétitif, mais il fait ce que l'on souhaite:

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

S'exécute à partir de la ligne de commande comme:

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

Python, 88 octets

Édité

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