Flipping bits game: Difference between revisions

 

=={{header|Perl 6}}==

Pass in a parameter to set the square size for the puzzle. (Defaults to 4.) Arbitrarily limited to between 1 and 26. Yes, you can choose to solve a 1 element square puzzle, but it won't be very challenging. Accepts upper or lower case letters for columns. Disregards any out-of-range indices. Enter a blank or 0 (zero) to exit.

 

sub scramble(%hash) {

my @keys = keys %hash;

flip $_, %hash for @keys.pick( @keys/2 );

}</lang>