10兆までの素数のリストを作る戦略
10兆までの素数のリストを作る戦略 2010-05-28-2 [Programming] 下記の記事を読んで、10兆までの素数を現実的な時間で実際に生成する戦略を練ってみた。 - 10兆までの素数のリストを作ってみませんか？ (記者の眼：ITpro) http://itpro.nikkeibp.co.jp/article/Watcher/20100519/348242/ とりあえず、ざくっと作った Perl スクリプト。 ものすごく時間はかかるけど（何ヵ月とか何年とか？）、とりあえず10兆までの素数が生成できる（はず）。 コード(gen-prime.pl): #!/usr/bin/perl use strict; use warnings; my $target = 10000000000000; my $max_pn = sqrt($target); my @pn; for (my $n
カイ二乗値で単語間の関連の強さを調べる
カイ二乗値で単語間の関連の強さを調べる 2007-09-19-1 [Algorithm][Programming] カイ２乗値を使って単語間の関連度を調べる方法。 つまり、関連語を探すときに、χ二乗値を関連度として使う。 perl によるサンプルコード (chiword.pl)。昔、勉強がてら作ったコード。 #!/usr/bin/perl use strict; use warnings; my %cnt; my $pair_num; while (<>) { chomp; next if /^\s*$/; my @list = sort split(/,/, $_); for (my $i = 0; $i < @list; $i++) { for (my $j = $i + 1; $j < @list; $j++) { next if $list[$i] eq $list[$j]; $c
[を] Perl による Suffix Array の実装
Perl による Suffix Array の実装 2006-04-10-2 [Programming][Algorithm] 昔作った「Perlによるsuffix arrayの実装」を発掘したので公開しておき ます。 ソースコードです。 #!/usr/bin/perl -w use strict; my $t = "mississippi"; # Text - 対象テキスト my @sa = (0..length($t)-1); # Suffix Array - 初期設定 ### Suffix Array の作成 @sa = sort {substr($t, $a) cmp substr($t, $b)} @sa; # テスト出力 for (0..$#sa) { print "$_ $sa[$_] ",substr($t, $sa[$_]),"\n"; } ### バイナリサーチ
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
