diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2025-10-02 09:42:17 -0400 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2025-10-02 09:42:17 -0400 |
| commit | 9bb44d8dc10f9d50cda5ddf8c188f53928481b31 (patch) | |
| tree | 01285aae6c860006486cb1ca4be002f415aff0d6 | |
| parent | a2318c529e1e11bcb600ce7b757ad402c12a0538 (diff) | |
| download | perlweeklychallenge-club-9bb44d8dc10f9d50cda5ddf8c188f53928481b31.tar.gz perlweeklychallenge-club-9bb44d8dc10f9d50cda5ddf8c188f53928481b31.tar.bz2 perlweeklychallenge-club-9bb44d8dc10f9d50cda5ddf8c188f53928481b31.zip | |
:sparkles: Week 341 Pt 1 in APL
| -rw-r--r-- | challenge-341/conor-hoekstra/apl/ch-1.apl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-341/conor-hoekstra/apl/ch-1.apl b/challenge-341/conor-hoekstra/apl/ch-1.apl new file mode 100644 index 0000000000..9c127486e5 --- /dev/null +++ b/challenge-341/conor-hoekstra/apl/ch-1.apl @@ -0,0 +1,8 @@ +BrokenKeyboard ← { ≢∪(∊∘⍺(⊢~⊢⍤/)(+\' '=⊢))⎕C⍵ } + +⍝ Tests + 'd' BrokenKeyboard 'Hello World' ⍝ 1 +'ae' BrokenKeyboard 'apple banana cherry' ⍝ 0 + '' BrokenKeyboard 'Coding is fun' ⍝ 3 +'ab' BrokenKeyboard 'The Weekly Challenge' ⍝ 2 + 'p' BrokenKeyboard 'Perl and Python' ⍝ 1 |