Example snippets to use with snipraku.raku

eg-snips.raku

# --------------------------------------------------------------------
# ID: misc79 unicode

for ^2**20 -> $u {
    my $c = chr $u;
    my $n = uniname $c;
    printf "$c U-%X %s\n", $u, $n if $n ~~ /'SNOW'/;
}

# --------------------------------------------------------------------
# ID: rx36

sub eg ($str) {
    say $str;
    for $str.comb: / <-[",]>+ | \" ~ \"  <-["]>+ / -> $f {
        say "    $f";
    }
}

eg ｢a,"1,725.34",b｣;

=finish

Prints:

    a,"1,725.34",b
        a
        "1,725.34"
        b

# --------------------------------------------------------------------
# ID: x1 Omit parentheses to call a function.

sub foo { say "FOO" }

    # s() same as foo();
my &s = &foo;

s;

    # Anonymous sub stored in variable, and used as a sub.
my &s2 = sub { say "s2" }
s2;