retupmoca

class Board::Cell {
    has @.possible;

    method clone {
        my @new = @!possible;
        self.new(:possible(@new));
    }

    method remove-possible($num) {
        if $.solved && $.value == $num {

retupmoca

> perl6 -e 'my $t = $*REPO; while $t { say $t; $t .= next-repo }'
inst#C:\Users\Andrew\.perl6\2015.11-311-gf94c31e
inst#C:\users\andrew\development\p6bin\share\perl6\site
inst#C:\users\andrew\development\p6bin\share\perl6\vendor
inst#C:\users\andrew\development\p6bin\share\perl6

> $env:PERL6LIB = "file#a,file#b"

> perl6 -e 'my $t = $*REPO; while $t { say $t; $t .= next-repo }'
file#C:\Users\Andrew\Development\rakudo\a

retupmoca

(defun unsolvable-p (list)
  (let (island-1 in-island)
    (flet ((island-fails () (if in-island
                                (if island-1
                                    (clearf island-1 in-island)
                                    t)
                                nil)))
      (dolist (x list)
            (if (null x)
                (when (island-fails)