diff options
| -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 |