diff options
| author | Tymoteusz Moryto <tymek24m@gmail.com> | 2024-08-26 12:13:19 +0200 |
|---|---|---|
| committer | Tymoteusz Moryto <tymek24m@gmail.com> | 2024-08-26 12:13:19 +0200 |
| commit | fe6466f89808cc47db47045700c2ffced724dba9 (patch) | |
| tree | aa199bdc003488b6850da1229e07a40d9d6d7399 | |
| parent | e1f1406fb4008da2581f07c2fac93108afec53bf (diff) | |
| download | perlweeklychallenge-club-fe6466f89808cc47db47045700c2ffced724dba9.tar.gz perlweeklychallenge-club-fe6466f89808cc47db47045700c2ffced724dba9.tar.bz2 perlweeklychallenge-club-fe6466f89808cc47db47045700c2ffced724dba9.zip | |
added solutions to week 284 in Uiua
| -rw-r--r-- | challenge-284/pieviero/uiua/ch-1.ua | 4 | ||||
| -rw-r--r-- | challenge-284/pieviero/uiua/ch-2.ua | 5 |
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] |