何をしたの? 何と言ったら正しいのかよくわからないのですが、、、 Perlでクロージャを使って、プログラム内で使用するデータを次々に生成してくれるようなものを作りました。 数パターンのデータを自動的に返してくれるような感じと言うか、 雰囲気的には、変則的な桁繰上りをしてくれるような感じです。 コード use strict; use warnings; my $get_status = sub { use POSIX qw(floor); use bignum; my $count = 0; my $skip = []; #スキップしたい回数目があれば、ここに整数値を配列で入れる my $rule = [ #ルール名・最小値・加算値・最大値をハッシュの配列で持たせる { name => 'a', min => 1, step => 1, max => 2 }, { name => 'b',

