Raku, the Big

The Swiss-Army Chainsaw of Perl is now the full carpentry shop of Raku.
Which new tools are the Shiniest? Sharpest? Most-likely-to-cut-you-est?
Should other languages be inspired, or warned by its evolution?
Come see how the power of the 100-year language moved it from Perl 6.0 to First-of-its-Name.

Multiple paradigms, chained data flows, Types, Sets, Lazy Lists, Async.
Lurking among the many additions are a few key bits, that take Raku from Wow to Whoa!
Those bits also trigger most of the divergence from old mindsets and Perl solutions.

All the new moving parts fit like clockwork! Success!
But more tools, working together in new ways, means more to teach. Far more than was planned for.

Also relevant to Perl 7, and any other languages planning a growth phase.

Transcript

1. Raku, the Big
 The Perl and Raku Conference
 
 2021-06-09
2. Raku, the Big http://speakerdeck.com/util
 
 <bruce.gray@acm.org> <<< >>> >>> <<<
3. Raku, the Big

4. Raku, the Big
 in Stories, Musings, and Song
5. Raku, the Big
 in Stories, Musings, and Song
6. Raku, the Big
 in Stories, Musings, and Code
7. Raku, the Big
 in Stories, Musings, and Code COVID Edition
8. /me
 
 Bruce Gray
 
 'Util'
