sub recursive_exist{ #最重要の再帰ルーチン my ($flag, $selected, $key) = @_; #要素@{$selected}を選んだら残りは$flagでビットが立っている配列と # @{$key}にある要素しか考えなくていい、と呼び出し元から保証されている my (@new_keys); #実は要素の…

our @names; #配列番号→配列名 頻繁に使うのでourかなあ？ our $bit_length; #配列数より大きい数であればなんでもいい。ビット数を数えるときに使う。 our %bit; #要素 => 要素を含む配列を1, 含まない配列を0としてビット列にして１つにまとめたもの #$bit…

あーバグありそうだ。$all_1が全てのビットを立てる保証がないような気がしてきた。後でデバッグする。ちょいと http://q.hatena.ne.jp/1272372071 用に書いたスクリプトのメモまずはデーター定義部。やけくそに長い。このテストデータは自動生成している。 …

http://zasshi.news.yahoo.co.jp/article?a=20100412-00000001-health-soci 春の眠気は“病気”だった！(日経ウーマンオンライン（日経ヘルス）) - Yahoo!ニュース春眠不覚暁 処処聞啼鳥 夜来風雨声 孟連行病院 …あれぇ〜

原典：http://d.hatena.ne.jp/lever_building/20100330#p1 lever_buildingさん著 やねごんの にっき ― 「ちょうせん がっこうの せいとたちは すんだ めを している」より漢字かな混じりに変換した文を公開してもよいと筆者から許諾をいただいたので公開して…