Location : Home > Languages > Perl > Package Title : Algorithm::GenerateSequence

名称

　Algorithm::GenerateSequence - 記号による数列を生成する

概要

my $gen = Algorithm::GenerateSequence->new(
	[qw( one two three )], [qw( hey bee )],
);
print join(' ', $gen->next), "\n"; # one hey
print join(' ', $gen->next), "\n"; # one bee
print join(' ', $gen->next), "\n"; # two hey
print join(' ', $gen->next), "\n"; # two bee
...

説明

　Algorithm::GenerateSequence は記号で定義した数列の各位置の値を与える。
　それぞれの位置に異なる記号をあてはめることもでき、モジュールは計算を正しく繰り返す。これはデッキに置かれたカードを特定するのに有効かも知れない。

my $deck = Algorithm::GenerateSequence->new(
	[qw( Heart Diamond Spade Club )],
	[qw( A 2 3 4 5 6 7 8 9 10 J Q K )],
);

　または探索するアドレスの幅を設定して：

my $scan = Algorithm::GenerateSequence->new(
	[192], [168], [0..254], [1]
);

メソッド

new( @values )

　@values は数列を構成したい記号の配列を含むものとする。

next

　数列の次の値を含むリストを返し、もし数列の最後であれば false を返す。

as_list

　数列の残りを配列参照のリストとして返す。

バグ

　今のところ既知のものはない。もし発見した場合には bug-Algorithm-GenerateSequence@rt.cpan.org にメールして http://rt.cpan.org に知らせるか、直接私に知らせて欲しい。

著者

　Richard Clamp, <richardc@unixbeard.net>

著作権

　Copyright (C) 2003 Richard Clamp. All Rights Reserved.
　本プログラムはフリーソフトウェアであり、Perl 本体と同等の条件で修正／再配布することができる。

Updated : 2006/06/18