Skip to content

Instantly share code, notes, and snippets.

@perl6
perl6 / gist:127925
Created June 11, 2009 14:38
(1) clone rakudo repo
(2) git checkout --track -b ins origin/ins
(3) perl Configure.pl --gen-parrot
(4) make
@perl6
perl6 / gist:127957
Created June 11, 2009 15:00
(1) git clone http://github.com/rakudo/rakudo.git
(2) cd rakudo
(3) git checkout --track -b ins origin/ins
(4) perl Configure.pl --gen-parrot
(5) make
@perl6
perl6 / gist:140287
Created July 3, 2009 20:18
Spectest results after setting INITIAL_BUCKETS to 16
x86_64:
Failed Test Stat Wstat Total Fail List of Failed
-------------------------------------------------------------------------------
t/spec/S02-literals/array-interpolation.r 0 6 12 12 7-12
t/spec/S03-operators/precedence.rakudo 0 11 52 14 46-52
t/spec/S04-declarations/constant.rakudo 20 13 8-20
t/spec/S10-packages/basic.rakudo 0 6 22 0 ??
t/spec/S12-enums/basic.rakudo 30 1 27
@perl6
perl6 / gist:140288
Created July 3, 2009 20:20
Spectest results after setting INITIAL_BUCKETS to 16
x86_64:
Failed Test Stat Wstat Total Fail List of Failed
-------------------------------------------------------------------------------
t/spec/S02-literals/quoting-unicode.t 0 6 70 104 19-70
t/spec/S04-declarations/constant.rakudo 20 13 8-20
t/spec/S10-packages/basic.rakudo 0 6 22 0 ??
t/spec/S12-construction/autopairs.t 0 11 4 2 4
t/spec/S12-enums/basic.rakudo 30 1 27
@perl6
perl6 / gist:153993
Created July 24, 2009 11:12
$ cat cards.pl
my @suits = < ♣ ♢ ♡ ♠ >;
my @ranks = 2..10, < J Q K A >;
# concatenate each rank with each suit (2♣ 2♢ 2♡ ... A♠)
my @deck = @ranks X~ @suits;
# build a hash of card names to point values
my %points = @deck Z @( (2..10, 10, 10, 10, 11) >>xx>> 4 );
@perl6
perl6 / gist:178756
Created August 31, 2009 22:36
Linus Torvalds (torvalds@cs.helsinki.fi)
Thu, 9 May 1996 17:48:56 +0300 (EET DST)
[...stuff omitted...]
Ok, so we should be thinking of a lovable, cuddly, stuffed penguin
sitting down after having gorged itself on herring. Still with me?
.
NOW comes the hard part. With this image firmly etched on your eyeballs, you
then scetch a stylizied version of it. Not a lot of detail - just a black
@perl6
perl6 / gist:210101
Created October 14, 2009 14:11
$ ./perl6 --target=pir x
.HLL "perl6"
.namespace []
.sub "_block11" :main :anon :subid("10_1255529479")
.param pmc param_52 :slurpy
.annotate "line", 0
.const 'Sub' $P54 = "14_1255529479"
capture_lex $P54
@perl6
perl6 / gist:216022
Created October 22, 2009 15:42
0/1: START statementlist
0/1: START ws
0/1: PASS ws at pos=0
0/1: START ws
0/1: PASS ws at pos=0
0/1: START statement
0/1: Generating protoregex table for statement_control
0/1: PROTO statement_control
0/1: token1="i", token="if"
0/1: START statement_control:sym<if>
@perl6
perl6 / gist:216025
Created October 22, 2009 15:44
0/1: START statementlist
0/1: START ws
0/1: PASS ws at pos=0
0/1: START ws
0/1: PASS ws at pos=0
0/1: START statement
0/1: Generating protoregex table for statement_control
0/1: PROTO statement_control
0/1: token1="i", token=""
0/1: START statement_control:sym<if>
@perl6
perl6 / gist:216026
Created October 22, 2009 15:45
0/1: START statementlist
0/1: START ws
0/1: PASS ws at pos=0
0/1: START ws
0/1: PASS ws at pos=0
0/1: START statement
0/1: Generating protoregex table for statement_control
0/1: PROTO statement_control
0/1: token1="i", token="if"
0/1: START statement_control:sym<if>