eeweiga #4619(2007/12/05 09:26 GMT) [ Perl ] Rating0/0=0.00
いろいろと無駄が多かったのでちょこっと直しました。
あと余計なスペースを詰めて余計に読みにくくしてみました。
1
perl -M'List::Util qw/reduce first/' -le 'print first{!((reduce{13*$a+$b}split//)%$_)}10..10000'
Rating0/0=0.00-0+
[ reply ]
eeweiga
#4619()
[
Perl
]
Rating0/0=0.00
いろいろと無駄が多かったのでちょこっと直しました。
あと余計なスペースを詰めて余計に読みにくくしてみました。
Rating0/0=0.00-0+