Help for this page
sub _derange { ... _derange( $cb, [ map { my $x = $_; [ grep { $_ ne $x } @_ ] } @_ ] ); }
my @x = ( 1 .. 4, 4 ); derange { print "@x[@_]\n" } 0 .. $#x;
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (453 votes), past polls
