aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--challenge-313/memark/uiua/.gitignore1
-rw-r--r--challenge-313/memark/uiua/ch-1.ua12
-rw-r--r--challenge-313/memark/uiua/ch-2.ua11
3 files changed, 24 insertions, 0 deletions
diff --git a/challenge-313/memark/uiua/.gitignore b/challenge-313/memark/uiua/.gitignore
new file mode 100644
index 0000000000..a910045315
--- /dev/null
+++ b/challenge-313/memark/uiua/.gitignore
@@ -0,0 +1 @@
+uiua-modules \ No newline at end of file
diff --git a/challenge-313/memark/uiua/ch-1.ua b/challenge-313/memark/uiua/ch-1.ua
new file mode 100644
index 0000000000..4ec874b81f
--- /dev/null
+++ b/challenge-313/memark/uiua/ch-1.ua
@@ -0,0 +1,12 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-313/#TASK1
+
+# Uiua 0.17.0-dev.1
+
+BrokenKeys ← ≍∩(⊜⊢+₁⊸⊛)
+
+┌─╴🧪
+ ⍤.≍ 1 BrokenKeys "perl" "perrrl"
+ ⍤.≍ 1 BrokenKeys "raku" "rrakuuuu"
+ ⍤.≍ 0 BrokenKeys "python" "perl"
+ ⍤.≍ 1 BrokenKeys "coffeescript" "cofffeescccript"
+└─╴
diff --git a/challenge-313/memark/uiua/ch-2.ua b/challenge-313/memark/uiua/ch-2.ua
new file mode 100644
index 0000000000..915b32a54a
--- /dev/null
+++ b/challenge-313/memark/uiua/ch-2.ua
@@ -0,0 +1,11 @@
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-313/#TASK2
+
+# Uiua 0.17.0-dev.1
+
+ReverseLetters ← ⍜▽⇌⊸(≠₀±)
+
+┌─╴🧪
+ ⍤.≍ "l-re?p" ReverseLetters "p-er?l"
+ ⍤.≍ "yLk-e!e-w" ReverseLetters "wee-k!L-y"
+ ⍤.≍ "_e-!g_nel-la!h_c" ReverseLetters "_c-!h_all-en!g_e"
+└─╴