TSabc 発言

On Fri,  1 May 2009 19:35:20 +0900 (JST)
geg01137@... (林　宏) さんwrote:

> 藤岡和夫 writes:
> 
> > > 　PythonもPerlもマルチパラダイム言語ですが、Perlの自由度は
> > > Pythonの比ではないので、多彩な例を期待してます☆
> > 
> > 　みなさんもどうぞ^^;)
> ごぶさたです。。。
> 
> $n=10;print eval join("*",(1..$n));<stdin>;
> 
> 林　宏

ご無沙汰しています。

まず連想ゲーム^^;)

for($n=10;$n>0;$n--){push(@an,$n);};print eval join('*',@an);

一応、0の階乗にも対応できるもの・・・

$fn=1;for($n=$ARGV[0];$n>0;$n--){$fn*=$n;};print $fn;



藤岡 和夫
kazuf@...
日曜プログラマのひとりごと http://homepage1.nifty.com/kazuf/renewal.html