diff options
| author | Magnus Markling <magnus@markling.com> | 2023-10-22 13:18:19 +0200 |
|---|---|---|
| committer | Magnus Markling <magnus@markling.com> | 2023-10-22 13:18:37 +0200 |
| commit | 8d682ecf703bcc5870feee8ae5df73bcd1ef3a2a (patch) | |
| tree | b2f20ee9883a51a9b4efeb3c41b8a235073c3c0d /challenge-239 | |
| parent | 6cdb7265bb4f2470d8b62fbae256a9b4be41b497 (diff) | |
| download | perlweeklychallenge-club-8d682ecf703bcc5870feee8ae5df73bcd1ef3a2a.tar.gz perlweeklychallenge-club-8d682ecf703bcc5870feee8ae5df73bcd1ef3a2a.tar.bz2 perlweeklychallenge-club-8d682ecf703bcc5870feee8ae5df73bcd1ef3a2a.zip | |
rewrite in uiua 0.0.22
Diffstat (limited to 'challenge-239')
| -rw-r--r-- | challenge-239/memark/uiua/ch-1.ua | 8 | ||||
| -rw-r--r-- | challenge-239/memark/uiua/ch-2.ua | 9 |
2 files changed, 8 insertions, 9 deletions
diff --git a/challenge-239/memark/uiua/ch-1.ua b/challenge-239/memark/uiua/ch-1.ua index 0680b7d733..68b47d1db4 100644 --- a/challenge-239/memark/uiua/ch-1.ua +++ b/challenge-239/memark/uiua/ch-1.ua @@ -1,11 +1,11 @@ # https://theweeklychallenge.org/blog/perl-weekly-challenge-239/#TASK1 -# Uiua 0.0.20 +# Uiua 0.0.22 -SameString ← ≅∩(▽≠@\0.♭⬚@\0∵⊔) +SameString ← ≅∩(?(⊔⊢)(⊐/⊂)=1⧻.) -~~~ +--- ⍤. =1 SameString {"ab" "c"} {"a" "bc"} ⍤. =0 SameString {"ab" "c"} {"ac" "b"} ⍤. =1 SameString {"ab" "cd" "e"} {"abcde"} -~~~ +--- diff --git a/challenge-239/memark/uiua/ch-2.ua b/challenge-239/memark/uiua/ch-2.ua index a58658ba4f..772c1f1435 100644 --- a/challenge-239/memark/uiua/ch-2.ua +++ b/challenge-239/memark/uiua/ch-2.ua @@ -1,12 +1,11 @@ # https://theweeklychallenge.org/blog/perl-weekly-challenge-239/#TASK2 -# Uiua 0.0.20 +# Uiua 0.0.22 -ConsistentString ← =0/+-1∊ -ConsistentStrings ← /+⊞(ConsistentString ∩⊔) +ConsistentStrings ← /+⊞(=0/+-1∊∩⊔) -~~~ +--- ⍤. =2 ConsistentStrings {"ad" "bd" "aaab" "baa" "badab"} □"ab" ⍤. =7 ConsistentStrings {"a" "b" "c" "ab" "ac" "bc" "abc"} □"abc" ⍤. =4 ConsistentStrings {"cc" "acd" "b" "ba" "bac" "bad" "ac" "d"} □"cad" -~~~ +--- |