725 lines
34 KiB
Raku
725 lines
34 KiB
Raku
#!/usr/bin/perl6
|
|
|
|
use v6;
|
|
|
|
if True <beginfold id='1'>{</beginfold id='1'>
|
|
say "Hello";
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
if True <beginfold id='1'>{</beginfold id='1'>
|
|
say "Hello"; # Bad indentation intended
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
if True <beginfold id='1'>{</beginfold id='1'> say "Hello" <endfold id='1'>}</endfold id='1'>
|
|
|
|
if True <beginfold id='1'>{</beginfold id='1'>say "Hello"<endfold id='1'>}</endfold id='1'>
|
|
|
|
if True <beginfold id='1'>{</beginfold id='1'> say "Hello" <endfold id='1'>}</endfold id='1'> else <beginfold id='1'>{</beginfold id='1'> say "Goodbye" <endfold id='1'>}</endfold id='1'>; say "world";
|
|
|
|
## <beginfold id='2'>BEGIN</beginfold id='2'> Comments
|
|
|
|
say 1 #`<beginfold id='3'>(</beginfold id='3'> blah TODO blah
|
|
here? <endfold id='3'>)</endfold id='3'> 2 ;
|
|
say 1 #`<beginfold id='3'>{{</beginfold id='3'> blah TODO blah
|
|
here? <endfold id='3'>}}</endfold id='3'> 2 ;
|
|
say 1 #`<beginfold id='3'>[[</beginfold id='3'> blah TODO blah ]
|
|
here? <endfold id='3'>]]</endfold id='3'> 2 ;
|
|
say 1 #`<beginfold id='3'>«««</beginfold id='3'> blah TODO blah
|
|
here? <endfold id='3'>»»»</endfold id='3'> 2 ;
|
|
say 1 #` ( blah TODO blah
|
|
2 ;
|
|
|
|
#`<beginfold id='3'>[</beginfold id='3'>
|
|
This is another multi-line comment. <endfold id='3'>]</endfold id='3'>
|
|
my @sorted = @names.sort<beginfold id='1'>(</beginfold id='1'><beginfold id='1'>{</beginfold id='1'> %sets<beginfold id='1'>{</beginfold id='1'>$_<endfold id='1'>}</endfold id='1'> <endfold id='1'>}</endfold id='1'><endfold id='1'>)</endfold id='1'>.sort<beginfold id='1'>(</beginfold id='1'><beginfold id='1'>{</beginfold id='1'> %matches<beginfold id='1'>{</beginfold id='1'>$_<endfold id='1'>}</endfold id='1'> <endfold id='1'>}</endfold id='1'><endfold id='1'>)</endfold id='1'>.reverse;
|
|
#`<beginfold id='3'>{</beginfold id='3'> So is this, though it's not actually multi-line. <endfold id='3'>}</endfold id='3'>
|
|
|
|
say 'code again';
|
|
|
|
#`<beginfold id='3'>(</beginfold id='3'> Multiple line comments `<beginfold id='3'>(</beginfold id='3'> sub-comment <endfold id='3'>)</endfold id='3'>`<endfold id='3'>)</endfold id='3'>`
|
|
|
|
## <endfold id='2'>END</endfold id='2'> Comments
|
|
|
|
#`<beginfold id='3'>[</beginfold id='3'>
|
|
And this is how a multi would work.
|
|
That says why we do what we do below.
|
|
<endfold id='3'>]</endfold id='3'>
|
|
|
|
say "No more";
|
|
|
|
#`<beginfold id='3'>{{</beginfold id='3'>a}a<endfold id='3'>}}</endfold id='3'> say ok
|
|
|
|
say "No more";
|
|
|
|
say "this is code";
|
|
|
|
=begin <beginfold id='4'>pod</beginfold id='4'>
|
|
|
|
A very simple Pod6 document
|
|
|
|
=<endfold id='4'>end</endfold id='4'> pod
|
|
|
|
=begin <beginfold id='4'>head1</beginfold id='4'>
|
|
Top Level Heading
|
|
=<endfold id='4'>end</endfold id='4'> head1
|
|
|
|
=head1 Top level heading
|
|
|
|
=for head1
|
|
Top Level Heading
|
|
|
|
=cutsdads
|
|
|
|
=begin <beginfold id='4'>pod</beginfold id='4'>
|
|
|
|
=head1 This is a head1 title
|
|
|
|
This is a paragraph.
|
|
|
|
=head2 Subsection
|
|
# plop
|
|
Here some text for the subsection.
|
|
|
|
=<endfold id='4'>end</endfold id='4'> pod
|
|
|
|
=begin <beginfold id='4'>table</beginfold id='4'> :caption<My Tasks>
|
|
mow lawn
|
|
take out trash
|
|
=<endfold id='4'>end</endfold id='4'> table
|
|
|
|
=head1 This is a heading block
|
|
This is an ordinary paragraph.
|
|
Its text will be squeezed and
|
|
short lines filled. It is terminated by
|
|
the first blank line.
|
|
|
|
=head2 This is another heading block
|
|
This is yet another ordinary paragraph,
|
|
at the first virtual column set by the
|
|
previous directive
|
|
|
|
#| Base class for magicians
|
|
class Magician <beginfold id='1'>{</beginfold id='1'>
|
|
has Int $.level;
|
|
has Str @.spells;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
#| Fight mechanics
|
|
sub duel<beginfold id='1'>(</beginfold id='1'>Magician $a, Magician $b<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
#=<beginfold id='3'>«</beginfold id='3'><((
|
|
<Magicians only, no mortals. >
|
|
Magicians only, no mortals.
|
|
))><endfold id='3'>»</endfold id='3'>
|
|
|
|
say Magician.WHY;
|
|
|
|
#|<beginfold id='3'><<</beginfold id='3'> This is an example of stringification:
|
|
* Numbers turn into strings
|
|
> * Regexes operate on said strings
|
|
* C<with> topicalizes and places result into $_
|
|
<endfold id='3'>>></endfold id='3'>
|
|
sub search-in-seq<beginfold id='1'>(</beginfold id='1'> Int $end, Int $number <endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
with <beginfold id='1'>(</beginfold id='1'>^$end<endfold id='1'>)</endfold id='1'>.grep<beginfold id='1'>(</beginfold id='1'> <beginfold id='5'>/</beginfold id='5'>^$number<endfold id='5'>/</endfold id='5'> <endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
.say for $_<>;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
#= Uses * topic * decont operator
|
|
|
|
|
|
=head1 plop
|
|
abc
|
|
|
|
=head1 plop
|
|
=para
|
|
abc
|
|
|
|
=head1 plop
|
|
abc
|
|
abc
|
|
|
|
=head1 plop
|
|
abc
|
|
|
|
say 1;
|
|
|
|
=head1 plop
|
|
|
|
say 1;
|
|
|
|
=for head1
|
|
plop
|
|
|
|
=for table :conf[str, 'str', "str", 1, True] :conf(str, 'str', "str", 1, True)
|
|
=for table :conf<str 'str' "str" 1 True>
|
|
=for table :conf{k => str, k=>'str', k=>"str", k=>1, k=>True}
|
|
=for table :a :!b :42k :+s
|
|
abc
|
|
|
|
say 2;
|
|
|
|
=begin <beginfold id='4'>a</beginfold id='4'>
|
|
abc
|
|
=<endfold id='4'>end</endfold id='4'> a
|
|
|
|
=begin <beginfold id='4'>b</beginfold id='4'> sa
|
|
=<endfold id='4'>end</endfold id='4'> b
|
|
say 2;
|
|
|
|
=begin <beginfold id='4'>a</beginfold id='4'>
|
|
abc
|
|
|
|
abc
|
|
|
|
abc
|
|
=<endfold id='4'>end</endfold id='4'> a
|
|
say 0 ;
|
|
=begin <beginfold id='4'>a</beginfold id='4'>:config{42}
|
|
abc
|
|
|
|
=head1 The
|
|
Title
|
|
|
|
abc
|
|
=<endfold id='4'>end</endfold id='4'> ab
|
|
say 1 ;
|
|
|
|
=begin <beginfold id='4'>b</beginfold id='4'> sa
|
|
=<endfold id='4'>end</endfold id='4'> b
|
|
=begin <beginfold id='4'>a</beginfold id='4'>
|
|
abc
|
|
=begin <beginfold id='4'>b</beginfold id='4'>
|
|
abc
|
|
=<endfold id='4'>end</endfold id='4'> b a
|
|
abc
|
|
|
|
abc
|
|
=<endfold id='4'>end</endfold id='4'> a
|
|
say 3 ;
|
|
|
|
=item a
|
|
=item b
|
|
=begin <beginfold id='4'>code</beginfold id='4'>
|
|
=item a
|
|
=<endfold id='4'>end</endfold id='4'> code
|
|
|
|
=begin <beginfold id='4'>code</beginfold id='4'>
|
|
=item a
|
|
b
|
|
=end code d
|
|
=<endfold id='4'>end</endfold id='4'> code
|
|
|
|
=begin <beginfold id='4'>comment</beginfold id='4'>
|
|
Here are several
|
|
lines
|
|
of comment
|
|
=<endfold id='4'>end</endfold id='4'> comment
|
|
|
|
=begin <beginfold id='4'>pod</beginfold id='4'>
|
|
=head1 acB<<I<a>>>a B<c> U<d> BB<a>
|
|
|
|
C<my $var = 1; say $var;>
|
|
Perl 6 homepage L<https://perl6.org> L<Perl 6 homepage|https://perl6.org>
|
|
Comments L<#Comments> L<Comments|#Comments>
|
|
Perl 6 is awesome Z<Of course it is!>
|
|
Perl 6 is multi-paradigmatic N<Supporting Procedural, Object Oriented, and Functional programming>
|
|
Enter your name K<John Doe> E<0xBB> characters.
|
|
|
|
A X<hash|hashes, definition of; associative arrays>
|
|
|
|
=DISCLAIMER
|
|
P<http://www.MegaGigaTeraPetaCorp.com/std/disclaimer.txt>
|
|
|
|
A X<hash|hashes, definition of; associative arrays>
|
|
is an unordered collection of scalar values indexed by their
|
|
associated string key.
|
|
|
|
my @names = <Foo Bar Baz>;
|
|
my @upper-case-names = @names.map: { .uc } # OUTPUT: [FOO BAR BAZ]
|
|
|
|
=<endfold id='4'>end</endfold id='4'> pod
|
|
|
|
=begin <beginfold id='4'>table</beginfold id='4'> :caption<My Tasks>
|
|
mow lawn
|
|
take out trash
|
|
=<endfold id='4'>end</endfold id='4'> table
|
|
|
|
=begin <beginfold id='4'>table</beginfold id='4'> :config{caption => "My Tasks"}
|
|
mow lawn
|
|
take out trash
|
|
=<endfold id='4'>end</endfold id='4'> table
|
|
|
|
|
|
say "\c999 \c999999999 \c[LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER B] \c77s \c[77,22]";
|
|
say "\x0 \x00 \x[0] \x[00] \x[f] \xaaa \xfffffff \xffh \x[ffff] \x[fffffff] \x[42,42]";
|
|
say "\o0 \o00 \o[0] \o[00] \o[7] \o333 \o77777777 \o77h \o[333] \o[77777777] \o[42,42]";
|
|
|
|
say Q[A literal string] ;
|
|
say ｢More plainly.｣ ;
|
|
say Q ^Almost any non-word character can be a delimiter!^ ;
|
|
say Q ｢｢Delimiters can be repeated/nested if they are adjacent.｣｣ ;
|
|
|
|
say Q (this is fine, because of space after Q) ;
|
|
say Q 'and so is this' ;
|
|
say Q<Make sure you <match> opening and closing delimiters> ;
|
|
say Q{This is still a closing curly brace → \} ;
|
|
|
|
say Q;yes, this is fine; ;
|
|
say Q<beginfold id='1'>(</beginfold id='1'>'this is a function'<endfold id='1'>)</endfold id='1'> ;
|
|
|
|
say 'Very plain';
|
|
say q[This back\slash stays];
|
|
say q[This back\\slash stays]; # Identical output
|
|
say q{This is not a closing curly brace → \}, but this is → };
|
|
say Q :q $There are no backslashes here, only lots of \$\$\$>!$;
|
|
say '(Just kidding. There\'s no money in that string)';
|
|
say 'No $interpolation {here}!';
|
|
say Q:q!Just a literal "\n" here!;
|
|
say Q:q[a\[]
|
|
say Q[A literal string] ;
|
|
say ｢More plainly.｣ ;
|
|
say Q ^Almost any non-word character can be a delimiter!^ ;
|
|
say Q ｢｢Delimiters can be repeated/nested if they are adjacent.｣｣ ;
|
|
|
|
say qq[My favorite color is {$n+2}!];
|
|
say qq{My favorite color\- is {$n+2}!};
|
|
say Q:qq{My favorite color\- is {$n+2}!};
|
|
say "My $color[0].uc(
|
|
) $n+$n.^name favorite color \q[1is] {$n+2}!abc&uc('a')";
|
|
|
|
say qqww|a|;
|
|
say qq:w:w|a|;
|
|
say q:a:v|a|;
|
|
|
|
say<beginfold id='1'>(</beginfold id='1'>qq:to/TERM INATOR/, 1+1);
|
|
blah blah
|
|
TERM INATOR
|
|
|
|
|
|
my $don't-do-that = 1;
|
|
my $piece_of_π = 3.14;
|
|
my $駱駝道 = 1;
|
|
my $lexical = 1;
|
|
my $*dynamic1 = 10;
|
|
my $*dynamic2 = 100;
|
|
|
|
sub say-all<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
say "$lexical, $*dynamic1, $*dynamic2";
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
say-all<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'>;
|
|
|
|
<beginfold id='1'>{</beginfold id='1'>
|
|
my $lexical = 2;
|
|
my $*dynamic1 = 11;
|
|
$*dynamic2 = 101;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
my $square = 9 ** 2;
|
|
my @array = 1, 2, 3; # Array variable with three elements
|
|
my %hash = London => 'UK', Berlin => 'Germany';
|
|
|
|
class FailHash is Hash <beginfold id='1'>{</beginfold id='1'>
|
|
has Bool $!final = False;
|
|
multi method AT-KEY <beginfold id='1'>(</beginfold id='1'> ::?CLASS:D: Str:D \key <endfold id='1'>)</endfold id='1'><beginfold id='1'>{</beginfold id='1'>
|
|
fail X::OutOfRange.new<beginfold id='1'>(</beginfold id='1'>:what<beginfold id='1'>(</beginfold id='1'>"Hash key"<endfold id='1'>)</endfold id='1'>, :got<beginfold id='1'>(</beginfold id='1'>key<endfold id='1'>)</endfold id='1'>,
|
|
:range<beginfold id='1'>(</beginfold id='1'>self.keys<endfold id='1'>)</endfold id='1'><endfold id='1'>)</endfold id='1'> if $!final && !self.EXISTS-KEY<beginfold id='1'>(</beginfold id='1'>key<endfold id='1'>)</endfold id='1'>;
|
|
callsame
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
method finalize<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
$!final = True
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
my %h is FailHash = oranges => "round", bananas => "bendy";
|
|
|
|
say %h<oranges>;
|
|
%h.finalize;
|
|
say %h<cherry>;
|
|
CATCH <beginfold id='1'>{</beginfold id='1'> default <beginfold id='1'>{</beginfold id='1'> put .^name, ': ', .Str <endfold id='1'>}</endfold id='1'> <endfold id='1'>}</endfold id='1'>
|
|
|
|
my <beginfold id='1'>(</beginfold id='1'> @foo, $bar <endfold id='1'>)</endfold id='1'>;
|
|
@foo = <beginfold id='1'>(</beginfold id='1'>$bar<endfold id='1'>)</endfold id='1'> = 42, "str";
|
|
|
|
say anon class þ <beginfold id='1'>{</beginfold id='1'><endfold id='1'>}</endfold id='1'>;
|
|
say anon sub þ <beginfold id='1'>{</beginfold id='1'> 42 <endfold id='1'>}</endfold id='1'>;
|
|
|
|
sub a <beginfold id='1'>{</beginfold id='1'>
|
|
state @x;
|
|
state $l = 'A';
|
|
@x.push<beginfold id='1'>(</beginfold id='1'>$l++<endfold id='1'>)</endfold id='1'>;
|
|
<endfold id='1'>}</endfold id='1'>;
|
|
|
|
say a for 1..6;
|
|
|
|
sub foo<beginfold id='1'>(</beginfold id='1'>$x<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
my $v = @;
|
|
$v<beginfold id='1'>[</beginfold id='1'>$x<endfold id='1'>]</endfold id='1'> = $x;
|
|
say $v;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
foo<beginfold id='1'>(</beginfold id='1'>$_<endfold id='1'>)</endfold id='1'> for ^3;
|
|
|
|
use MONKEY-TYPING;
|
|
augment class Int <beginfold id='1'>{</beginfold id='1'>
|
|
method is-answer <beginfold id='1'>{</beginfold id='1'> self == 42 <endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
say 42.is-answer;
|
|
|
|
my $in = 0;
|
|
|
|
sub f<beginfold id='1'>(</beginfold id='1'>*@c<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
<beginfold id='1'>(</beginfold id='1'>temp $in<endfold id='1'>)</endfold id='1'>++;
|
|
"<f>\n"
|
|
~ @c».indent<beginfold id='1'>(</beginfold id='1'>$in<endfold id='1'>)</endfold id='1'>.join<beginfold id='1'>(</beginfold id='1'>"\n"<endfold id='1'>)</endfold id='1'>
|
|
~ <beginfold id='1'>(</beginfold id='1'>+@c ?? "\n" !! ""<endfold id='1'>)</endfold id='1'>
|
|
~ '</f>'
|
|
<endfold id='1'>}</endfold id='1'>;
|
|
|
|
for <ab:c d$e fgh ij*> <beginfold id='1'>{</beginfold id='1'>
|
|
.say if m<beginfold id='5'>/</beginfold id='5'><-alpha><endfold id='5'>/</endfold id='5'>;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
for '.' <beginfold id='1'>{</beginfold id='1'>
|
|
.Str.say when !.IO.d;
|
|
.IO.dir<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'>».&?BLOCK when .IO.d # lets recurse a little!
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
use Dog:auth<Somebody>:ver<2.0>;
|
|
|
|
infix:<+>
|
|
infix:<*>
|
|
infix:«<=»
|
|
|
|
postfix:<²>
|
|
WOW:That'sAwesome
|
|
WOW:That's<<🆒>>
|
|
party:sweet<16>
|
|
|
|
infix:<+>
|
|
infix:<<+>>
|
|
infix:«+»
|
|
infix:<beginfold id='1'>[</beginfold id='1'>'+'<endfold id='1'>]</endfold id='1'>
|
|
infix:<beginfold id='1'>(</beginfold id='1'>'+'<endfold id='1'>)</endfold id='1'>
|
|
|
|
my $a:b<c>:d<e> = 100;
|
|
my $a:d<e>:b<c> = 200;
|
|
say $a:b<c>:d<e>;
|
|
|
|
use Test; plan 1; constant &term:<👍> = &ok.assuming<beginfold id='1'>(</beginfold id='1'>True<endfold id='1'>)</endfold id='1'>;
|
|
👍
|
|
|
|
my $x = do if True <beginfold id='1'>{</beginfold id='1'> 42 <endfold id='1'>}</endfold id='1'>;
|
|
|
|
say 1000000, 1_000_000, 10_00000, 100_00_00;
|
|
say -2, 12345, 0xBEEF, 0o755, :3<1201>;
|
|
say 1.0, 3.14159, -2.5, :3<21.0012>;
|
|
say 1e0, 6.022e23, 1e-9, -2e48, 2e2i, .42;
|
|
say 2.e2, .2, 0o39, 0xfF3u, 0oi, 0xi, :3<>, :23<gg ; # error
|
|
|
|
|
|
for $size «<beginfold id='1'>[</beginfold id='1'>r/<endfold id='1'>]</endfold id='1'>« <beginfold id='1'>(</beginfold id='1'>2**60, 2**50, 2**40, 2**30, 2**20, 2**10<endfold id='1'>)</endfold id='1'>
|
|
Z <EB PB TB GB MB KB> -> <beginfold id='1'>[</beginfold id='1'>\v,\suffix<endfold id='1'>]</endfold id='1'>
|
|
|
|
my $a = 32;
|
|
$a += 10;
|
|
$a -= 2;
|
|
$a = 3;
|
|
$a min= 5;
|
|
$s ~= 'b';
|
|
|
|
sub infix:<space-concat> <beginfold id='1'>(</beginfold id='1'>$a, $b<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'> $a ~ " " ~ $b <endfold id='1'>}</endfold id='1'>;
|
|
my $a = 'word1';
|
|
$a space-concat= 'word2';
|
|
|
|
my Real $a = 1/2;
|
|
$a = 3.14;
|
|
$a .= round;
|
|
|
|
my $a = True;
|
|
say so $a != True;
|
|
my $i = 10;
|
|
|
|
my $release = Date.new<beginfold id='1'>(</beginfold id='1'>:2015year, :12month, :24day<endfold id='1'>)</endfold id='1'>;
|
|
my $today = Date.today;
|
|
say so $release !before $today;
|
|
|
|
say 4 R/ 12;
|
|
say <beginfold id='1'>[</beginfold id='1'>R/<endfold id='1'>]</endfold id='1'> 2, 4, 16;
|
|
say <beginfold id='1'>[</beginfold id='1'>RZ~<endfold id='1'>]</endfold id='1'> <1 2 3>,<4 5 6>
|
|
|
|
say <beginfold id='1'>(</beginfold id='1'>1, 2, 3<endfold id='1'>)</endfold id='1'> »*» 2;
|
|
say <beginfold id='1'>(</beginfold id='1'>1, 2, 3, 4<endfold id='1'>)</endfold id='1'> »~» <a b>;
|
|
say <beginfold id='1'>(</beginfold id='1'>1, 2, 3<endfold id='1'>)</endfold id='1'> »+« <beginfold id='1'>(</beginfold id='1'>4, 5, 6<endfold id='1'>)</endfold id='1'>;
|
|
say <beginfold id='1'>(</beginfold id='1'>&sin, &cos, &sqrt<endfold id='1'>)</endfold id='1'>».<beginfold id='1'>(</beginfold id='1'>0.5<endfold id='1'>)</endfold id='1'>;
|
|
|
|
say @a »+=» 1;
|
|
my <beginfold id='1'>(</beginfold id='1'>$a, $b, $c<endfold id='1'>)</endfold id='1'>;
|
|
<beginfold id='1'>(</beginfold id='1'><beginfold id='1'>(</beginfold id='1'>$a, $b<endfold id='1'>)</endfold id='1'>, $c<endfold id='1'>)</endfold id='1'> «=» <beginfold id='1'>(</beginfold id='1'><beginfold id='1'>(</beginfold id='1'>1, 2<endfold id='1'>)</endfold id='1'>, 3<endfold id='1'>)</endfold id='1'>;
|
|
|
|
say !« @wisdom;
|
|
@a»++;
|
|
say -« <beginfold id='1'>[</beginfold id='1'><beginfold id='1'>[</beginfold id='1'>1, 2<endfold id='1'>]</endfold id='1'>, 3<endfold id='1'>]</endfold id='1'>;
|
|
|
|
@slops».?this-method-may-not-exist<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'>;
|
|
|
|
my %outer = 1, 2, 3 Z=> <a b c>;
|
|
my %inner = 1, 2 Z=> <x z>;
|
|
say %outer «~» %inner;
|
|
|
|
say $neighbors »>>+<<» <beginfold id='1'>(</beginfold id='1'>$p, *<endfold id='1'>)</endfold id='1'>;
|
|
|
|
sub plus <beginfold id='1'>{</beginfold id='1'> $^a + $^b <endfold id='1'>}</endfold id='1'>;
|
|
say <beginfold id='1'>[</beginfold id='1'><beginfold id='1'>[</beginfold id='1'>&plus<endfold id='1'>]</endfold id='1'><endfold id='1'>]</endfold id='1'> 1, 2, 3;
|
|
|
|
my @n = <beginfold id='1'>[</beginfold id='1'>\~<endfold id='1'>]</endfold id='1'> 1..*;
|
|
say @n<beginfold id='1'>[</beginfold id='1'>^5<endfold id='1'>]</endfold id='1'>;
|
|
|
|
@l = <a b c d> Z~ 1, 2, *;
|
|
say so 1 S& 2 S& 3;
|
|
@a X<beginfold id='1'>[</beginfold id='1'>+=<endfold id='1'>]</endfold id='1'> @b;
|
|
multi sub postfix:<++><beginfold id='1'>(</beginfold id='1'>$x is rw<endfold id='1'>)</endfold id='1'> is assoc<non>
|
|
say $filename++ for 1..3;
|
|
$x % $y == $x - floor<beginfold id='1'>(</beginfold id='1'>$x / $y<endfold id='1'>)</endfold id='1'> * $y
|
|
say <a a b c a d> ⊍ bag<beginfold id='1'>(</beginfold id='1'><a a b c c><endfold id='1'>)</endfold id='1'>;
|
|
say -« <1 2 3>
|
|
|
|
# This is wrong: creates a Hash of Mixes, not Mix:
|
|
my Mix %mix;
|
|
# Works with $ sigil:
|
|
my Mix $mix;
|
|
# Can be typed:
|
|
my Mix<beginfold id='1'>[</beginfold id='1'>Int<endfold id='1'>]</endfold id='1'> $mix-of-ints;
|
|
|
|
my $x;
|
|
my $x = 7;
|
|
my Int $x = 7;
|
|
my Int:D $x = 7;
|
|
ndef<endfold id='1'>)</endfold id='1'>
|
|
my Int $x where <beginfold id='1'>{</beginfold id='1'> $_ > 3 <endfold id='1'>}</endfold id='1'> = 7;
|
|
my Int $x where * > 3 = 7;
|
|
|
|
$str ~~ tr:d:c<beginfold id='5'>!</beginfold id='5'>dol<endfold id='5'></endfold id='5'><beginfold id='6'>!</beginfold id='6'>wne<endfold id='6'>!</endfold id='6'>;
|
|
$str ~~ TR:c<beginfold id='5'>/</beginfold id='5'>dol<endfold id='5'></endfold id='5'><beginfold id='6'>/</beginfold id='6'>wne<endfold id='6'>/</endfold id='6'>;
|
|
$str ~~ s<beginfold id='5'>!</beginfold id='5'>foo<endfold id='5'></endfold id='5'><beginfold id='6'>!</beginfold id='6'>fox<endfold id='6'>!</endfold id='6'>;
|
|
$str ~~ <beginfold id='5'>/</beginfold id='5'>foo<endfold id='5'>/</endfold id='5'>bar<beginfold id='5'>/</beginfold id='5'>;
|
|
$str ~~ <endfold id='5'>/</endfold id='5'>//;
|
|
$str ~~ rx<beginfold id='5'>/</beginfold id='5'>foo<endfold id='5'>/</endfold id='5'>bar<beginfold id='5'>/</beginfold id='5'>;
|
|
$str ~~ Q :regex <endfold id='5'>/</endfold id='5'>foo<beginfold id='5'>/</beginfold id='5'>;
|
|
$str ~~ s<beginfold id='1'>{</beginfold id='1'>b<beginfold id='1'>(</beginfold id='1'>.<endfold id='1'>)</endfold id='1'>r<endfold id='1'>}</endfold id='1'> = " d$0n";
|
|
$str ~~ regex<beginfold id='1'>{</beginfold id='1'>fox<endfold id='1'>}</endfold id='1'>; # error
|
|
$str ~~ regex <beginfold id='1'>{</beginfold id='1'>fox<endfold id='1'>}</endfold id='1'>;
|
|
rx<endfold id='5'>/</endfold id='5'> ^ab <beginfold id='5'>/</beginfold id='5'>;
|
|
<endfold id='5'>/</endfold id='5'> ^ ab <beginfold id='5'>/</beginfold id='5'>;
|
|
rx<endfold id='5'>/</endfold id='5'> \d ** 2/;
|
|
$str ~~ tr:d:c<beginfold id='5'>!</beginfold id='5'>dol<endfold id='5'></endfold id='5'><beginfold id='6'>!</beginfold id='6'>wne<endfold id='6'>!</endfold id='6'>;
|
|
$str ~~ TR:c<beginfold id='5'>/</beginfold id='5'>dol<endfold id='5'></endfold id='5'><beginfold id='6'>/</beginfold id='6'>wne<endfold id='6'>/</endfold id='6'>;
|
|
$str ~~ s<beginfold id='5'>!</beginfold id='5'>foo<endfold id='5'></endfold id='5'><beginfold id='6'>!</beginfold id='6'>fox<endfold id='6'>!</endfold id='6'>;
|
|
$str ~~ rx<beginfold id='5'>/</beginfold id='5'>foo<endfold id='5'>/</endfold id='5'>;
|
|
$str ~~ regex:ds <beginfold id='1'>{</beginfold id='1'>fox<endfold id='1'>}</endfold id='1'>;
|
|
$str ~~ regex<beginfold id='5'>{</beginfold id='5'>fox<endfold id='5'>}</endfold id='5'>;
|
|
my a = <beginfold id='5'>/</beginfold id='5'>a<endfold id='5'>/</endfold id='5'>;
|
|
rx<beginfold id='5'>/</beginfold id='5'> ^ab <endfold id='5'>/</endfold id='5'>;
|
|
a = <beginfold id='5'>/</beginfold id='5'> ^ ab 'a' "$a" \d \n\n <:L :Script<Latin>> <:Block<beginfold id='1'>(</beginfold id='1'>'Basic Latin'<endfold id='1'>)</endfold id='1'>> <endfold id='5'>/</endfold id='5'>;
|
|
//;
|
|
rx:sigspace<beginfold id='5'>.</beginfold id='5'>\d+ < :Script +:Block "Basic Latin" + :L> #plop
|
|
'-'<endfold id='5'>.</endfold id='5'>;
|
|
rx<beginfold id='5'>/</beginfold id='5'> \d ** 2 <[\d a d]+[\x233..\] " \c[dsds]]><endfold id='5'>/</endfold id='5'>;
|
|
say $str ~~ m:g<beginfold id='5'>/</beginfold id='5'><beginfold id='1'>[</beginfold id='1'><beginfold id='1'>(</beginfold id='1'><[ACGT]> **: 3<endfold id='1'>)</endfold id='1'> \s*<endfold id='1'>]</endfold id='1'>+ \s+ <beginfold id='1'>(</beginfold id='1'><[A..Z a a..z \s]>+<endfold id='1'>)</endfold id='1'><endfold id='5'>/</endfold id='5'>;
|
|
say '$333' ~~ m<beginfold id='5'>/</beginfold id='5'>^^ <?<beginfold id='1'>[</beginfold id='1'>$<endfold id='1'>]</endfold id='1'>> . \d+ <endfold id='5'>/</endfold id='5'>;
|
|
say '/foo/o/bar/' ~~ <beginfold id='5'>/</beginfold id='5'>\/.**!<beginfold id='1'>{</beginfold id='1'>1..10<endfold id='1'>}</endfold id='1'>\/<endfold id='5'>/</endfold id='5'>;
|
|
rx<beginfold id='1'>(</beginfold id='1'>a<endfold id='1'>)</endfold id='1'>;
|
|
rx <beginfold id='5'>(</beginfold id='5'>a<endfold id='5'>)</endfold id='5'>;
|
|
$str ~~ regex <beginfold id='5'>{</beginfold id='5'>fox<endfold id='5'>}</endfold id='5'>;
|
|
$str ~~ s<beginfold id='5'>{</beginfold id='5'>b<beginfold id='1'>(</beginfold id='1'>.<endfold id='1'>)</endfold id='1'>r<endfold id='5'>}</endfold id='5'> = " d$0n";
|
|
if 'abc' ~~ <beginfold id='5'>/</beginfold id='5'> <beginfold id='1'>[</beginfold id='1'>a||b<endfold id='1'>]</endfold id='1'> <beginfold id='1'>(</beginfold id='1'>c<endfold id='1'>)</endfold id='1'> <endfold id='5'>/</endfold id='5'> <beginfold id='1'>{</beginfold id='1'>
|
|
say ~$0; # OUTPUT: «c»
|
|
<endfold id='1'>}</endfold id='1'>
|
|
if 'abc' ~~ <beginfold id='5'>/</beginfold id='5'> $<myname> = <beginfold id='1'>[</beginfold id='1'> \w+ <endfold id='1'>]</endfold id='1'> <endfold id='5'>/</endfold id='5'> <beginfold id='1'>{</beginfold id='1'>
|
|
say ~$<myname> # OUTPUT: «abc»
|
|
<endfold id='1'>}</endfold id='1'>
|
|
say 'abc' ~~ <beginfold id='5'>/</beginfold id='5'> a <( b )> c<endfold id='5'>/</endfold id='5'>;
|
|
say 'abc' ~~ <beginfold id='5'>/</beginfold id='5'> <(a <( b )> c)><endfold id='5'>/</endfold id='5'>;
|
|
say "abc" ~~ <beginfold id='5'>/</beginfold id='5'>a. | ab <beginfold id='1'>{</beginfold id='1'> print "win" <endfold id='1'>}</endfold id='1'> <endfold id='5'>/</endfold id='5'>;
|
|
|
|
so 'hello world' ~~ m:Perl5<beginfold id='7'>/</beginfold id='7'>^hello (world)<endfold id='7'>/</endfold id='7'>; # OUTPUT: «True»
|
|
so 'hello world' ~~ m<beginfold id='5'>/</beginfold id='5'>^hello <beginfold id='1'>(</beginfold id='1'>world<endfold id='1'>)</endfold id='1'><endfold id='5'>/</endfold id='5'>; # OUTPUT: «False»
|
|
so 'hello world' ~~ m<beginfold id='5'>/</beginfold id='5'>^ 'hello ' <beginfold id='1'>(</beginfold id='1'>'world'<endfold id='1'>)</endfold id='1'><endfold id='5'>/</endfold id='5'>; # OUTPUT: «True»
|
|
|
|
say "Abra abra CADABRA" ~~ m:exhaustive<beginfold id='5'>/</beginfold id='5'>:i a \w+ a<endfold id='5'>/</endfold id='5'>;
|
|
|
|
my regex ipv4-octet <beginfold id='5'>{</beginfold id='5'> \d ** 1..3 <?<beginfold id='1'>{</beginfold id='1'> $/.Int <= 255 && $/.Int >= 0 <endfold id='1'>}</endfold id='1'>> <endfold id='5'>}</endfold id='5'>
|
|
my regex ipv4-octet <beginfold id='5'>{</beginfold id='5'> \d ** 1..3 <?<beginfold id='1'>{</beginfold id='1'> True <endfold id='1'>}</endfold id='1'>> <endfold id='5'>}</endfold id='5'>
|
|
say 'abc' ~~ <beginfold id='5'>/</beginfold id='5'> <?before a> && . <endfold id='5'>/</endfold id='5'>;
|
|
say 'abcdefg' ~~ rx<beginfold id='5'>{</beginfold id='5'> abc <[email protected]ending_letters> <endfold id='5'>}</endfold id='5'>;
|
|
s:g<beginfold id='5'>[</beginfold id='5'>\d+ <?before \s* @units><endfold id='5'>]</endfold id='5'> = 5 * $/;
|
|
|
|
|
|
sub walk<beginfold id='1'>(</beginfold id='1'>\thing, *@keys<endfold id='1'>)</endfold id='1'> is rw <beginfold id='1'>{</beginfold id='1'>
|
|
my $current := thing;
|
|
for @keys -> $k <beginfold id='1'>{</beginfold id='1'>
|
|
if $k ~~ Int <beginfold id='1'>{</beginfold id='1'>
|
|
$current := $current<beginfold id='1'>[</beginfold id='1'>$k<endfold id='1'>]</endfold id='1'>;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
else <beginfold id='1'>{</beginfold id='1'>
|
|
$current := $current<beginfold id='1'>{</beginfold id='1'>$k<endfold id='1'>}</endfold id='1'>;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
$current;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
my %hash;
|
|
walk<beginfold id='1'>(</beginfold id='1'>%hash, 'some', 'key', 1, 2<endfold id='1'>)</endfold id='1'> = 'autovivified';
|
|
|
|
say %hash.perl;
|
|
|
|
class X::WithoutLineNumber is X::AdHoc <beginfold id='1'>{</beginfold id='1'>
|
|
multi method gist<beginfold id='1'>(</beginfold id='1'>X::WithoutLineNumber:D:<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
$.payload
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
die X::WithoutLineNumber.new<beginfold id='1'>(</beginfold id='1'>payload => "message"<endfold id='1'>)</endfold id='1'>
|
|
|
|
<beginfold id='1'>{</beginfold id='1'> return; CATCH <beginfold id='1'>{</beginfold id='1'> default <beginfold id='1'>{</beginfold id='1'> $*ERR.say: .^name, ': ', .Str <endfold id='1'>}</endfold id='1'> <endfold id='1'>}</endfold id='1'> <endfold id='1'>}</endfold id='1'>
|
|
|
|
multi sub trait_mod:<is><beginfold id='1'>(</beginfold id='1'>Routine $r, :$export!<endfold id='1'>)</endfold id='1'>
|
|
|
|
react <beginfold id='1'>{</beginfold id='1'>
|
|
whenever signal<beginfold id='1'>(</beginfold id='1'>SIGINT<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
say "goodbye";
|
|
done
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
signal<beginfold id='1'>(</beginfold id='1'>SIGINT<endfold id='1'>)</endfold id='1'>.tap: <beginfold id='1'>{</beginfold id='1'> say "bye"; exit <endfold id='1'>}</endfold id='1'>; loop <beginfold id='1'>{</beginfold id='1'><endfold id='1'>}</endfold id='1'>
|
|
|
|
method base-repeating<beginfold id='1'>(</beginfold id='1'>Rational:D: Int:D<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'> $base = 10<endfold id='1'>)</endfold id='1'>
|
|
|
|
multi sub prefix:<--><beginfold id='1'>(</beginfold id='1'>$x is rw<endfold id='1'>)</endfold id='1'> is assoc<non>
|
|
|
|
|
|
multi MAIN<beginfold id='1'>(</beginfold id='1'>Bool :$man<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
run $*EXECUTABLE, '--doc', $*PROGRAM;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
for $file.lines -> $line <beginfold id='1'>{</beginfold id='1'>
|
|
next unless $line; # ignore any empty lines
|
|
|
|
my <beginfold id='1'>(</beginfold id='1'>$pairing, $result<endfold id='1'>)</endfold id='1'> = $line.split<beginfold id='1'>(</beginfold id='1'>' | '<endfold id='1'>)</endfold id='1'>;
|
|
my <beginfold id='1'>(</beginfold id='1'>$p1, $p2<endfold id='1'>)</endfold id='1'> = $pairing.words;
|
|
my <beginfold id='1'>(</beginfold id='1'>$r1, $r2<endfold id='1'>)</endfold id='1'> = $result.split<beginfold id='1'>(</beginfold id='1'>':'<endfold id='1'>)</endfold id='1'>;
|
|
|
|
%sets<beginfold id='1'>{</beginfold id='1'>$p1<endfold id='1'>}</endfold id='1'> += $r1;
|
|
%sets<beginfold id='1'>{</beginfold id='1'>$p2<endfold id='1'>}</endfold id='1'> += $r2;
|
|
|
|
if $r1 > $r2 <beginfold id='1'>{</beginfold id='1'>
|
|
%matches<beginfold id='1'>{</beginfold id='1'>$p1<endfold id='1'>}</endfold id='1'>++;
|
|
<endfold id='1'>}</endfold id='1'> else <beginfold id='1'>{</beginfold id='1'>
|
|
%matches<beginfold id='1'>{</beginfold id='1'>$p2<endfold id='1'>}</endfold id='1'>++;
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
for @sorted -> $n <beginfold id='1'>{</beginfold id='1'>
|
|
my $match-noun = %matches<beginfold id='1'>{</beginfold id='1'>$n<endfold id='1'>}</endfold id='1'> == 1 ?? 'match' !! 'matches';
|
|
my $set-noun = %sets<beginfold id='1'>{</beginfold id='1'>$n<endfold id='1'>}</endfold id='1'> == 1 ?? 'set' !! 'sets';
|
|
say "$n has won %matches{$n} $match-noun and %sets{$n} $set-noun";
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
say "Math: { 1 + 2 }";
|
|
|
|
my @people = <Luke Matthew Mark>;
|
|
say "The synoptics are: {@people}";
|
|
|
|
say "{%sets}";
|
|
say "we have @flavors[0]";
|
|
say "we have @flavors[]";
|
|
say "we have @flavors.sort()";
|
|
say "we have @flavors.sort.join(', ')";
|
|
|
|
my @valid-players = $file.get.words;
|
|
|
|
for $file.lines -> $line <beginfold id='1'>{</beginfold id='1'>
|
|
my <beginfold id='1'>(</beginfold id='1'>$pairing, $result<endfold id='1'>)</endfold id='1'> = $line.split<beginfold id='1'>(</beginfold id='1'>' | '<endfold id='1'>)</endfold id='1'>;
|
|
my <beginfold id='1'>(</beginfold id='1'>$p1, $p2<endfold id='1'>)</endfold id='1'> = $pairing.split<beginfold id='1'>(</beginfold id='1'>' '<endfold id='1'>)</endfold id='1'>;
|
|
if $p1 ∉ @valid-players <beginfold id='1'>{</beginfold id='1'>
|
|
say "Warning: '$p1' is not on our list!";
|
|
<endfold id='1'>}</endfold id='1'>
|
|
if $p2 ∉ @valid-players <beginfold id='1'>{</beginfold id='1'>
|
|
say "Warning: '$p2' is not on our list!";
|
|
<endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
my @array = <beginfold id='1'>[</beginfold id='1'> 'x', 'xx', 'xxx', 'o', 'oo', 'X', 'Y', 'Z' <endfold id='1'>]</endfold id='1'>;
|
|
my @array = < x xx xxx o oo X Y Z >;
|
|
|
|
sub plus <beginfold id='1'>{</beginfold id='1'> $^a + $^b <endfold id='1'>}</endfold id='1'>;
|
|
say <beginfold id='1'>[</beginfold id='1'><beginfold id='1'>[</beginfold id='1'>&plus<endfold id='1'>]</endfold id='1'><endfold id='1'>]</endfold id='1'> 1, 2, 3;
|
|
|
|
say <beginfold id='1'>[</beginfold id='1'>X~<endfold id='1'>]</endfold id='1'> <beginfold id='1'>(</beginfold id='1'>1, 2<endfold id='1'>)</endfold id='1'>, <a b>;
|
|
|
|
my @n = <beginfold id='1'>[</beginfold id='1'>\~<endfold id='1'>]</endfold id='1'> 1..*;
|
|
say @n<beginfold id='1'>[</beginfold id='1'>^5<endfold id='1'>]</endfold id='1'>;
|
|
|
|
my @l = <a b c d> Z~ ':' xx *;
|
|
@l = <a b c d> Z~ 1, 2, *;
|
|
|
|
say so 1 S& 2 S& 3;
|
|
|
|
say %color«cherry "$fruit"».raku
|
|
say $a.:<++>;
|
|
|
|
say 2 !(elem) <beginfold id='1'>(</beginfold id='1'>1, 2, 3<endfold id='1'>)</endfold id='1'>;
|
|
|
|
say $_ if <beginfold id='5'>/</beginfold id='5'>A<endfold id='5'>/</endfold id='5'> ^ff^ <beginfold id='5'>/</beginfold id='5'>C<endfold id='5'>/</endfold id='5'> for @list
|
|
|
|
my @result;
|
|
<people of earth>
|
|
==> map<beginfold id='1'>(</beginfold id='1'><beginfold id='1'>{</beginfold id='1'> .tc <endfold id='1'>}</endfold id='1'><endfold id='1'>)</endfold id='1'>
|
|
==> my @caps; @caps # also could wrap in parentheses instead
|
|
==> grep <beginfold id='5'>/</beginfold id='5'><[PE]><endfold id='5'>/</endfold id='5'>
|
|
==> sort<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'>
|
|
==> @result;
|
|
|
|
my @result
|
|
<== sort<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'>
|
|
<== grep<beginfold id='1'>(</beginfold id='1'><beginfold id='1'>{</beginfold id='1'> <beginfold id='5'>/</beginfold id='5'><[PE]><endfold id='5'>/</endfold id='5'> <endfold id='1'>}</endfold id='1'><endfold id='1'>)</endfold id='1'>
|
|
<== my @caps # unlike ==>, there's no need for additional statement
|
|
<== map<beginfold id='1'>(</beginfold id='1'><beginfold id='1'>{</beginfold id='1'> .tc <endfold id='1'>}</endfold id='1'><endfold id='1'>)</endfold id='1'>
|
|
<== <people of earth>;
|
|
|
|
False and do <beginfold id='1'>{</beginfold id='1'> 42.say <endfold id='1'>}</endfold id='1'>;
|
|
3, do if 1 <beginfold id='1'>{</beginfold id='1'> 2 <endfold id='1'>}</endfold id='1'> ;
|
|
if 0 <beginfold id='1'>{</beginfold id='1'> say "no" <endfold id='1'>}</endfold id='1'> elsif False <beginfold id='1'>{</beginfold id='1'> say "NO" <endfold id='1'>}</endfold id='1'> else <beginfold id='1'>{</beginfold id='1'> say "yes" <endfold id='1'>}</endfold id='1'>
|
|
$_ = 1; unless False -> $a <beginfold id='1'>{</beginfold id='1'> $a.say <endfold id='1'>}</endfold id='1'> ;
|
|
when so $a <beginfold id='1'>{</beginfold id='1'> say 'a' <endfold id='1'>}</endfold id='1'>
|
|
|
|
for 1..100 <beginfold id='1'>{</beginfold id='1'>
|
|
when * %% 15 <beginfold id='1'>{</beginfold id='1'> say 'FizzBuzz' <endfold id='1'>}</endfold id='1'>
|
|
when * %% 3 <beginfold id='1'>{</beginfold id='1'> say 'Fizz' <endfold id='1'>}</endfold id='1'>
|
|
when * %% 5 <beginfold id='1'>{</beginfold id='1'> say 'Buzz' <endfold id='1'>}</endfold id='1'>
|
|
default <beginfold id='1'>{</beginfold id='1'> say $_ <endfold id='1'>}</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
multi sub grab<beginfold id='1'>(</beginfold id='1'>**@a<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'> "grab $_".say for @a <endfold id='1'>}</endfold id='1'>
|
|
multi sub grab<beginfold id='1'>(</beginfold id='1'>\a<endfold id='1'>)</endfold id='1'> <beginfold id='1'>{</beginfold id='1'>
|
|
a ~~ Iterable and a.VAR !~~ Scalar ?? nextwith<beginfold id='1'>(</beginfold id='1'>|a<endfold id='1'>)</endfold id='1'> !! nextwith<beginfold id='1'>(</beginfold id='1'>a,<endfold id='1'>)</endfold id='1'>
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
for '.' <beginfold id='1'>{</beginfold id='1'>
|
|
.Str.say when !.IO.d;
|
|
.IO.dir<beginfold id='1'>(</beginfold id='1'><endfold id='1'>)</endfold id='1'>».&?BLOCK when .IO.d # lets recurse a little!
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
say a».<beginfold id='1'>(</beginfold id='1'>0.5<endfold id='1'>)</endfold id='1'>; say a>>.<beginfold id='1'>(</beginfold id='1'>0.5<endfold id='1'>)</endfold id='1'>; a.:<sa> ; a. sa :!False
|
|
func <a b>
|
|
|
|
|
|
if 'abc-abc-abc' ~~ <beginfold id='5'>/</beginfold id='5'> $<string>=<beginfold id='1'>(</beginfold id='1'> <beginfold id='1'>[</beginfold id='1'> $<part>=<beginfold id='1'>[</beginfold id='1'>abc<endfold id='1'>]</endfold id='1'> <endfold id='1'>]</endfold id='1'>* % '-' <endfold id='1'>)</endfold id='1'> <endfold id='5'>/</endfold id='5'> <beginfold id='1'>{</beginfold id='1'>
|
|
say ~$<string>; # OUTPUT: «abc-abc-abc»
|
|
say ~$<string><part>; # OUTPUT: «abc abc abc»
|
|
say ~$<string><part><beginfold id='1'>[</beginfold id='1'>0<endfold id='1'>]</endfold id='1'>; # OUTPUT: «abc»
|
|
<endfold id='1'>}</endfold id='1'>
|
|
|
|
<beginfold id='1'>[</beginfold id='1'>«<beginfold id='1'>[</beginfold id='1'>«<beginfold id='1'>[</beginfold id='1'>«<beginfold id='1'>[</beginfold id='1'>+<endfold id='1'>]</endfold id='1'>»<endfold id='1'>]</endfold id='1'>»<endfold id='1'>]</endfold id='1'>»<endfold id='1'>]</endfold id='1'> <1 2 3 4>
|