9. Raku, the Big
10. big... what?
11. Big Deal?
12. Big Change?
13. Big Problem?
14. Next Big Thing?
15. Big Impact
16. Big Impact Big Grammar Footprint
17. YAPC::NA::2015
18. 10% 80% 10% Changed Old Removed Perl ==> Raku
19. Boomeringue
20. LTA
21. Less Than Awesome
22. raku -e 'sub abcde {...}; say abbde(); '; ===SORRY!=== Error while compiling -e Undeclared routine: abbde used at line 2. Did you mean 'abcde'?
23. raku -e 'sub abcde {...}; say abbde(); '; ===SORRY!=== Error while compiling -e Undeclared routine: abbde used at line 2. Did you mean 'abcde'?
24. raku -e 'say 42 * ( 3 + 2 ' ===SORRY!=== Error while compiling -e Unable to parse expression in parenthesized expression; couldn't find final ')'
 (corresponding starter was at line 1) at -e:1 ------> say 42 * ( 3 + 2 ⏏<EOL>
25. multi sub pretzel ( $dough ) { ... } multi sub pretzel ( $dough, $size ) { ... }
26. multi sub pretzel ( $dough ) { ... } multi sub pretzel ( $dough, $size ) { ... } sub pretzel ( $dough, $size? ) { if $size { ... } else { ... } }
27. my Int $apple_count = 3; my Str $apple_name1 = 'Red Delicious'; my Str $apple_name2 = 'Granny Smith';
28. my $apple_count = 3; my $apple_name1 = 'Red Delicious'; my $apple_name2 = 'Granny Smith';
29. my $apple_count = 3; my $apple_name1 = 'Red Delicious'; my $apple_name2 = 'Granny Smith'; say chars($apple_name1, $apple_name2);
30. say chars($apple_name1, $apple_name2); Calling chars(Mu, Mu) will never work with any of these multi signatures: (Cool $x) (Str:D $x) (str $x --> int) at line 4
31. say chars($apple_name1, $apple_name2); Calling chars(Mu, Mu) will never work with any of these multi signatures: (Cool $x) (Str:D $x) (str $x --> int) at line 4
32. say chars($apple_name1, $apple_name2); Calling chars(Mu, Mu) will never work with any of these multi signatures: (Cool $x) (Str:D $x) (str $x --> int) at line 4
33. https://www.ozonehouse.com/mark/ periodic/
39. ^..^ ^ff^
43. Yo trabajo duro Como en madera y yeso
50. <g fill="none" stroke="green" stroke-width="1"> <circle cx="500" cy="500" r="1" /> <circle cx="500" cy="500" r="2" /> ... <circle cx="500" cy="500" r="24" /> <circle cx="500" cy="500" r="25" />
55. All your paradigms are belong to Perl
56. All your paradigms are belong to Raku
57. All your paradigms are belong to Raku Trans-paradigm Programming
58. All your paradigms are belong to Raku You have no chance to survive make your time.
59. All your paradigms are belong to Raku You have no chance to survive make your time.
60. ???
61. T I M T O W T D I h s o h n a o o t e r a e y r e n e
62. TIMTOWTDI BSCINABTE
63. There’s more than one way to do it, but sometimes consistency is not a bad thing either.
64. my $variable versus my \variable @, %, $ (singular/plural) versus $ (everything is singular) if else versus ?? !! ternary >>. versus map | Slip versus flat Sort 1-arity versus Sort 2-arity >>op<< versus Zop >>op>> versus Xop .rotor versus .batch .subst( :g, $char, $char ) versus .trans( $char => $char ) .cache versus [] bar($foo,2,3) versus $foo.&bar(2,3) die versus fail $o.method($arg); versus $o.method: $arg; @a.first: * > 5 versus @a.first: { $_ > 5 }
65. my $variable versus my \variable @, %, $ (singular/plural) versus $ (everything is singular) if else versus ?? !! ternary >>. versus map | Slip versus flat Sort 1-arity versus Sort 2-arity >>op<< versus Zop >>op>> versus Xop .rotor versus .batch .subst( :g, $char, $char ) versus .trans( $char => $char ) .cache versus [] bar($foo,2,3) versus $foo.&bar(2,3) die versus fail $o.method($arg); versus $o.method: $arg; @a.first: * > 5 versus @a.first: { $_ > 5 }
66. my $variable versus my \variable @, %, $ (singular/plural) versus $ (everything is singular) if else versus ?? !! ternary >>. versus map | Slip versus flat Sort 1-arity versus Sort 2-arity >>op<< versus Zop >>op>> versus Xop .rotor versus .batch .subst( :g, $char, $char ) versus .trans( $char => $char ) .cache versus [] bar($foo,2,3) versus $foo.&bar(2,3) die versus fail $o.method($arg); versus $o.method: $arg; @a.first: * > 5 versus @a.first: { $_ > 5 }
67. Procedural OO Functional Arrow sub parameter list placeholders say put print rand .pick .roll
68. Procedural OO Functional Arrow sub parameter list placeholders say put print rand .pick .roll
69. Procedural OO Functional Arrow sub parameter list placeholders say put print rand .pick .roll
70. Procedural OO Functional Arrow sub parameter list placeholders say put print rand .pick .roll
71. Procedural OO Functional Arrow sub parameter list placeholders say put print rand .pick .roll
72. If we provide more than one way to do it, we should provide guidance on which way. -- Util
73. Disney Animal Kingdom Lodge
74. Set, Bag, Mix
75. lismat == Elizabeth Mattijsen Raku - Sets without Borders https://fosdem.org/2021/schedule/event/ raku_sets_without_borders/
79. Set Operators ∪ (|) Union ∩ (&) Intersection ∖ (-) Set difference ⊖ (^) Symmetric set difference ∈ ∉ (elem) $a is an element of $b ∋ ∌ (cont) $a contains $b ⊆ ⊈ (<=) $a is a subset of or is equal to $b ⊂ ⊄ (<) $a is a strict subset of $b ⊇ ⊉ (>=) $a is a superset of or is equal to $b ⊃ ⊅ (>) $a is a strict superset of $b ≡ ≢ (==) $a and $b are identical
81. S S S
82. S S S Shakespearean Solar System
83. sub was_planet_before_1700 { my ($planet) = @_; return 1 if $planet eq 'Mercury' or $planet eq 'Venus' or $planet eq 'Earth' or $planet eq 'Mars' or $planet eq 'Jupiter' or $planet eq 'Saturn'; return 0; }
84. sub was_planet_before_1700 { return 1 if $planet eq 'Mercury' or $planet eq 'Venus' or $planet eq 'Earth' or $planet eq 'Mars' or $planet eq 'Jupiter' or $planet eq 'Saturn'; return 0; }
85. sub was_planet_before_1700 ($planet) { return 1 if $planet eq 'Mercury' or $planet eq 'Venus' or $planet eq 'Earth' or $planet eq 'Mars' or $planet eq 'Jupiter' or $planet eq 'Saturn'; return 0; }
86. sub was_planet_before_1700 ($planet) { my @p = ('Mercury', 'Venus', 'Earth', 'Mars', 'Jupiter', 'Saturn'); for my $p17 (@p) { return 1 if $planet eq $p17; } return 0; }
87. sub was_planet_before_1700 ($planet) { my @p = qw( Mercury Venus Earth Mars Jupiter Saturn ); for my $p17 (@p) { return 1 if $planet eq $p17; } return 0; }
88. sub was_planet_before_1700 ($planet) { my @p = qw<Mercury Venus Earth Mars Jupiter Saturn>; for my $p17 (@p) { return 1 if $planet eq $p17; } return 0; }
89. sub was_planet_before_1700 ($planet) { state @p = qw<Mercury Venus Earth Mars Jupiter Saturn>; for my $p17 (@p) { return 1 if $planet eq $p17; } return 0; }
90. sub was_planet_before_1700 ($planet) { state %p = ( 'Mercury' => undef, 'Venus' => undef, 'Earth' => undef, 'Mars' => undef, 'Jupiter' => undef, 'Saturn' => undef, ); return 1 if exists $p{$planet}; return 0; }
91. sub was_planet_before_1700 ($planet) { state %p = ( 'Mercury' => 1, 'Venus' => 1, 'Earth' => 1, 'Mars' => 1, 'Jupiter' => 1, 'Saturn' => 1, ); return 1 if exists $p{$planet}; return 0; }
92. sub was_planet_before_1700 ($planet) { state %p = ( 'Mercury' => 1, 'Venus' => 1, 'Earth' => 1, 'Mars' => 1, 'Jupiter' => 1, 'Saturn' => 1, ); return 1 if $p{$planet}; return 0; }
93. sub was_planet_before_1700 ($planet) { state %p = ( Mercury => 1, Venus => 1, Earth => 1, Mars => 1, Jupiter => 1, Saturn => 1, ); return 1 if $p{$planet}; return 0; }
94. sub was_planet_before_1700 ($planet) { state %p; $p{$_} = 1 for qw<Mercury Venus Earth Mars Jupiter Saturn>; return 1 if $p{$planet}; return 0; }
95. sub was_planet_before_1700 ($planet) { state %p = map { $_ => 1 } qw<Mercury Venus Earth Mars Jupiter Saturn>; return 1 if $p{$planet}; return 0; }
96. sub was_planet_before_1700 ($planet) { state %p = map { $_ => 1 }, qw<Mercury Venus Earth Mars Jupiter Saturn>; return 1 if %p{$planet}; return 0; }
97. sub was_planet_before_1700 ($planet) { state %p = map { $_ => 1 }, <Mercury Venus Earth Mars Jupiter Saturn>; return 1 if %p{$planet}; return 0; }
98. sub was_planet_before_1700 ($planet) { state %p = map { $_ => 1 }, <Mercury Venus Earth Mars Jupiter Saturn>; return True if %p{$planet}; return False; }
99. sub was_planet_before_1700 ($planet) { state %p = map { $_ => 1 }, <Mercury Venus Earth Mars Jupiter Saturn>; return ? %p{$planet}; }
100. sub was_planet_before_1700 ($planet) { state %p = <Mercury Venus Earth Mars Jupiter Saturn> X=> 1; return ? %p{$planet}; }
101. sub was_planet_before_1700 ($planet) { state %p = <Mercury Venus Earth Mars Jupiter Saturn> X=> 1; return ? %p{$planet}; }
102. sub was_planet_before_1700 ($planet) { state $p = <Mercury Venus Earth Mars Jupiter Saturn>.Set; return $planet (elem) $p; }
103. sub was_planet_before_1700 ($planet) { constant $p = <Mercury Venus Earth Mars Jupiter Saturn>.Set; return $planet (elem) $p; }
104. sub was_planet_before_1700 ($planet) { constant $p = <Mercury Venus Earth Mars Jupiter Saturn>.Set; return $planet ∈ $p; }
105. sub was_planet_before_1700 ($planet) { constant $p = <Mercury Venus Earth Mars Jupiter Saturn>.Set; return $planet ∈ $p; }
106. sub was_planet_before_1700 ($planet) { constant $p = <Mercury Venus Earth Mars Jupiter Saturn>.Set; return $planet ∈ $p; }
107. say <apple apple apple pear>.Bag.raku; ("pear" => 1, "apple" => 3).Bag
108. say <apple apple apple pear>.Bag.raku; ("pear" => 1, "apple" => 3).Bag my %h; %h{$_}++ for <apple apple apple pear>;
109. my %a = apple => 3; my %b = apple => 2, pear => 2;
110. my %a = apple => 3; my %b = apple => 2, pear => 2; dd %a.Bag (+) %b.Bag; # ( "apple" => 5, "pear" => 2 ).Bag
111. my %a = apple => 3; my %b = apple => 2, pear => 2; dd %a.Bag (+) %b.Bag; # ( "apple" => 5, "pear" => 2 ).Bag dd %a.Bag (&) %b.Bag; # ( "apple" => 2 ).Bag
112. my %a = apple => 3; my %b = apple => 2, pear => 2; dd %a.Bag (+) %b.Bag; # ( "apple" => 5, "pear" => 2 ).Bag dd %a.Bag (&) %b.Bag; # ( "apple" => 2 ).Bag dd %a.Bag (|) %b.Bag; # ( "apple" => 3, "pear" => 2 ).Bag
113. Fractal Ferns
114. Fractal Ferns at Georgia Tech !
115. Barnsley fern ƒ1 (chosen 1% of the time) xn = 0 yn = 0.16 y ƒ2 (chosen 85% of the time) xn = 0.85 x + 0.04 y yn = −0.04 x + 0.85 y + 1.6 ƒ3 (chosen 7% of the time) xn = 0.2 x − 0.26 y yn = 0.23 x + 0.22 y + 1.6 ƒ4 (chosen 7% of the time) xn = −0.15 x + 0.28 y yn = 0.26 x + 0.24 y + 0.44
116. use Imager; my $w = 640; my $h = 640; my $img = Imager->new(xsize => $w, ysize => $h, channels => 3); my $green = Imager::Color->new('#00FF00'); my ($x, $y) = (0, 0); foreach (1 .. 2e5) { my $r = rand(100); ($x, $y) = do { if ($r <= 1) { ( 0.00 * $x - 0.00 * $y, 0.00 * $x + 0.16 * $y + 0.00) } elsif ($r <= 8) { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } elsif ($r <= 15) { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } else { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } }; $img->setpixel(x => $w / 2 + $x * 60, y => $y * 60, color => $green); } $img->flip(dir => 'v'); $img->write(file => 'barnsleyFern.png');
117. use Image::PNG::Portable; my ($w, $h) = (640, 640); my $png = Image::PNG::Portable.new: :width($w), :height($h); my ($x, $y) = (0, 0); for ^2e5 { my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } }; $png.set(($w / 2 + $x * 60).Int, $h - ($y * 60).Int, 0, 255, 0); } $png.write: 'Barnsley-fern-perl6.png';
118. use Image::PNG::Portable; my ($w, $h) = 640, 640; my $png = Image::PNG::Portable.new: :width($w), :height($h); my ($x, $y) = 0, 0; for ^2e5 { my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } }; $png.set(($w / 2 + $x * 60).Int, $h - ($y * 60).Int, 0, 255, 0); } $png.write: 'Barnsley-fern-perl6.png';
119. my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } };
120. my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } };
121. my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } };
122. my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } };
123. my $r = 100.rand; my ($a, $b, $c, $d, $e) = do given $r { when $r <= 1 { ( 0 , 0 , 0 , 0.16, 0 ) } when $r <= 8 { ( 0.20, -0.26, 0.23, 0.22, 1.60) } when $r <= 15 { (-0.15, 0.28, 0.26, 0.24, 0.44) } default { ( 0.85, 0.04, -0.04, 0.85, 1.60) } }; ($x, $y) = $a * $x + $b * $y , $c * $x + $d * $y + $e ;
124. constant @f = ( 0 , 0 , 0 , 0.16, 0 ), ( 0.20, -0.26, 0.23, 0.22, 1.60 ), ( -0.15, 0.28, 0.26, 0.24, 0.44 ), ( 0.85, 0.04, -0.04, 0.85, 1.60 ), ;
125. my $r = 100.rand; my $which_f = ($r <= 1) ?? 0 !! ($r <= 8) ?? 1 !! ($r <= 15) ?? 2 !! 3 ; my ($a, $b, $c, $d, $e) = @f[$which_f]; ($x, $y) = $a * $x + $b * $y , $c * $x + $d * $y + $e ;
126. Wikipedia
 (You can tell from the footnote)
