Skip to content

Instantly share code, notes, and snippets.

View Whateverable's full-sized avatar
☺️
Having fun on #raku on Libera.chat

Whateverable bots Whateverable

☺️
Having fun on #raku on Libera.chat
View GitHub Profile
@Whateverable
Whateverable / query
Created May 10, 2025 10:09
evalable6
my @ten = ^10; .say for @ten.classify(&so), @ten.classify(&{+]);
@Whateverable
Whateverable / query
Created May 10, 2025 10:08
evalable6
my @ten = ^10; .say for @ten.classify(&so), @ten.classify(.&{+]);
@Whateverable
Whateverable / query
Created May 10, 2025 02:06
evalable6
my \sig = :(Int $a, Str $b); proto f(*@, *%) { if (|@, |%).Capture ~~ sig { say "matched" } }; f 1, "foo" # hhh
@Whateverable
Whateverable / query
Created May 10, 2025 02:06
evalable6
my \sig = :(Int $a, Str $b); proto f(*@, *%) { if (|@, |%).Capture ~~ sig { say "matched" } }; f 1, "foo"'
@Whateverable
Whateverable / result
Created May 8, 2025 07:27
Whateverable
2025-05-07T20:54:37Z #raku <wayland76> librasteve I actually already have most of the code, I just have one part that I'd like to do in Tree-Oriented Programming. I won't need the whole Tree-Oriented Programming thing, just the first part (the XPath-like part), but that's about the 4th thing on my list at the moment.
package Flip { enum coin is export <heads tails>; }; import Flip; multi MAIN(:$a) { $a.WHAT.say }; multi MAIN(coin(Str) :$a) { say $a }; MAIN(a => 'heads'
.say for lines
@Whateverable
Whateverable / query
Created May 5, 2025 17:04
releasable6
next
use Zef::CLI; say MAIN(<<search zef>>)
@Whateverable
Whateverable / result
Created May 5, 2025 02:47
Whateverable
2025-05-04T10:27:32Z #raku-dev <finanalyst> ugexe is there a way to discover which distribution/location `CompUnit::RepositoryRegistry.run-script("run-locally")` is pointing at? I moved the script run-locally when I spun a Cro related script into a new distribution, but now I cant get rid of the old one.