01/05/2015, 17:27
(Modification du message : 02/05/2015, 00:54 par Artix.
Raison de la modification: ajout de 1% de diabolicité
)
Après des années de recherche en autarcie, FiraLabs à réussi à améliorer l'algorithme rireDiabolique™.
Les features highlight de la nouvelle version sont :
N'attendez plus, utilisez le maintenant :
Exemple:
Have fun !
Les features highlight de la nouvelle version sont :
- Maintenant 66.6% plus diabolique !
- Plus de classe, autant de code !
- Gestion des longueurs de chaine de sortie variable avec un paramètre !
- Les chaines ont maintenant une longueur aléatoire !
- Augmentation de la fréquence des A, pour un rire plus facilement prononçable !
- Suppression des caractères identiques à la suite, pour un rire plus réaliste !
N'attendez plus, utilisez le maintenant :
tcl
proc rireDiabolique {{l 50} {c a}} {
set [set $c [set type mw]] [list ]
while {[incr i]<$l} {
if {$mw != [set mw [lindex [list h fira $c vous A passe H le A bonjour $c] [expr 2 * (int(rand()*[join [scan [join [info vars]] [string repeat %c [llength [info vars]]]] [list ]]) % [llength [info vars]]) ]]]} {
[join [list $c pp end] [list ]] type [set [set $c]]
}
}
return [set [lindex [info frame [info frame]] [expr 1 == 2]]] }
Exemple:
Code :
<Fira> .tcl rireDiabolique 40
<Boole> Tcl: mwahHaAhAHAhAHaHAaAaHaAahAa
Have fun !