diff options
| -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" -~~~ +--- |