127. my $wp_table = qq:to/END/; w a b c d e f p Portion generated ƒ1 0 0 0 0.16 0 0 0.01 Stem ƒ2 0.85 0.04 -0.04 0.85 0 1.60 0.85 Successively smaller leaflets ƒ3 0.20 -0.26 0.23 0.22 0 1.60 0.07 Largest left-hand leaflet ƒ4 -0.15 0.28 0.26 0.24 0 0.44 0.07 Largest right-hand leaflet END
128. my $wp_table = qq:to/END/; w a b c d e f p Portion generated ƒ1 0 0 0 0.16 0 0 0.01 Stem ƒ2 0.85 0.04 -0.04 0.85 0 1.60 0.85 Successively smaller leaflets ƒ3 0.20 -0.26 0.23 0.22 0 1.60 0.07 Largest left-hand leaflet ƒ4 -0.15 0.28 0.26 0.24 0 0.44 0.07 Largest right-hand leaflet END
129. my $wp_table = qq:to/END/; w a b c d e f p Portion generated ƒ1 0 0 0 0.16 0 0 0.01 Stem ƒ2 0.85 0.04 -0.04 0.85 0 1.60 0.85 Successively smaller leaflets ƒ3 0.20 -0.26 0.23 0.22 0 1.60 0.07 Largest left-hand leaflet ƒ4 -0.15 0.28 0.26 0.24 0 0.44 0.07 Largest right-hand leaflet END my @AoA = $wp_table.lines .map({ .trim.words(8) });
130. my $wp_table = qq:to/END/; w a b c d e f p Portion generated ƒ1 0 0 0 0.16 0 0 0.01 Stem ƒ2 0.85 0.04 -0.04 0.85 0 1.60 0.85 Successively smaller leaflets ƒ3 0.20 -0.26 0.23 0.22 0 1.60 0.07 Largest left-hand leaflet ƒ4 -0.15 0.28 0.26 0.24 0 0.44 0.07 Largest right-hand leaflet END my @AoA = $wp_table.lines .map({ .trim.words(8) });
131. Barnsley fern ƒ1 (chosen 1% of the time) xn = 0 yn = 0.16 y ƒ2 (chosen 85% of the time) xn = 0.85 x + 0.04 y yn = −0.04 x + 0.85 y + 1.6 ƒ3 (chosen 7% of the time) xn = 0.2 x − 0.26 y yn = 0.23 x + 0.22 y + 1.6 ƒ4 (chosen 7% of the time) xn = −0.15 x + 0.28 y yn = 0.26 x + 0.24 y + 0.44
132. my $which_f = ($r <= 1) ?? 0 !! ($r <= 8) ?? 1 !! ($r <= 15) ?? 2 !! 3 ;
133. my $r = 100.rand; ($x, $y) = do given $r { when $r <= 1 { ( 0, 0.16 * $y ) } when $r <= 8 { ( 0.20 * $x - 0.26 * $y, 0.23 * $x + 0.22 * $y + 1.60) } when $r <= 15 { (-0.15 * $x + 0.28 * $y, 0.26 * $x + 0.24 * $y + 0.44) } default { ( 0.85 * $x + 0.04 * $y, -0.04 * $x + 0.85 * $y + 1.60) } };
134. say <apple apple apple pear>.Bag.raku; ("pear" => 1, "apple" => 3).Bag
135. my $r = 100.rand; my $which_f = ($r <= 1) ?? 0 !! ($r <= 8) ?? 1 !! ($r <= 15) ?? 2 !! 3 ;
136. my $wp_table = qq:to/END/; w a b c d e f p Portion generated ƒ1 0 0 0 0.16 0 0 0.01 Stem ƒ2 0.85 0.04 -0.04 0.85 0 1.60 0.85 Successively smaller leaflets ƒ3 0.20 -0.26 0.23 0.22 0 1.60 0.07 Largest left-hand leaflet ƒ4 -0.15 0.28 0.26 0.24 0 0.44 0.07 Largest right-hand leaflet END my @AoA = $wp_table.lines .map({ .trim.words(8) });
137. my $wp_table = qq:to/END/; w a b c d e f p Portion generated ƒ1 0 0 0 0.16 0 0 0.01 Stem ƒ2 0.85 0.04 -0.04 0.85 0 1.60 0.85 Successively smaller leaflets ƒ3 0.20 -0.26 0.23 0.22 0 1.60 0.07 Largest left-hand leaflet ƒ4 -0.15 0.28 0.26 0.24 0 0.44 0.07 Largest right-hand leaflet END my @AoA = $wp_table.lines .map({ .trim.words(8) }); my Mix $weighted_table = @AoA.skip.map({ $_ => .[7] }).Mix;
138. for ^2e5 { my (\w,\a,\b,\c,\d,\e,\f) = $weighted_table.roll.list; ($x, $y) = a * $x + b * $y + e, c * $x + d * $y + f; $png.set( ($width / 2 + $x * 60).floor, ($height - $y * 60).floor, 0, 255, 0 ); }
139. sf.pm.org
140. sf.pm.org doomvox == Joseph Brenner
141. 2000-07-18 Coffee Mug Incident Now
142. 2000-07-18 Coffee Mug Incident Now 21 years
143. Experts
144. Super-Experts
145. 2000-07-18 Coffee Mug Incident Now 21 years
148. say chars($apple_name1, $apple_name2); Calling chars(Mu, Mu) will never work with any of these multi signatures: (Cool $x) (Str:D $x) (str $x --> int) at line 4
149. Curse of Knowledge
150. Curse of Knowledge https://en.wikipedia.org/wiki/Cognitive_bias https://en.wikipedia.org/wiki/List_of_cognitive_biases https://en.wikipedia.org/wiki/Curse_of_knowledge
151. All I Really Need To Know About
 Cognitive Bias I Learned in HPMoR https://en.wikipedia.org/wiki/Cognitive_bias https://en.wikipedia.org/wiki/List_of_cognitive_biases https://en.wikipedia.org/wiki/Curse_of_knowledge
