[浜松町からみた TV 塔]
「…… あんなものが
ご自慢ですかっ! (ばん)
赤いッ!」 (つとむ君)
「何言ってんだ おまえ」
(あきら係長)
(吉田戦車「ぷりぷり県」
からかなり不正確な引用)
From: IWAMURO Motonori <iwa@mmp.fujitsu.co.jp>
Newsgroups: fj.comp.lang.perl
Date: 26 Jul 2000 13:36:31 +0900
Message-ID: <t83dkxse28.fsf@elhazard.inet.mmp.fujitsu.co.jp>
(略)
(重複なしの)集合を扱う場合、私はハッシュを使ってます。こんな感じ。
-----------------------------------------------------------
@a{1, 2, 3, 4, 5} = ();
@b{2, 4, 6, 8, 10} = ();
@c{grep {exists($a{$_})} keys %b} = ();
%d = (%a, %b);
print "AND: ", join(", ", sort {$a <=> $b} keys %c), "\n";
print " OR: ", join(", ", sort {$a <=> $b} keys %d), "\n";
-----------------------------------------------------------
AND: 2, 4
OR: 1, 2, 3, 4, 5, 6, 8, 10
-----------------------------------------------------------
(略)
From: "K.Takaoka" <saepro@din.or.jp>
Newsgroups: fj.comp.lang.perl
Date: Wed, 26 Jul 2000 23:40:20 +0900
Message-ID: <397EF854.EC50AD24@din.or.jp>
(略)
他では出てない方法を挙げておこう。
use Set::Scalar;
@c = (Set::Scalar->new(@a) * Set::Scalar->new(@b))->members;
(略)
[浜松町からみた TV 塔]
USAGE: convNumber.pl filename [options] OPTIONS: --grouping key (single, default: NONE) KEY: site mother --output key(s) (default: ALL) KEY: total Number of total seeds srvvl Number of srvvlival seeds intrd Number of introduced seeds preyed Number of preyed seeds dead Number of dead but NOT-preyed seeds missing Number of missing seeds ground Number of ground seeds larder Number of larder seeds scatter Number of scattered seeds 1_cache Counter for (intrd -> cache nwcache Counter for (ground -> cache) recache Counter for (cache -> cache) recover Counter for (cache -> ground) 1_cch_l Counter for (intrd -> larder) nwcch_l Counter for (ground -> larder) recch_l Counter for (cache -> larder) recvr_l Counter for (larder -> ground) 1_cch_s Counter for (intrd -> scatter) nwcch_s Counter for (ground -> scatter) recch_s Counter for (cache -> scatter) recvr_s Counter for (scatter -> ground)