This comment is reply for 3090 kzfm: (九九の表示). Go to thread root.
ぴょん #3586(2007/10/30 06:35 GMT) [ Perl ] Rating1/1=1.00
意味があるか不明だけど、更に行数減らせますね。
1
map {printf "%d * %d = %2d\n",$_,++$count{$_},$count{$_}*$_} (my %count, map {($_) x 9} 1..9);
Rating1/1=1.00-0+
[ reply ]
ぴょん #3586() [ Perl ] Rating1/1=1.00
Rating1/1=1.00-0+