プログラミングのお題スレ Part12

プログラミングのお題 ..

459:デフォルトの名無しさん
18/11/12 21:32:31.70 WG+vGwsG.net
>>444 ｺﾞﾒﾝよけいな=が入っていたので削除
 >>438 Perl5
use feature say;
$,=',';
say grep{1&sprintf("%b", $_) =~ tr/1/1/} 0..99;
実行
$ perl 12_434.pl
1,2,4,7,8,11,13,14,16,19,21,22,25,26,28,31,32,35,37,38,41,42,44,47,49,50,52,55,56,59,61,62,64,67,69,70,73,74,76,79,81,82,84,87,88,91,93,94,97,98

次ページ

続きを表示

1を表示