turugina #7648(2008/09/17 00:06 GMT) [ Perl ] Rating0/0=0.00
one-linerというかgolfというか... アルゴリズムは他の皆さんと同じです。
1 2 3
1==shift@z&&++$n&&printf"%d = 2^%d * 3^%d *%s 5^%d\n",@z while$n<100&&(@z=(++$i,$i,0,0,'',0))&& map{$z[0]/=$_,++$z[$_]until$z[0]%$_}2,3,5
Rating0/0=0.00-0+
[ reply ]
turugina
#7648()
[
Perl
]
Rating0/0=0.00
Rating0/0=0.00-0+
[ reply ]