eeweiga #4600(2007/12/04 12:25 GMT) [ Perl ] Rating0/0=0.00
ワンライナー童貞を捨てた記念に投稿します。
13進数に変換する部分はid:nekoruriさんの投稿を参考にしました。
1
perl -M'List::Util qw/reduce first/' -le 'print first {$_} grep {!(sub{reduce{13*$a+$b}split //}->($_)%$_)} 10..10000'
Rating0/0=0.00-0+
1 reply [ reply ]
eeweiga #4619(2007/12/05 09:26 GMT) [ Perl ] Rating0/0=0.00
いろいろと無駄が多かったのでちょこっと直しました。
あと余計なスペースを詰めて余計に読みにくくしてみました。
perl -M'List::Util qw/reduce first/' -le 'print first{!((reduce{13*$a+$b}split//)%$_)}10..10000'
[ reply ]
eeweiga
#4600()
[
Perl
]
Rating0/0=0.00
ワンライナー童貞を捨てた記念に投稿します。
13進数に変換する部分はid:nekoruriさんの投稿を参考にしました。
Rating0/0=0.00-0+
1 reply [ reply ]