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"; } ### ãƒã‚¤ãƒŠãƒªã‚µãƒ¼ãƒã«ã‚ˆã‚‹
{{#tags}}- {{label}}
{{/tags}}