diff options
| -rw-r--r-- | challenge-341/conor-hoekstra/ch-1.bqn | 14 | ||||
| -rw-r--r-- | challenge-341/conor-hoekstra/ch-2.bqn | 13 |
2 files changed, 27 insertions, 0 deletions
diff --git a/challenge-341/conor-hoekstra/ch-1.bqn b/challenge-341/conor-hoekstra/ch-1.bqn new file mode 100644 index 0000000000..8cdce54367 --- /dev/null +++ b/challenge-341/conor-hoekstra/ch-1.bqn @@ -0,0 +1,14 @@ +# For up to date code: +# https://github.com/codereport/bqn-code/blob/main/pwc/341-1.bqn + +u ⇐ •Import "/home/cph/bqn-test/test.bqn" +s ⇐ •Import "/home/cph/bqn-code/lib/string.bqn" + +BrokenKeyboard ← { +´¬∨´¨𝕨⊸∊¨s.Words s.Lower 𝕩 } + +# Tests +u.UnitTest ( "d" BrokenKeyboard "Hello World") ≡ 1 +u.UnitTest ("ae" BrokenKeyboard "apple banana cherry") ≡ 0 +u.UnitTest ( "" BrokenKeyboard "Coding is fun") ≡ 3 +u.UnitTest ("ab" BrokenKeyboard "The Weekly Challenge") ≡ 2 +u.UnitTest ( "p" BrokenKeyboard "Perl and Python") ≡ 1 diff --git a/challenge-341/conor-hoekstra/ch-2.bqn b/challenge-341/conor-hoekstra/ch-2.bqn new file mode 100644 index 0000000000..4e8edf2d58 --- /dev/null +++ b/challenge-341/conor-hoekstra/ch-2.bqn @@ -0,0 +1,13 @@ +# For up to date code: +# https://github.com/codereport/bqn-code/blob/main/pwc/341-2.bqn + +u ⇐ •Import "/home/cph/bqn-test/test.bqn" + +ReversePrefix ← { ⌽⌾((1+⊑/𝕨=𝕩)⊸↑)𝕩 } + +# Tests +u.UnitTest ('g' ReversePrefix "programming") ≡ "gorpramming" +u.UnitTest ('h' ReversePrefix "hello") ≡ "hello" +u.UnitTest ('h' ReversePrefix "abcdefghij") ≡ "hgfedcbaij" +u.UnitTest ('s' ReversePrefix "reverse") ≡ "srevere" +u.UnitTest ('r' ReversePrefix "perl") ≡ "repl" |