From 7689c4c6a7de8dd1163406aab648664e6878eac9 Mon Sep 17 00:00:00 2001 From: Magnus Markling Date: Fri, 30 May 2025 08:16:13 +0200 Subject: Solve 284 --- challenge-284/memark/uiua/ch-1.ua | 15 +++++++++++++++ challenge-284/memark/uiua/ch-2.ua | 17 +++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 challenge-284/memark/uiua/ch-1.ua create mode 100644 challenge-284/memark/uiua/ch-2.ua diff --git a/challenge-284/memark/uiua/ch-1.ua b/challenge-284/memark/uiua/ch-1.ua new file mode 100644 index 0000000000..fbddd9f1b3 --- /dev/null +++ b/challenge-284/memark/uiua/ch-1.ua @@ -0,0 +1,15 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-284/#TASK1 + +# Uiua 0.17.0-dev.1 + +LuckyInteger ← ( + ⊕⊃⧻⊢ ⊛. + ▽⊸= + ⬚¯1/↥ +) + +┌─╴🧪 + ⍤⤙≍ 2 LuckyInteger 2_2_3_4 + ⍤⤙≍ 3 LuckyInteger 1_2_2_3_3_3 + ⍤⤙≍ ¯1 LuckyInteger 1_1_1_3 +└─╴ diff --git a/challenge-284/memark/uiua/ch-2.ua b/challenge-284/memark/uiua/ch-2.ua new file mode 100644 index 0000000000..78bcc2bc56 --- /dev/null +++ b/challenge-284/memark/uiua/ch-2.ua @@ -0,0 +1,17 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-284/#TASK2 + +# Uiua 0.17.0-dev.1 + +RelativeSort ← ( + : + ⟜⊃(▽⊸∊|▽˜-1⊸∊) + /◇⊂ ≡⌟(□▽⊸⌕) + ⊙⍆ + ⊂ +) + +┌─╴🧪 + ⍤⤙≍ 2_2_1_4_3_3_5_6_7_8_9 RelativeSort 2_3_9_3_1_4_6_7_2_8_5 2_1_4_3_5_6 + ⍤⤙≍ 1_3_3_3_2_2_4_4_6 RelativeSort 3_3_4_6_2_4_2_1_3 1_3_2 + ⍤⤙≍ 1_1_1_0_0_3_2_4_5 RelativeSort 3_0_5_0_2_1_4_1_1 1_0_3_2 +└─╴ -- cgit From 9b0246a3e7b1da74a19b1b233a946f27a8103b30 Mon Sep 17 00:00:00 2001 From: Magnus Markling Date: Fri, 30 May 2025 08:14:39 +0200 Subject: Solve 323 --- challenge-323/memark/uiua/ch-1.ua | 11 +++++++++++ challenge-323/memark/uiua/ch-2.ua | 16 ++++++++++++++++ 2 files changed, 27 insertions(+) create mode 100644 challenge-323/memark/uiua/ch-1.ua create mode 100644 challenge-323/memark/uiua/ch-2.ua diff --git a/challenge-323/memark/uiua/ch-1.ua b/challenge-323/memark/uiua/ch-1.ua new file mode 100644 index 0000000000..e2403e818e --- /dev/null +++ b/challenge-323/memark/uiua/ch-1.ua @@ -0,0 +1,11 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-323/#TASK1 + +# Uiua 0.17.0-dev.1 + +IncrementDecrement ← ∧(+-₁×₂/↥∊@+) :0 + +┌─╴🧪 + ⍤⤙≍ 1 IncrementDecrement "--x"_"x++"_"x++" + ⍤⤙≍ 3 IncrementDecrement "x++"_"++x"_"x++" + ⍤⤙≍ 0 IncrementDecrement "x++"_"++x"_"--x"_"x--" +└─╴ diff --git a/challenge-323/memark/uiua/ch-2.ua b/challenge-323/memark/uiua/ch-2.ua new file mode 100644 index 0000000000..08ed4da2c3 --- /dev/null +++ b/challenge-323/memark/uiua/ch-2.ua @@ -0,0 +1,16 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-323/#TASK2 + +# Uiua 0.17.0-dev.1 + +TaxAmount ← ( + ⊙(°⊟⍉) + ⊂0 ↧ + ⧈/-2 + /+ ÷₁₀₀× +) + +┌─╴🧪 + ⍤⤙≍ 2.65 TaxAmount 10 [3 50]_[7 10]_[12 25]_[15 50] + ⍤⤙≍ 0.25 TaxAmount 2 [1 0]_[4 25]_[5 50] + ⍤⤙≍ 0 TaxAmount 0 ¤[2 50] +└─╴ -- cgit