diff options
| author | Magnus Markling <magnus@markling.com> | 2025-07-10 15:23:36 +0200 |
|---|---|---|
| committer | Magnus Markling <magnus@markling.com> | 2025-07-10 22:20:28 +0200 |
| commit | c01dfee5d401773d5330f9ed3c997a00c295df63 (patch) | |
| tree | 8512284f37962332d0bfc01a34653355c1c3340b | |
| parent | 6a1bc860b02b7d2b0b1806cb9aa6a1e00a2d966e (diff) | |
| download | perlweeklychallenge-club-c01dfee5d401773d5330f9ed3c997a00c295df63.tar.gz perlweeklychallenge-club-c01dfee5d401773d5330f9ed3c997a00c295df63.tar.bz2 perlweeklychallenge-club-c01dfee5d401773d5330f9ed3c997a00c295df63.zip | |
Solve 329
| -rw-r--r-- | challenge-329/memark/uiua/ch-1.ua | 11 | ||||
| -rw-r--r-- | challenge-329/memark/uiua/ch-2.ua | 28 |
2 files changed, 39 insertions, 0 deletions
diff --git a/challenge-329/memark/uiua/ch-1.ua b/challenge-329/memark/uiua/ch-1.ua new file mode 100644 index 0000000000..3f82e8d3da --- /dev/null +++ b/challenge-329/memark/uiua/ch-1.ua @@ -0,0 +1,11 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-329/#TASK1 + +# Uiua 0.17.0-dev.1 + +DistinctIntegers ← ◴⊜⋕↧⊸⊃(>@0|<@9) + +┌─╴🧪 + ⍤.≍ [1 2] DistinctIntegers "the1weekly2challenge2" + ⍤.≍ [21 1 5 7] DistinctIntegers "go21od1lu5c7k" + ⍤.≍ [4 3 2 1] DistinctIntegers "4p3e2r1l" +└─╴ diff --git a/challenge-329/memark/uiua/ch-2.ua b/challenge-329/memark/uiua/ch-2.ua new file mode 100644 index 0000000000..592c23b02e --- /dev/null +++ b/challenge-329/memark/uiua/ch-2.ua @@ -0,0 +1,28 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-329/#TASK2 + +# Uiua 0.17.0-dev.1 + +IsNiceString ← ( + ◴ + ⊸≥@a + ⍜▽(+@A-@a) + ⬚@\0↯∞_2⍆ + ⍆ + /↧≡/= +) + +LongestNiceString ← ( + ⇡⊸⧻ + ≡⌟(□↘) + ⍚⧅□ + /◇⊂ + ▽⊸≡◇IsNiceString + ⊸≡◇⧻ + °□⬚""⊢⊏⍖ +) + +┌─╴🧪 + ⍤.≍ "aaA" LongestNiceString "YaaAho" + ⍤.≍ "cC" LongestNiceString "cC" + ⍤.≍ "" LongestNiceString "A" +└─╴ |