TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【関数】Erlang Part 2【エリクソン】
プログラマは大卒じゃないと就活厳しいってホント?
Boost総合スレ part10
オブジェクト指向ってクソじゃねぇかよPart4
[特設]サマータイム対応相談室
Borland Developer Studio 2006 No.13
Visual Studio 2017 Part6
HTAをもっと流行らせる計画 Part2
2chの荒らし報告の書式対応のプログラム
プログラム始めたいけどrubyかPythonどっちが良い
56 :
>>前スレ988 Perl5
https://mevius.2ch.sc/test/read.cgi/tech/1549160513/988

sub p {
 $h = int $n/2;
 for ($i=2; $i<=$h; $i++) {
  $s[$i] = 1 unless exists $s[$i];
  do {$s[$i*$_] = 0 for 2..int $h/$i} if $s[$i];
 }
 @p = grep{$s[$_]} 2..$h;
}
sub f {
 my $i = shift;
 my $h = int $i/2;
 for $j (grep{$_ <= $h} @p) {
  return ($j, f($i/$j)) if 0 == $i % $j;
 }
 $i
}
for $n (qw{28 2002 216653}) {
 p;
 my %f; $f{$_}++ for f($n);
 @f = map{$_ . (1 < $f{$_} and "^$f{$_}")} sort{$a<=>$b} keys %f;
 $" = '+';
 print "$n => @f\n";
}

実行
~ $ perl 13_988.pl
28 => 2^2+7
2002 => 2+7+11+13
216653 => 216653

サウンドプログラミング5
古代VBプログラマ質問スレ(Ver.6.0 まで) part65
Java入門・初心者質問スレ Part.9
ふらっと C#,C♯,C#(初心者用) Part142
Androidプログラミング質問スレ revision50
家計簿ソフトを作る
C言語なら俺に聞け 147
静的型付け言語の潜在開発生産性は今の100倍 ×5
Flutterやろうよ!!!
クライアント「神々たる仕変!後悔など遅い!」
--------------------
【ハゲ】Wセミ司法書士 山本浩司【東大卒】 Part.24
【本人話】ファンが自由に語る宇野昌磨10/アンチ禁
大阪マラソン 25km地点【日本橋1交差点】
JOHNSTON&MURPHYを語れ part2
kkk
感染者判明の大阪ライブハウス営業再開 2週間ぶり来月本格稼働
【独波】ドイツのポーランド侵攻80年「今日までドイツから残虐行為への適切な賠償を受けていない」賠償で論争:90兆円試算も [09/01]
【レッド極火インドグリーン等】チェリーシュリンプ 25
口喧嘩したらAKBグループでダントツNo.1の人物
ファイナルファンタジー15 新たなる王国 Part17
そうめんの食べ方で育ちがわかると判明 [711847287]
靴の中敷きインソール
【DELL】Venue Pro総合Part5【8/10/11/EveryPad】
SONY Xperia 5 Part14
辛い日常を生きるためのちょっとしたアイデアスレ13
コロナ鬱、コロナ疲れ 総合スレッド
【熊坂】カナーに負けたムラターはクマー並のド素人106【学】
第27期 大山名人杯倉敷藤花戦 Part2
ネトウヨの定義を教えて下さい★55
【人気漫画】「ワンピース」実写ドラマ化 ネットフリックス制作で世界配信
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