From c01dfee5d401773d5330f9ed3c997a00c295df63 Mon Sep 17 00:00:00 2001 From: Magnus Markling Date: Thu, 10 Jul 2025 15:23:36 +0200 Subject: Solve 329 --- challenge-329/memark/uiua/ch-1.ua | 11 +++++++++++ challenge-329/memark/uiua/ch-2.ua | 28 ++++++++++++++++++++++++++++ 2 files changed, 39 insertions(+) create mode 100644 challenge-329/memark/uiua/ch-1.ua create mode 100644 challenge-329/memark/uiua/ch-2.ua 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" +└─╴ -- cgit