TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
プログラミング言語 Scala 11冊目
Cygwin + MinGW + GCC 相談室 Part 8
シェルスクリプト総合 その29
CVS導入スレ〜 Rev.3
ExcelVBAで勤務表を作ろう
c、Java、pythonを難易度でランク付けして
プログラマが使ってはいけないテキストエディタ
CVS導入スレ〜 Rev.3
将来性ないプログラミング言語。Delphi含まれず安心
プログラミングのお題スレ Part16
59 :
>>56 スマソ、ケアレスミスった、繋ぐ演算子は+ => *だた…orz
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

Git 16
P2P型の完全匿名掲示板はまだ出来ないの?その5
C言語なら俺たちに聞け パート0001
SVG波形ライブラリ
パチンコ、パチスロの基盤のプログラム 2
【GNU】Emacs Lisp 【Elisp】
オブジェクト指向ってクソかよPart5
Git 13
Excel VBA 質問スレ Part55
SDL=Simple DirectMedia Layerでゲームだ
--------------------
町山智浩、「朝日ざまあ」ネトウヨ挑発、案の定Twitter炎上
【純A】ノーマル総合 Part19【A+RT】
【保護者専用】不登校の中・高校生の保護者専用スレ ★16
文在寅「反日感情は自らも持っておらず、そのつもりも全くない」韓国さんたち「え? ええええっ!?」
【千葉】車掌居眠りドア開かず JR八街駅
悪徳獣医を罰する法律を強化しよう、獣医師会改革
弐寺「冥!」太鼓「さいたま2000!」maimai「消失!
DEEN Break99
【艶やかな】Harbeth part 13【美声】
【Partenopei】SSC.Napoli〜Part34〜
西日本は無人
シベリアイベント広場15
【社交ダンス】初心者向け情報【始めたい】
@@@男は黙ってキャデラック!二十三代目@@@
クリスチャンの人間が気持ち悪くて生理的に苦手
ペンギンが出てくるアニメ ⇠何を連想した?? [327876567]
【宿曜】井宿・底宿・室宿【命業胎】14
体が柔らかい
★【私の事は】レス不要独り言【ほっといて】
女が出す「エッチOKサイン」トップ10
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