diff options
| author | Magnus Markling <magnus@markling.com> | 2023-10-22 12:11:37 +0200 |
|---|---|---|
| committer | Magnus Markling <magnus@markling.com> | 2023-10-22 12:11:37 +0200 |
| commit | 324ed05524ee675105bcfebd8e91c0bee5805deb (patch) | |
| tree | 9606c5c35a4af3e60dd72cb80c860a8c291353a4 /challenge-239 | |
| parent | 8878bd6ce04cb46c13d2bb185ca168c896b2045d (diff) | |
| download | perlweeklychallenge-club-324ed05524ee675105bcfebd8e91c0bee5805deb.tar.gz perlweeklychallenge-club-324ed05524ee675105bcfebd8e91c0bee5805deb.tar.bz2 perlweeklychallenge-club-324ed05524ee675105bcfebd8e91c0bee5805deb.zip | |
add ch-2.ua
Diffstat (limited to 'challenge-239')
| -rw-r--r-- | challenge-239/memark/uiua/ch-2.ua | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-239/memark/uiua/ch-2.ua b/challenge-239/memark/uiua/ch-2.ua new file mode 100644 index 0000000000..d3f558dc60 --- /dev/null +++ b/challenge-239/memark/uiua/ch-2.ua @@ -0,0 +1,10 @@ +# https://theweeklychallenge.org/blog/perl-weekly-challenge-239/#TASK2 + +ConsistentString ← =0/+-1∊ +ConsistentStrings ← /+⊞(ConsistentString ∩⊔) + +~~~ +⍤. =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" +~~~ |