Ky rresht ( one-liner ) ne perl, gjeneron nje varg Fibonaci


Kodi:
$a=0;$b=1;while($i<20){print $b.", ";$var1=$a;$a=$b;$b=$a+$var1;$i++;}


Publikuar nga une ne :

planetsourcecode.com