2008-04-17から1日間の記事一覧
リストの全組み合わせを作る方法。 HOPの内容ではないけど、役に立つのであげておこう。 #!/usr/bin/env perl use strict; use warnings; sub permute { my @items = @{ $_[0] }; my @perms = @{ $_[1] }; unless (@items) { print "@perms\n"; } else { my …
リストの全組み合わせを作る方法。 HOPの内容ではないけど、役に立つのであげておこう。 #!/usr/bin/env perl use strict; use warnings; sub permute { my @items = @{ $_[0] }; my @perms = @{ $_[1] }; unless (@items) { print "@perms\n"; } else { my …