diff options
| author | mhsn <mail@mhsn.net> | 2026-03-18 21:48:13 +0000 |
|---|---|---|
| committer | mhsn <mail@mhsn.net> | 2026-03-18 21:48:13 +0000 |
| commit | 86bac31392a76da84817eec020d2b84d099b3cc1 (patch) | |
| tree | e2ee52db59b86b914d5b4bcceb19c9b5d899fff4 /2024/05/raku.raku | |
| parent | 62fe361fc42dea75deaf7ac31c0ba6ba80e26a9c (diff) | |
| download | puzzles-master.tar.gz puzzles-master.zip | |
Diffstat (limited to '2024/05/raku.raku')
| -rwxr-xr-x | 2024/05/raku.raku | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/2024/05/raku.raku b/2024/05/raku.raku deleted file mode 100755 index a13cf5a..0000000 --- a/2024/05/raku.raku +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env raku - -my (@rs, @us) := slurp.split("\n\n")>>.lines; - -sub mid(@u) { - my @s = @u.sort({ "$^a|$^b" !(elem) @rs }); - return (@u Z== @s).all.so ?? ($_, 0) !! (0, $_) with @s[@s/2]; -} - -(("silver: ", "gold: ") Z~ [Z+] @us>>.split(",").map(&mid)).map(&say); |
