TSabc 発言

　機械す。

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

　えっと、頭に＄は変数で＠は配列で……

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

　ARGVは引数配列ですよね、多分……

　こうして見ると、Perlも書けそうな気にはなるのだけど、実際に
本を見ると、その文法のバリエーションに圧倒されるんですよねぇ……

　／機械伯爵／