SUFARY用インデクサのPerl版の雛形
SUFARY用インデクサのPerl版の雛形 2007-06-10-3 [Programming] 自分用メモ。 SUFARYガイドにあるやつを改訂。 UTF-8 が対象。正規表現部分は[2006-03-09-1]のそのまま。 Index point (バイナリ) を吐き出した後、 mkary -so する (sort only)。 my $ip = 0; while (<>) { my $idxstr = $_; my $start = 0; while ($idxstr =~ m{([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| [\xE0-\xEF][\x80-\xBF]{2}| [\xF0-\xF7][\x80-\xBF]{3})}gsx){ my $c = $1; last if $c =~ /[\t\n]/; #printf "[%s] %d %d\n",
[を] 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ページを開く
