- プログラミングのお題スレ Part12
440 ：デフォルトの名無しさん[sage]：2018/11/12(月) 21:30:19.73 ID:WG+vGwsG - >>434 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
| - プログラミングのお題スレ Part12
441 ：デフォルトの名無しさん[sage]：2018/11/12(月) 21:32:31.70 ID:WG+vGwsG - >>440 ｺﾞﾒﾝよけいな=が入っていたので削除
>>434 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
|
|