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;
www.com | www.net | www.org
No recent polls found