This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
> 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
class Board::Cell { | |
has @.possible; | |
method clone { | |
my @new = @!possible; | |
self.new(:possible(@new)); | |
} | |
method remove-possible($num) { | |
if $.solved && $.value == $num { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
HTTP/1.1 200 OK | |
Transfer-Encoding: chunked | |
Content-Type: text/plain | |
7af | |
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module bar; | |
use foo; | |
my Str @more-stuff; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module foo; | |
use NativeCall; | |
my CArray[int8] $x; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module foo; | |
use NativeCall; | |
sub zlibVersion() returns Str is encoded("ascii") is native("libz.so.1") is export { * }; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
> perl6-m -MNativeCall -e 'my $x=CArray[int].new;say $x[8] = 123;say $x[8] = 123;' | |
0 | |
123 | |
Segmentation fault |
NewerOlder