aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad Sajid Anwar <Mohammad.Anwar@yahoo.com>2023-10-29 23:37:39 +0000
committerGitHub <noreply@github.com>2023-10-29 23:37:39 +0000
commiteb2ba31aaf5c79ebf0f8072b45753a21197e9a1d (patch)
tree5d9787a97cdc481e3cde0cec24a9ea4938de71b3
parent3942a66b37c5ff1d2dea9daf5d0868e12dd4e219 (diff)
parent655104328f113896275dbfdd934092466e12ee56 (diff)
downloadperlweeklychallenge-club-eb2ba31aaf5c79ebf0f8072b45753a21197e9a1d.tar.gz
perlweeklychallenge-club-eb2ba31aaf5c79ebf0f8072b45753a21197e9a1d.tar.bz2
perlweeklychallenge-club-eb2ba31aaf5c79ebf0f8072b45753a21197e9a1d.zip
Merge pull request #8961 from memark/240
Add solutions for 240
-rw-r--r--challenge-240/memark/uiua/ch-1.ua11
-rw-r--r--challenge-240/memark/uiua/ch-2.ua10
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-240/memark/uiua/ch-1.ua b/challenge-240/memark/uiua/ch-1.ua
new file mode 100644
index 0000000000..450b6882cc
--- /dev/null
+++ b/challenge-240/memark/uiua/ch-1.ua
@@ -0,0 +1,11 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-240/#TASK1
+
+# Uiua 0.0.23
+
+Acronym ← ≍∵(+32⊢)
+
+---
+⍤. =1 Acronym {"Perl" "Python" "Pascal"} "ppp"
+⍤. =0 Acronym {"Perl" "Raku"} "rp"
+⍤. =1 Acronym {"Oracle" "Awk" "C"} "oac"
+---
diff --git a/challenge-240/memark/uiua/ch-2.ua b/challenge-240/memark/uiua/ch-2.ua
new file mode 100644
index 0000000000..0b3a71630b
--- /dev/null
+++ b/challenge-240/memark/uiua/ch-2.ua
@@ -0,0 +1,10 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-240/#TASK2
+
+# Uiua 0.0.23
+
+BuildArray ← ⊏.
+
+---
+⍤. ≍[0 1 2 4 5 3] BuildArray [0 2 1 5 3 4]
+⍤. ≍[4 5 0 1 2 3] BuildArray [5 0 1 2 3 4]
+---