diff options
| -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" +└─╴ |