From 52daed36f2fa8db556444d3044d2975975d94ca9 Mon Sep 17 00:00:00 2001 From: Magnus Markling Date: Sat, 24 May 2025 08:47:24 +0200 Subject: Solve 322 --- challenge-322/memark/uiua/ch-1.ua | 16 ++++++++++++++++ challenge-322/memark/uiua/ch-2.ua | 12 ++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 challenge-322/memark/uiua/ch-1.ua create mode 100644 challenge-322/memark/uiua/ch-2.ua diff --git a/challenge-322/memark/uiua/ch-1.ua b/challenge-322/memark/uiua/ch-1.ua new file mode 100644 index 0000000000..9d3ec49e16 --- /dev/null +++ b/challenge-322/memark/uiua/ch-1.ua @@ -0,0 +1,16 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-322/#TASK1 + +# Uiua 0.17.0-dev.1 + +StringFormat ← ( + ▽⊸≠@- + ≡⇌⇌ ⬚@_↯⊂∞: ⇌ + /$"_-_" + ▽⊸≠@_ +) + +┌─╴🧪 + ⍤⤙≍ "ABC-DEF" StringFormat "ABC-D-E-F" 3 + ⍤⤙≍ "A-BC-DE" StringFormat "A-BC-D-E" 2 + ⍤⤙≍ "A-BCDE" StringFormat "-A-B-CD-E" 4 +└─╴ diff --git a/challenge-322/memark/uiua/ch-2.ua b/challenge-322/memark/uiua/ch-2.ua new file mode 100644 index 0000000000..bc8466d867 --- /dev/null +++ b/challenge-322/memark/uiua/ch-2.ua @@ -0,0 +1,12 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-322/#TASK2 + +# Uiua 0.17.0-dev.1 + +RankArray ← +₁˜⊗◴⊸⍆ + +┌─╴🧪 + ⍤⤙≍ 4_1_3_2 RankArray 55_22_44_33 + ⍤⤙≍ 1_1_1 RankArray 10_10_10 + ⍤⤙≍ 4_1_1_3_2 RankArray 5_1_1_4_3 + +└─╴ -- cgit