ちょっと前のもとこ記事。

- デヴィッド・ボウイといえば「20世紀で最も影響力のあるアーティスト」ではなく (もともこも鳴き笑い)
http://d.hatena.ne.jp/mo_tomoco_mo/20101209/1291823851

わたしのなかでは「ラビリンス/魔王の迷宮」の魔王なんだよねぇ、どうしても。

Labyrinth - Jareth and Sarah - Dark Waltz (Youtube)


ラビリンス、映画館で観た記憶があるよ。
何かと二本立てでそっちが目的だったんだけど、何だったか忘れてしまった。

…と、ここで思い出した。

ラピュタだ！

1986年の夏休み。父方の実家（常滑）に行ったときにいとこといっしょに知多半島を縦断して半田の映画館へ自転車で観に行ったんだった。

あれはすごく暑い日だったなあ。

■ラビリンス 魔王の迷宮 コレクターズ・エディション [DVD]
[楽天で探す]

■ラビリンス 魔王の迷宮 [Blu-ray]
[楽天で探す]

■天空の城ラピュタ [DVD]
[楽天で探す]

■天空の城ラピュタ [Blu-ray]
[楽天で探す]

プログラミングメモ。
あとでコピペ＆改変して使うためのもの。

■コード

mkbitarray.pl

#!/usr/bin/perl
use strict;
use warnings;
binmode STDOUT, ":raw";

my $bitarray = "";
while (<>) {
    chomp;
    my $x = tonum($_);
    vec($bitarray, $x, 1) = 1 if defined $x;
}
print $bitarray;

sub tonum {
    my ($s) = @_;
    return $s if $s =~ /^\d+$/;
    my $rv = 0;
    foreach my $c (split(//, $s)) {
	$rv = ($rv * 103 + ord($c)) % 1374;
    }
    return $rv;
}

trybitarray.pl

#!/usr/bin/perl
use strict;
use warnings;

my $fn = shift @ARGV;
open(my $fh, "<:raw", $fn) or die;
my $bitarray;
read $fh, $bitarray, -s $fn;
close($fh);

while (<>) {
    chomp;
    my $x = tonum($_);
    if (vec($bitarray, $x, 1)) {
	print "yes\n";
    } else {
	print "no\n";
    }
}

sub tonum {
    my ($s) = @_;
    return $s if $s =~ /^\d+$/;
    my $rv = 0;
    foreach my $c (split(//, $s)) {
	$rv = ($rv * 103 + ord($c)) % 1374;
    }
}

バイナリファイルの読み込みは、これで良いのか自信無し。

■実行例

% cat test.txt 
1234567
1500020
2431124
7777777
9876543
% ./mkbitarray.pl test.txt > test.ba 
% ./trybitarray.pl test.ba test.txt
yes
yes
yes
yes
yes
yes
% ./trybitarray.pl test.ba         
1
no
1234567
yes
2345
no
7777777
yes

関連

- [を] Perl の vec() で bit vector の操作[2011-04-02-4]
- [を] Bloom Filter の動作確認スクリプトを Perl で書いてみました[2011-04-28-3]

アマゾンでナワトビのナワが売れていました。
青が15本、赤が15本。
教育関係の方かな。
男女半々だから幼稚園とか小学校とか。

■鉄人倶楽部(IRONMAN・CLUB) ジャンピングロープ ブルー KW-0013B
[楽天で探す]
■
鉄人倶楽部(IRONMAN・CLUB) ジャンピングロープ レッド KW-0013R
[楽天で探す]

ウエイト入りも2本売れていました。これは普通のなわでは物足りない生徒さん用ですな。

■鉄人倶楽部(IRONMAN・CLUB) ジャンピングロープパイプウエイト入り ブルー KW-134B
[楽天で探す]

ありがとうございました！！！