diff options
| author | Magnus Markling <magnus@markling.com> | 2025-05-30 08:14:39 +0200 |
|---|---|---|
| committer | Magnus Markling <magnus@markling.com> | 2025-05-30 08:17:15 +0200 |
| commit | 9b0246a3e7b1da74a19b1b233a946f27a8103b30 (patch) | |
| tree | 8b4f32ef982a832d62159478dbd8fa51936a1480 | |
| parent | 7689c4c6a7de8dd1163406aab648664e6878eac9 (diff) | |
| download | perlweeklychallenge-club-9b0246a3e7b1da74a19b1b233a946f27a8103b30.tar.gz perlweeklychallenge-club-9b0246a3e7b1da74a19b1b233a946f27a8103b30.tar.bz2 perlweeklychallenge-club-9b0246a3e7b1da74a19b1b233a946f27a8103b30.zip | |
Solve 323
| -rw-r--r-- | challenge-323/memark/uiua/ch-1.ua | 11 | ||||
| -rw-r--r-- | challenge-323/memark/uiua/ch-2.ua | 16 |
2 files changed, 27 insertions, 0 deletions
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] +└─╴ |