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
#4600()
[
Perl
]
Rating0/0=0.00
ワンライナー童貞を捨てた記念に投稿します。
13進数に変換する部分はid:nekoruriさんの投稿を参考にしました。
Rating0/0=0.00-0+
1 reply [ reply ]