Skip to content

Instantly share code, notes, and snippets.

View colomon's full-sized avatar

Solomon Foster colomon

View GitHub Profile
X: 5
T: The Road To Lisdoonvarna
M: 4/4
L: 1/8
R: reel
K: Dmix
DAAG ABcA|GE~E2cE~E2|DAAG ABcA|GBAG FD~D2:|
defd cA~A2|BG~G2 cA~A2|defd cA~A2|[1 BGAG FD~D2:|[2 BGAG FGEF:|
Type check failed in binding $key; expected 'Any' but got 'Mu'
at src/gen/m-CORE.setting:12156 (/Users/colomon/.rakudobrew/moar-1ad58fceeba32a81769aa3f69402cf749c5f2de4/install/languages/perl6/runtime/CORE.setting.moarvm:throw:88)
from src/gen/m-CORE.setting:13612 (/Users/colomon/.rakudobrew/moar-1ad58fceeba32a81769aa3f69402cf749c5f2de4/install/languages/perl6/runtime/CORE.setting.moarvm::55)
from src/gen/m-BOOTSTRAP.nqp:236 (/Users/colomon/.rakudobrew/moar-1ad58fceeba32a81769aa3f69402cf749c5f2de4/install/languages/nqp/lib/Perl6/BOOTSTRAP.moarvm::18)
from src/gen/m-BOOTSTRAP.nqp:2867 (/Users/colomon/.rakudobrew/moar-1ad58fceeba32a81769aa3f69402cf749c5f2de4/install/languages/nqp/lib/Perl6/BOOTSTRAP.moarvm::133)
from src/gen/m-CORE.setting:9766 (/Users/colomon/.rakudobrew/moar-1ad58fceeba32a81769aa3f69402cf749c5f2de4/install/languages/perl6/runtime/CORE.setting.moarvm:infix:<=>>:9)
from src/gen/m-CORE.setting:19538 (/Users/colomon/.rakudobrew/moar-1ad58fceeba32a81769aa3f69402cf749c5f2de4/install/l
[{"version":"*","source-url":"git://github.com/tadzik/perl6-Acme-Meow.git","depends":[],"description":"The kitty you always wanted, now in Perl 6","name":"Acme::Meow"},{"name":"JSON::Tiny","description":"A minimal JSON (de)serializer","source-url":"git://github.com/moritz/json.git","version":"*","depends":[]},{"description":"Damian Conway's Perl 6 testing module","name":"Testing","source-type":"git","version":"*","source-url":"git://github.com/colomon/perl6-Testing.git","depends":[]},{"description":"Simple Mandelbrot Set scripts","name":"mandelbrot","source-type":"git","source-url":"git://github.com/colomon/mandelbrot.git","version":"*","depends":[]},{"source-url":"git://github.com/colomon/io-prompter.git","version":"*","name":"IO::Prompter","repo-url":"git://github.com/colomon/io-prompter.git","depends":["Testing"],"source-type":"git","description":"Damian Conway's IO::Prompter","repo-type":"git"},{"name":"Math::Polynomial","description":"Simple polynomial class","depends":[],"source-url":"git://github.com/c
if $n ~~ Callable {
$n = $n(+@src) + 1;
}
Failed to connect: connection timed out
in method initialize at src/gen/m-CORE.setting:22508
in method new at src/gen/m-CORE.setting:22492
in method dispatch:<.=> at src/gen/m-CORE.setting:1313
in method make_request at lib/LWP/Simple.pm:197
in method request_shell at lib/LWP/Simple.pm:65
in method post at lib/LWP/Simple.pm:32
in block <unit> at t/custom-headers-and-content.t:9
t/custom-headers-and-content.t ..
sub CompareObjectInstances($model-instances, $current-instances) {
# each of those is a list of systems
my $tolerance = 1e-4;
my @current = @$current-instances;
for @$model-instances -> $model {
my $match;
my $shortest-distance = Inf;
for @current.kv -> $i, $current {
use v6;
sub simple-intepreter($input) {
my %defined-words;
my @stack;
my $defining = False;
sub run-words(@words is copy) {
while $_ = @words.shift {
if $defining {
my @b := 1, 2, 4 ... 65536;
my @a := do for @b {
.say;
$_ ** 2;
}
say @a[3];
my @a := do for 1..20 {
.say;
$_ ** 2;
}
say @a[3];
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
index 1b87ef7..a92f8ec 100644
--- a/src/core/metaops.pm
+++ b/src/core/metaops.pm
@@ -96,6 +96,25 @@ sub METAOP_ZIP(\op, &reduce) {
}
}
+sub METAOP_CONTAINER_COMPARE(\op, &reduce) {
+ -> |lol {