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
Method 'jast' not found for invocant of class 'NQPMu' | |
in (gen/jvm/stage2/QAST.nqp:3790) | |
in compile_all_the_stmts (gen/jvm/stage2/QAST.nqp:3772) | |
in (gen/jvm/stage2/QAST.nqp:3372) | |
in (gen/jvm/stage2/QAST.nqp:3369) | |
in as_jast (gen/jvm/stage2/QAST.nqp:3315) | |
in as_jast (gen/jvm/stage2/QAST.nqp:2990) | |
in as_jast (gen/jvm/stage2/QAST.nqp:3044) | |
in as_jast (gen/jvm/stage2/QAST.nqp:2990) | |
in jast (gen/jvm/stage2/QAST.nqp:2856) |
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
my %circ = ( | |
'(' => ')', | |
'[' => ']' | |
); | |
token circumfix_operation { (<circumfix_open>) <expression> (<circumfix_close>) <?{ %circ{$0} eq $1 }> } | |
token circumfix_open { @(%circ.keys) } | |
token circumfix_close { @(%circ.values) } |
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
x@patience:~/data/projects/perl6/panda > rakudo/install/bin/perl6 -e 'my $*RESTRICTED; say EVAL "(:a(1):b(2))"' | |
a => 1 | |
x@patience:~/data/projects/perl6/panda > rakudo/install/bin/perl6 -e 'say EVAL "(:a(1):b(2))"' | |
a => 1 b => 2 | |
x@patience:~/data/projects/perl6/panda > rakudo/install/bin/perl6 -e 'my $*RESTRICTED; say do { (:a(1):b(2)) }' | |
a => 1 b => 2 | |
x@patience:~/data/projects/perl6/panda > rakudo/install/bin/perl6 -e 'my $*FOO; say do { (:a(1):b(2)) }' | |
a => 1 b => 2 |
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
declare_array line | |
for_input_lines | |
trim _ | |
split _ line ' ' | |
if line[0] 'declare_array' | |
print 'my $' | |
print_var line[1] | |
say ' = [];' | |
elsif line[0] 'for_input_lines' | |
say 'for $*IN.lines -> $_ is copy {' |
This file has been truncated, but you can view the full file.
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
<!DOCTYPE html> | |
<html lang="en" ng-app="moarProfApp" ng-controller="NavigationController"> | |
<head> | |
<meta charset="utf-8"> | |
<meta http-equiv="X-UA-Compatible" content="IE=edge"> | |
<meta name="viewport" content="width=device-width, initial-scale=1"> | |
<title>MoarVM Profiler Results</title> | |
<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css"> | |
<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap-theme.min.css"> | |
<style> |
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
> examples/sum.p6 1e8 | |
lua... | |
5.00000005e+15 | |
perlint... | |
5000000050000000 | |
perlnum... | |
5.00000005e+15 | |
perlnum64... | |
5.00000005e+15 |
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
#!/usr/bin/env perl6 | |
use NativeCall; | |
class SDL_Window is repr('CStruct') {} | |
class SDL_Renderer is repr('CStruct') {} | |
class SDL_Point is repr('CStruct') { | |
has int32 $.x; | |
has int32 $.y; | |
method set($x, $y) { |
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
#!/usr/bin/env perl6 | |
my $bound = 100; | |
my @answers; | |
Pl: for 3..$bound -> $p { | |
my $pv = 1 / $p; | |
Ql: for $p..$bound -> $q { | |
my $qv = 1 / $q; |
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
#!/usr/bin/env perl6 | |
sub assuming ($r, |curried) { | |
if my @holes := (^curried).grep: { curried[$_] ~~ Whatever } { | |
my $last-hole = @holes[*-1]; | |
my @mixed; | |
@mixed[$_] := curried[$_] for 0 .. $last-hole; | |
my @curried := curried[$last-hole ^.. *]; | |
return sub CURRIED (|direct) { | |
@mixed[@holes[$_]] := direct[$_] for ^@holes; |
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 ZMQ; | |
use NativeCall; | |
sub zmq_version (OpaquePointer, OpaquePointer, OpaquePointer) is native('zmq') {*}; | |
sub zmq_errno () returns int is native('zmq') {*}; | |
sub zmq_strerror (int) returns Str is native('zmq') {*}; | |
sub zmq_ctx_new () returns OpaquePointer is native('zmq') {*}; | |
sub zmq_ctx_term (OpaquePointer) returns int is native('zmq') {*}; | |
sub zmq_ctx_shutdown (OpaquePointer) returns int is native('zmq') {*}; |
NewerOlder