Reprise du message précédent :
epic
 
j'attends que masklinn nous sorte un langage obscur

En whitespace par exemple ? http://compsoc.dur.ac.uk/whitespace/

Y'a aussi le GOTO++ un langage 100% français qui est pas mal dans son genre.
Avec des instructions qui peuvent être réalisées de manière aléatoire...  

 
A+,

Ça faisait plus d'une décennie que j'avais pas écrit une ligne dans ce langage, j'étais un poil rouillé.

\ Il faut avoir confiance dans le Forth, petit padawan!
: STAR [CHAR] * EMIT ;
: STARS ( #stars -- ) 0 ?DO STAR LOOP ;
: TRIANGINC ( #width -- ) 0 DO I 1+ STARS CR LOOP ;
: TRIANGDEC ( #width -- ) DUP 0 DO I SPACES DUP I - STARS CR LOOP DROP ;
: DRAWALL ( #width -- ) DUP TRIANGINC CR TRIANGDEC ;
\ Appel avec X DRAWALL ou X est la largeur voulue

Vu la simplicité du code, il devrait pas être trop difficile de le transcrire en Postscript.
 
A+,
 

Putin vous êtes tous fous  

Oué, moi aussi chuis un peu rouillé, mais bon à l'arrache :

%!PS-Adobe-3.0
/strcat
{ exch dup length    
  2 index length add string    
  dup dup 4 2 roll copy length
  4 -1 roll putinterval
} bind def

/triangle {
  /sz exch def
  /dir exch def
  /str () def
  {
    /str str (*) strcat def
    dir 0 lt
    { str }
    { str == }
    ifelse
    sz 0 gt
    { /sz sz 1 sub def }
    { exit }
    ifelse
  } loop
  dir 0 lt
  {
    pstack
  } if
} def

1 10 triangle
-1 10 triangle

 
Cette version utilise la sortie standard (en général pour le debug) de l'interpréteur postscript. Celle-ci utilise la page de rendu:
 

%!PS-Adobe-3.0
/Helvetica findfont
15 scalefont
setfont

/strcat % (a) (b) -> (ab)  
{ exch dup length    
  2 index length add string    
  dup dup 4 2 roll copy length
  4 -1 roll putinterval
} bind def

/triangle {
  /sz  exch def
  /dir exch def
  /y   exch def
  /x   exch def
  /str () def
  dir 0 lt
  { /y 20 sz mul y add def } if
  {
    /str str (*) strcat def
    x y moveto str show
    /y y 20 dir mul add def
    sz 0 gt
    { /sz sz 1 sub def }
    { exit }
    ifelse
  } loop
} def

72  72 1 10 triangle
200 72 -1 10 triangle
showpage

 
Suffit de copier/coller ça dans la console de ghostscript par exemple.
 
J'voulais aussi faire une version avec les circuits redstone de Minecraft (en utilisant une série de torche comme un "écran" 1bit de Nx1px   , où N = nombre de torches), mais c'est déjà bien bordélique avec N = 3 .

Je voulais pas installer gs sur la bécane temporaire que j'utilise, et l'interpréteur gratos que j'ai trouvé rops, a pas l'air de vouloir s'installer, donc j'avais pas moyen de tester le ps écrit, sinon, je l'aurais fait. Je me souviens d'une époque ou il y avait un concours pour avoir la plus petite signature en postscript, c'était assez monstrueux ce qu'on pouvait faire en qques lignes.
A+,

Si il y a un amateur, je prendrai comme un cadeau la version Lisp.  

Du scheme (très procédural et testé avec guile)

Une version Scheme était déjà en page 2  

Pour compenser: plain TeX
 

en logo
 

 
http://www.calormen.com/logo/
 
edit : moins fatiguant pour la gelonitsa

Mais comment n'y ais-je pas pensé    
Merci!
A+,

Vu que ptitchep se posait la question, en sed:

echo "**********" | sed ':loop p;s/\(\*\)\(\1*\)/ \2/g;t loop;:pool p;s/\( \)\(\1*\)/*\2/;t pool;d'

C'est probablement améliorable.
 
A+,

Vous l'attendiez tous, j'en suis sur, la version en WhiteSpace.
Je ne peux pas donner le code source tel qu'il devrait être (uniquement espace, tabulations et line-feed) car il y a des modifs de ces caractères dues à l'éditeur.
Donc si vous faites les modifs (space -> espace (ascii 32), tab -> tabulation (ascii 9) et lf ->line-feed (ascii 10) et que vous enregistrez dans un fichier ça marche avec le  compilo C++ qui se trouve ici : http://www.burghard.info/Code/Whitespace/index.html.
Les lignes qui commencent par % sont des commentaires
 

 
A+,

En erlang, je débute, ça doit être améliorable

-module(star).
-export([starrer/2]).
 
starrer(c,0)   -> ok;
starrer(c,N)   -> starrer(p,N), starrer(c,N-1);
starrer(p,0)   -> io:format("~n" );
starrer(p,N)   -> io:format("*" ), starrer(p,N-1).

edit : pour l'invoquer, en l'ayant sauvegardé sous star.erl

Ça fait un peu penser à du Prolog, l'erlang, au vu de la syntaxe
A+,

C'est du js, donc pas très original, quoique:

document.write('<pre>');
for (var i=177147,j=i--; j>.7; i-=j/=3)
    document.write(i.toString(3).replace(/1/g,' ').replace(/2/g,'*')+'\n');

C'est de l'obfuscation que tu nous fais là
putain bien joué l'utilisation d'une base 3, mais en base 2 tu aurais pu faire la même chose avec du décalage de bits ? nan ?

Erlang a d'abord été écrit en Prolog je crois.  
Voila un code Prolog possible :

 
En base 2 le toString() élimine les zero devant, on pourrait le faire à l'envers et faire un reverse à la fin, ou ajouter un 1 devant et le couper à la sortie, mais ça prendrait plus de place.

Merci  
J'en aurais bien écrit, mais je me suis rendu compte qu'après des années de non utilisation, j'avais vraiment tout oublié de ce langage ou presque.
A+,

J'ai pensé le faire ce matin, avec un décalage de bits, mais bébé s'est réveillé trop tot

echo "**********" | sed ':loop p;s/(*)(1*)/ 2/g;t loop;:pool p;s/( )(1*)/*2/;t pool;d'

Merci :-)
En plus simple (merci au collègue qui m'a expliqué sed au lieu de bosser):

!/bin/bash
 
echo Nombre:
read nb
printf -v f %"$nb"s ; printf "%s\n" "${f// /*}" | sed ':loop p;s/\*/ /;t loop;:pool p;s/ /\*/;t pool;d'

Je parle du sed.
Après j'ai juste rajouté la possibilité de choisir le nombre d'étoiles...

edit: d'ailleurs le printf est un copié-collé d'un recherche google à l'arrache, il y a peut-être moyen de faire aussi plus simple.

Un peu facile votre truc, ça se fait en un ligne de python    
 

def g(n):
    for v in (''.join(u) for u in (list(reversed(r[0])) for r in zip(reversed(list(s + (n - len(s)) * [" "] for s in (w * [chr(42)] for w in ((sum(ord(c) // ord('1') for c in s) for s in (bin(2**k - 1)[2:] for k in range(1, n + 1)))))))))) : print(v)

def g(n):
    for v in (''.join(u) for u in (list(reversed(r[0])) for r in zip(reversed(list(s + (n - len(s)) * [" "] for s in (w * [chr(42)] for w in ((sum(ord(c) // ord('1') for c in s) for s in (bin(2**k - 1)[2:] for k in range(1, n + 1)))))))))) : print(v)

 
Ca fait deux ça ? ou bien ....

erreur d'arrondi

 
C'est approximatif de toute manière je pense.
 
Combine de caractère max sur une ligne de python ?
Sur Ada 256 à l'époque.

def g(n):
    for v in (''.join(u) for u in (list(reversed(r[0])) for r in zip(reversed(list(s + (n - len(s)) * [" "] for s in (w * [chr(42)] for w in ((sum(ord(c) // ord('1') for c in s) for s in (bin(2**k - 1)[2:] for k in range(1, n + 1)))))))))) : print(v)

Tu as besoin d'utiliser autant de FOR ?  
 
il y en a un qui a posté du python 2 semaines plus tôt :  

#!/usr/bin/python
print "\n".join([('*'*i).rjust(10) for i in xrange(10,0,-1)])

C'est offusqué

En effet, je n'avais pas pensé à cette solution.
Astucieux, mais la mienne conserve l'avantage de l'élégance.

je ne vois pas trop l'élégance dans 5 for imbriqués

Ah mais ça c'est parce que tu as mal compté, en fait il y en a 8.
Une solution avec 5 for imbriqués aurait été risible, restons sérieux.

Tiens, une autre solution perl, un peu plus élégante (et obfuscated?)

#!/usr/local/bin/perl
 
sub print_rotate_half { my $s = int(@_/2); foreach (1..$s) { print @_[$s-$_+1..2*$s-$_],"\n"; } }
 
my $size = 10;
print_rotate_half ((map { ' ' } 1..$size),(map { '*' } 1..$size));
print_rotate_half ((map { '*' } 1..$size),(map { ' ' } 1..$size));

A+,

Allez, encore un peu de js, vraiment pas beaucoup :

for(s='<pre>*',l=90;l--;)s+=l%9?l%9>l/9?' ':'*':'*\n ';document.write(s)

Par contre c'est pas triste les reflexes qu'on a ... Personne n'a eu le réflexe d'écrire de unit test pour vérifier tout ça
C'est pas super TDD-compliant tout ça

Tu veux ptet aussi qu'on installe un hudson qui va valider chaque morceau de code posté, et envoyer un mail à chaque personne du topic ?

Non c'est juste que je viens de commencer un bouquin sur JUnit et comme toujours ça commence avec les bons principes TDD&co et je me suis dit "C'est étrange que personne n'y ait pensé".  
Pas le prendre mal hein