lucs

This:

    say ('baz 42 k9 foo' ~~ m:g/ \d+ /).raku

prints this:

    (Match.new(:orig("baz 42 k9 foo"), :from(4), :pos(6)), Match.new(:orig("baz 42 k9 foo"), :from(8), :pos(9)))

Is there some tool that exists to reformat strings like that to something like this?:

lucs

# 2025-02-27.Thu [Coke] shows this on IRC:
#
#   If you take twin primes starting with 5, multiply them together,
#   then add the digits together iteratively until you're left with a
#   single digit... it's 8.

sub aa ($a) {
    my $s = [+] $a.comb;
    $s.comb.elems > 1 ?? aa($s) !! $s
}

lucs

my $orig-text = Q:to/EoT/
    My number is 4, and another 3.2
    and 8 again, and also 7
    6 and 0.9
    EoT
;

my @repl-nums = (6.5, 3, 5, 8.1, 2, 0);

my $want-text = Q:to/EoT/

lucs

I'm upgrading my Rakudo from moar-2023.02 to
moar-2024.04. I'm having problems obtaining the
IO::String distribution. raku.land proposes:

    P6C: IO::String:ver<0.1.1>
    ZEF: IO::String:ver<0.2.0>:auth<zef:jjmerelo>

Now, in a shell having moar-2024.04 active, please
observe:

lucs

```ansi
Resetting to normal color and style is done by inserting ``⟨esc⟩[0m``.

Basic colors, foreground and background (meh):
 30 Black     40 Black 
 31 Red       41 Red 
 32 Green     42 Green 
 33 Yellow    43 Yellow 
 34 Blue      44 Blue 
 35 Magenta   45 Magenta 

lucs

# --------------------------------------------------------------------
# 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'/;
}

# --------------------------------------------------------------------

lucs

#!/bin/bash

    # ⦃▸ snipraku b rx14⦄
snipraku.raku \
    /home/lucs/prj/t/raku/bin/snips.raku \
    /tmp/snips-raku \
    $*

lucs

#!/usr/bin/env raku

=begin pod

=head1 NAME

    snipraku - Extract and run Raku snippets.

=head1 SYNOPSIS

lucs

=begin pod

⌊raku --doc=Markdown ⟨this file⟩⌉ produces
improper Markdown for the beginning here;

        Indented
    Baz

        Indented
    Foo

lucs

I want a LEAVE block to run after a sub has completed,
but only if some condition is True.

# --------------------------------------------------------------------
# Start from this.

sub foo1 {
    ⋯
    LEAVE {⋯}
    ⋯