152. The Sum of All Fears
153. The Sums of All Cubes
154. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); 0 1 9 36 100 225 441 784 1296 2025 3025 4356 6084 8281 11025 14400 18496 23409 29241 36100 44100 53361 64009 76176 90000 105625 123201 142884 164836 189225 216225 246016 278784 314721 354025 396900 443556 494209 549081 608400 672400 741321 815409 894916 980100 1071225 1168561 1272384 1382976 1500625
155. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); ^4 # 0, 1, 2, 3
156. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5…
157. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… <Blue Red Green> X~ <Car Truck> <BlueCar BlueTruck RedCar RedTruck GreenCar GreenTruck>
158. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… (2, 3) X** 3 # 8, 27
159. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… my @all_cubes = @all_integers X** 3; # 0, 1, 8, 27, 64, 125…
160. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… my @all_cubes = @all_integers X** 3; # 0, 1, 8, 27, 64, 125… [~] <A B C D> produces 'ABCD' [\~] <A B C D> produces <A AB ABC ABCD> [*] 1..5 = 120; [\*] 1..5 = 1, 2, 6, 24, 120; table of factorials
161. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… my @all_cubes = @all_integers X** 3; # 0, 1, 8, 27, 64, 125… my @sums_of_all_cubes = [\+] @all_cubes; # 0, 1, 9, 36, 100, 225…
162. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… my @all_cubes = @all_integers X** 3; # 0, 1, 8, 27, 64, 125… my @sums_of_all_cubes = [\+] @all_cubes; # 0, 1, 9, 36, 100, 225… my @sums_of_fifty_cubes = @sums_of_all_cubes.head(50);
163. my @sums_of_all_cubes = [\+] ^Inf X** 3; say .fmt('%7d') for @sums_of_all_cubes.head(50).batch(10); my @all_integers = ^Inf; # 0, 1, 2, 3, 4, 5… my @all_cubes = @all_integers X** 3; # 0, 1, 8, 27, 64, 125… my @sums_of_all_cubes = [\+] @all_cubes; # 0, 1, 9, 36, 100, 225… my @sums_of_fifty_cubes = @sums_of_all_cubes.head(50); say .fmt('%7d') for @sums_of_fifty_cubes.batch(10);
164. "bigfile.txt".IO.lines.grep(/^a/).head(3);
165. Q&A
166. Raku, the Big http://speakerdeck.com/util
 
 <bruce.gray@acm.org> <<< >>> >>> <<<
167. Raku, the Big http://speakerdeck.com/util
 
 <bruce.gray@acm.org> <<< >>> >>> <<<
168. Thanks!
169. Copyrights
170. Copyright Information: Images • Camelia • (c) 2009 by Larry Wall
 http://github.com/perl6/mu/raw/master/misc/ camelia.txt • Periodic Table of the Operators • (c) 2004, 2009 by Mark Lentczner
 https://www.ozonehouse.com/mark/periodic/ • Boomeringue • Dave Coverly
 http://speedbump.com/ • Zii and the Troublemakers • (In the style of Josie and the Pussycats)
 by @GiseleLagace (art)
 and @shourimajo (color)
 http://www.ma3comic.com/strips-ma3/ zii_and_the_troublemakers
171. Copyright Information: This Talk This work is licensed under a Creative Commons Attribution 4.0 International License. CC BY https://creativecommons.org/licenses/by/4.0/ (email me for the original Apple Keynote .key file)
172. History • v 1.00 2021-05-06
 Previewed at Atlanta PerlMongers
 • v 1.10 2021-06-08
 Presented final version to The Perl and Raku Conference in the Cloud