diff options
| author | Magnus Markling <magnus@markling.com> | 2025-05-10 19:49:00 +0200 |
|---|---|---|
| committer | Magnus Markling <magnus@markling.com> | 2025-05-10 20:56:13 +0200 |
| commit | f81c10b758026a2c4964f2604c3c13ea38af75ba (patch) | |
| tree | 4772a8ad82abb2f66d3eafce338abf3c4862adac | |
| parent | 612f7c4b70ac5ae7c3d78d6eb1edf22a2d900792 (diff) | |
| download | perlweeklychallenge-club-f81c10b758026a2c4964f2604c3c13ea38af75ba.tar.gz perlweeklychallenge-club-f81c10b758026a2c4964f2604c3c13ea38af75ba.tar.bz2 perlweeklychallenge-club-f81c10b758026a2c4964f2604c3c13ea38af75ba.zip | |
Solve 319
| -rw-r--r-- | challenge-319/memark/uiua/ch-1.ua | 12 | ||||
| -rw-r--r-- | challenge-319/memark/uiua/ch-2.ua | 11 |
2 files changed, 23 insertions, 0 deletions
diff --git a/challenge-319/memark/uiua/ch-1.ua b/challenge-319/memark/uiua/ch-1.ua new file mode 100644 index 0000000000..55a0e2a8c1 --- /dev/null +++ b/challenge-319/memark/uiua/ch-1.ua @@ -0,0 +1,12 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-319/#TASK1 + +# Uiua 0.16.0-dev.2 +# Experimental! + +WordCount ← /+∨ ∩(≡⌞∊"aoeui") ≡◇⊃⊢⊣ + +┌─╴🧪 + ⍤. =2 WordCount {"unicode" "xml" "raku" "perl"} + ⍤. =2 WordCount {"the" "weekly" "challenge"} + ⍤. =0 WordCount {"perl" "python" "postgres"} +└─╴ diff --git a/challenge-319/memark/uiua/ch-2.ua b/challenge-319/memark/uiua/ch-2.ua new file mode 100644 index 0000000000..d4f365748d --- /dev/null +++ b/challenge-319/memark/uiua/ch-2.ua @@ -0,0 +1,11 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-319/#TASK2 + +# Uiua 0.16.0-dev.2 + +MinimumCommon ← ⨬⋅¯1/↧ ±⊸⧻ ▽⊸∊ + +┌─╴🧪 + ⍤. =3 MinimumCommon [1 2 3 4] [3 4 5 6] + ⍤. =2 MinimumCommon [1 2 3] [2 4] + ⍤. =¯ 1 MinimumCommon [1 2 3 4] [5 6 7 8] +└─╴ |