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)

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

class Board::Cell {
    has @.possible;

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

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

retupmoca

use v6;
use NativeCall;
class foo is repr('CStruct'); # works fine without the repr('CStruct')

has CArray $!foo;

method set-foo(CArray $arr) {
    $!foo := $arr;
}

retupmoca

HTTP/1.1 200 OK
Transfer-Encoding: chunked
Content-Type: text/plain

7af
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

retupmoca

module bar;

use foo;

my Str @more-stuff;

retupmoca

This is perl6 version 2014.03.01-50-gb777559 built on MoarVM version 2014.03-58-g7acb6c1

1..47
# [0s] starting tests
# [0s] Testing on port 1024
ok 1 - [2s] echo server and client
ok 2 - finished in time #1
ok 3 - [2s] discard server and client
ok 4 - finished in time #2
ok 5 - [45s] received first 7 characters

retupmoca

module foo;
use NativeCall;

my CArray[int8] $x;

retupmoca

module foo;
use NativeCall;
sub zlibVersion() returns Str is encoded("ascii") is native("libz.so.1") is export { * };

retupmoca

> perl6-m -MNativeCall -e 'my $x=CArray[int].new;say $x[8] = 123;say $x[8] = 123;'
0
123
Segmentation fault