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

/* GNU ld script
   Since Gentoo has critical dynamic libraries in /lib, and the static versions
   in /usr/lib, we need to have a "fake" dynamic lib in /usr/lib, otherwise we
   run into linking problems.  This "fake" dynamic lib is a linker script that
   redirects the linker to the real lib.  And yes, this works in the cross-
   compiling scenario as the sysroot-ed linker will prepend the real path.

   See bug http://bugs.gentoo.org/4411 for more info.
 */
OUTPUT_FORMAT ( elf64-x86-64 )

retupmoca

use v6;

#`[
This is an ugly hack to make sure the dependencies are precompiled first
use MIME::Base64::PIR;
use MIME::Base64::Perl;
(some of our tools do a text-based search for 'use' lines,
and don't know about multi-line comments)
]

retupmoca

==> Bootstrapping Panda
==> Fetching File::Find
==> Building File::Find
Compiling lib/File/Find.pm to pir
==> Testing File::Find
t/01-file-find.t .. ok     
All tests successful.
Files=1, Tests=10, 12 wallclock secs ( 0.03 usr  0.01 sys + 10.22 cusr  0.64 csys = 10.90 CPU)
Result: PASS
==> Installing File::Find

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