awwaiid

say "hello";
subset NWZ of Int where * > -1;
proto conversion(NWZ $x, $s = ""){*}
multi conversion(0, $s = "0") {
  $s
}
multi conversion($x where * %% 2, $s) {
  conversion($x div 2, "0" ~ $s)
}
multi conversion($x, $s) {

awwaiid

REPL Improvement Goals

Not necessarily in order of importance or ease of implementation!

• Specify which line editor is preferred
• Don't prompt user about Linenoise on Windows
• Be able to turn off Linenoise/Readline/rlwrap hint
• Suppress Linenoise/Readline/rlwrap hint if running under rlwrap
• Persistent history
• Multi-line input

awwaiid

ok 1 - Simple 1 works
ok 2 - Real simple 2 works
not ok 3 - We have prepended values!
#   Failed test 'We have prepended values!'
#   at roman-mark.pl line 35.
#          got: 'IIII'
#     expected: 'IV'
ok 4 - We have Vs
ok 5 - seventeen and stuff
not ok 6 - nineteen and stuff

awwaiid

awwaiid@misao:~/dcpm$ perl randori-2010301-roman.pl           
shift on reference is experimental at randori-2010301-roman.pl line 25.
shift on reference is experimental at randori-2010301-roman.pl line 68.
ok 1 - Simple 1 works
ok 2 - Real simple 2 works
ok 3 - We have prepended values!
ok 4 - We have Vs
ok 5 - seventeen and stuff
ok 6 - nineteen and stuff
ok 7 - twenty and stuff

awwaiid

# namespace
class A::B {
  # "Smiley" type adverb Str:D
  # Named param -- adverb with default True value
  method say-hi(Array[Str:D] :$names) {
    # precedence dropper
    say $names.map: {"hi $_"};
  }
}

awwaiid

awwaiid@misao:~/projects/perl6/lang/Inline-Ruby$ cat hiya.csv
id, name
1, andy
2, bella
3, chad
4, dua
awwaiid@misao:~/projects/perl6/lang/Inline-Ruby$ PERL6LIB=lib perl6
> use Inline::Ruby::Sweet
> ruby_require 'csv', ['CSV']
Requiring ruby module csv

awwaiid

> use Inline::Ruby::Sweet;
> "require 'json'":rb
«true»:rb
> my $json = 'JSON.parse(File.read("/home/awwaiid/lag.json"))':rb ; 5
5
> $json.count
«36071»:rb
> $json[0]
«{"order_id"=>1173786, "marketplace_id"=>1, "order_placed"=>"2015-10-13T20:28:59-04:00", "order_created"=>"2015-10-13T20:28:59-04:00", "lag"=>0.382000207901001}»:rb
> $json[0]["marketpalce_id"]

awwaiid

$ ./universal-greetings.p6
Hello from the Perl Universe!!!

awwaiid

01:17 < TEttinger> m: say "␤" for ^10
01:17 <+camelia> rakudo-moar 091ee7:
01:17 -!- Irssi: 
01:17 -!- Irssi: 
01:17 -!- Irssi: 
01:17 -!- Irssi: 
01:17 -!- Irssi: 
01:17 -!- Irssi: 
01:17 -!- Irssi: 
01:17 -!- Irssi: 

awwaiid

#!/usr/bin/env perl6

# use Grammar::Tracer;

grammar Offsides {
  token TOP {
    <tree>*
  }

  token tree {