Dynamic Programming による類似文字列マッチの実装例 2007-01-22-4 [Programming][Algorithm] 「Modern Information Retrieval」(8.6.1 p.216) での Dynamic Programming (DP) の解説のところのアルゴリズムを 素直に Perl で実装したみた。 さらにマッチ箇所取り出しロジックも実装してみた。 DP はいわゆる「類似文字列検索（あいまい検索）」に使うと 便利なアルゴリズム。 実は、大学院でも前の会社でも、PerlやらC++やらで実装して使ってた。 単純ながら使い勝手もよく、まさに現場向きかと。 grep 式に頭から見ていくので計算量的にはイマイチなのだが、 転置インデックス検索などで範囲を絞ってから適用すれば実用上問題ない。 ■定義みたいなの Q1. 二
「時をかける少女」と「パプリカ」。どちらも筒井康隆。偉大だ…。 追記：「日本以外全部沈没」もそうなんですね。これ読んでないなあ（たぶん）。 フリップフロップのように働く演算子 .. が話題になっている。 http://naoya.g.hatena.ne.jp/naoya/20061222/1166754815 http://blog.livedoor.jp/dankogai/archives/50720796.html 演算子が状態を持っているというのがすごいよね。 while (<DATA>) { if (/^3/../^5/) { print; } } __END__ 1111111111 2222222222 3333333333 4444444444 5555555555 6666666666 7777777777 8888888888 9999999999 1111111111
2006年12月22日19:00 カテゴリLightweight Languages {perl,ruby} -nle 'print if /start/../end/' アルファギークでも知らなかったというのは、不思議でもあり当然のようでもあり。 naoyaグループ - naoyaの日記 - if /regexp/../regexp/ Perl で正規表現を .. すると、その間に含まれる文字列という意味でマッチさせられる。 % w3m -dump_source http://www.yahoo.com/ | perl -nle 'print if /^<style/../<\/style>/' とするとこれ、実に由緒正しい使い方で、たしかまだperlがhashすらサポートしていない頃からあったと記憶しています。なにしろsed/awkが起源ですから。 NAME operator - se
String::Diff - 行内差分取得モジュール 普通のdiffは行単位での差分を取るんですが、一行の中での差分がどうしても取りたくてString::Diff(2008/06/24リンク切れなおしたtokuhirom++)ってのを作りました。 既存のCPANモジュールだとString::ShowDiffが微妙に近かったんですが、目的の事が出来ないので作りました。 出来ることは 文字列同士の差分を作って変更無い場所、変更が合った場所で配列を分けて作成。 my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby'); for my $line (@{ $diff->[0] }) { print "$line->[0]: '$line->[1]'\n"; } # u: 'this is ' # -: 'Perl' fo
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
ここからが本題です。 Perl は頭がおかしいです。すごすぎる。この感動を伝えたいと思います。まず Perl の基本からです。 Hello world! を書きましょう。 ''=~('(?{'.('[[).[|`%,,/`[/[@$'^'+)@@/^(@@@@@,@),@').'! "})')えーと。このくらいわかりますよね。これは Hello world という一番簡単なプログラムなのでわからない人はちょっとプログラムの才能が無いです。嘘ですが。 Perl では記号だけでは出力もできないかな、というような話をしていたところ、 Acme::EyeDrops の出力は記号だけで出力してるぞ、ということでした。これは見たことがあったのですが、確かに今見ると記号だけです。で、これの出力の意味を理解してたんですが、なんともすごいものでした。書いてから後で Perl ヤロウどものことだから既に常識だ
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Perl でファイルを後ろから読むの術 2006-09-18-4 [Programming] 「Perl Hacks」、"HACK#20 Reading Files Backwards" より、 ファイルを後ろから読むの術。 File::ReadBackwards を使うだけ。手軽。 #!/usr/bin/perl use strict; use warnings; use File::ReadBackwards; my $file_name = shift @ARGV; my $bw = File::ReadBackwards->new($file_name); until ( $bw->eof ) { print $bw->readline; } なお、コマンドラインからなら tac が便利。タック！タック！ - [を] ファイルの先頭に追加するには[2003-07-07-2
slGrid, Ajax-Based PHP Grid Component slGrid is an easy to use grid component that can display your PHP tables in an user friendly, good-looking way. It is Ajax-based, allowing for fast user operations like sorting and paging without having to reload the entire web page. Additional features are table editing, export to Excel, and print view. See some live examples of the grid. Look at recent news
Net::MSN - metacpan.orgを使ってごにょごにょしようとしたら、途中でSegmentation faultを起こしてログインすらできなかった。perl自体が落ちてしまうし、perl -dも固まってしまう始末。 そこでとりあえずどのモジュールが悪いのか調べたく、トレースを見ることにした。"trace"でCPANを検索。色々試した結果、Devel::Trace - Print out each line before it is executed (like sh -x) - metacpan.orgがBest Practiceのよう。 早速デバッグ。 $ cpan Devel::Trace $ perl -d:Trace MSN.pl （略） >> /usr/lib/perl5/site_perl/5.8/cygwin/Crypt/SSLeay/MainContext.pm
Perlで素数判定と近隣素数の探索 2006-08-15-2 [Programming][Algorithm] ハッシュのサイズを決める際に、 ある数に近い素数が欲しいと思うことがあったりします。 例えば「1000000に近い素数が欲しい！」など。 ということでPerl版の素数判定＆近隣素数探索プログラムです。 素数判定は下記を参考にしました。 - 素数判定 - Wikipedia http://ja.wikipedia.org/wiki/%E7%B4%A0%E6%95%B0%E5%88%A4%E5%AE%9A 以下、ソースと実行例。 ソース(prime.pl)： #!/usr/bin/perl use strict; use warnings; my $n = shift @ARGV; my $prime = is_prime($n); if ($prime) { p
ClearSilverネタが続いてるわけだけど、今度はPerlバインディングを使ってみた。 ClearSilverをインストールすると同時にPerlバインディングもインストールされるんだけど、PODには何にも書いてない・・ ここにAPIがのってるだけ。 というわけでサンプルは以下。 #!/usr/local/bin/perl use strict; use warnings; use ClearSilver; my $hdf = ClearSilver::HDF->new; $hdf->setValue('message', 'hello world!'); my $cs = ClearSilver::CS->new($hdf); $cs->parseFile('hello.cs'); print $cs->render;気になった点は TTになれてるので、メソッド呼び出しができないのが一
Helvetica is a feature-length independent film about typography, graphic design and global visual culture. It looks at the proliferation of one typeface (which recently celebrated its 50th birthday) as part of a larger conversation about the way type affects our lives. Helvetica is currently screening at film festivals, museums, design conferences, and cinemas worldwide, and is now available on DV
イテレータはオブジェクトインターフェースの一つで、nextメソッド等でオブジェクトが保持する次の要素を必要な時に取得することができるものです。リスト自体が巨大であったり、リストの生成に時間がかかる場合や、必要となるリストや要素についての情報がわからない場合に、必要量だけ取得できるのがイテレータの利点です。 最小値と最大値を指定されたリストを生成し、イテレータで順にその値を取得するオブジェクトの実装について考えてみます。 my $it = upto(7, 11); $n = NEXTVAL( $it ); # $n == 7 push @a, NEXTVAL( $it ) for 1..3; # @a == (8,9,10) $x = NEXTVAL( $it ); # $x == 11 # この時点で$it == undefined unless (defined NEXTVAL( $it
JavaScript には基本的にブロックスコープというものが存在しない。どうしてもブロックスコープを扱いたいときは function 式を使ったりする。 var a = 10; { var a = 20; print(a); // 20 } print(a); // 20 var a = 10; (function () { var a = 20; print(a); // 20 })(); print(a); // 10 だがやはりブロックスコープがあったほうが便利ということで JavaScript 1.7 では let 式、let 文、let 宣言が導入される。 var a = 10; let (a = 20) { print(a); // 20 } print(a); // 10 しかしこれでは対応するブラウザが Firefox 2 以降などに限られる。ところが、with 文とオブ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
