diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2025-09-29 18:29:02 -0400 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2025-09-29 18:29:02 -0400 |
| commit | 22ff67b0a3a5cdcdd95d6c6f522663d17b7561be (patch) | |
| tree | 9d064eeb6f96ff528401e2c9aff6b663461f3bcb | |
| parent | 23d40ecd816cf620b0124b6e11788b1cd42523a9 (diff) | |
| download | perlweeklychallenge-club-22ff67b0a3a5cdcdd95d6c6f522663d17b7561be.tar.gz perlweeklychallenge-club-22ff67b0a3a5cdcdd95d6c6f522663d17b7561be.tar.bz2 perlweeklychallenge-club-22ff67b0a3a5cdcdd95d6c6f522663d17b7561be.zip | |
:sparkles: Week 341 in BQN
| -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" |