aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMohammad Sajid Anwar <Mohammad.Anwar@yahoo.com>2024-08-26 13:30:46 +0100
committerGitHub <noreply@github.com>2024-08-26 13:30:46 +0100
commit302938d208e9b3aee8c8cc79363c4562a271cf98 (patch)
treef361e35f24f555b2f195e69340b095341a2bad00
parent5ac7454b4ed7ef568b16d79a7e7a16b09e8f9664 (diff)
parentfe6466f89808cc47db47045700c2ffced724dba9 (diff)
downloadperlweeklychallenge-club-302938d208e9b3aee8c8cc79363c4562a271cf98.tar.gz
perlweeklychallenge-club-302938d208e9b3aee8c8cc79363c4562a271cf98.tar.bz2
perlweeklychallenge-club-302938d208e9b3aee8c8cc79363c4562a271cf98.zip
Merge pull request #10702 from PieVieRo/uiua
week 284 solutions in Uiua
-rw-r--r--challenge-284/pieviero/uiua/ch-1.ua4
-rw-r--r--challenge-284/pieviero/uiua/ch-2.ua5
2 files changed, 9 insertions, 0 deletions
diff --git a/challenge-284/pieviero/uiua/ch-1.ua b/challenge-284/pieviero/uiua/ch-1.ua
new file mode 100644
index 0000000000..0dfc723144
--- /dev/null
+++ b/challenge-284/pieviero/uiua/ch-1.ua
@@ -0,0 +1,4 @@
+LuckyInteger ← ⍣(⊏⊢⊚)¯1⊸=°▽⊏⊸⍖
+LuckyInteger [2 2 3 4]
+LuckyInteger [1 2 2 3 3 3]
+LuckyInteger [1 1 1 3]
diff --git a/challenge-284/pieviero/uiua/ch-2.ua b/challenge-284/pieviero/uiua/ch-2.ua
new file mode 100644
index 0000000000..8830043994
--- /dev/null
+++ b/challenge-284/pieviero/uiua/ch-2.ua
@@ -0,0 +1,5 @@
+# this probably can be done better
+RelativeSort ← ⊂:⊏⊸⍏⊙(⊏⍏◌⊸⍜⊂⊛:)∩▽⊙,¬.⊸∈⊸:
+RelativeSort [2 3 9 3 1 4 6 7 2 8 5] [2 1 4 3 5 6]
+RelativeSort [3 3 4 6 2 4 2 1 3] [1 3 2]
+RelativeSort [3 0 5 0 2 1 4 1 1] [1 0 3 2]