diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-10-22 00:21:56 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-22 00:21:56 +0100 |
| commit | 9fc033cecad7cd5a26e97f3e6071831511b284b4 (patch) | |
| tree | d4ae42f4f94f20fab27df1603523e9b8eb62b362 | |
| parent | 1582138d6717ed10945d99c19606e625e8f02737 (diff) | |
| parent | d70091ac8bc2b89a6244990f840a91c9f8979527 (diff) | |
| download | perlweeklychallenge-club-9fc033cecad7cd5a26e97f3e6071831511b284b4.tar.gz perlweeklychallenge-club-9fc033cecad7cd5a26e97f3e6071831511b284b4.tar.bz2 perlweeklychallenge-club-9fc033cecad7cd5a26e97f3e6071831511b284b4.zip | |
Merge pull request #5074 from codereport/master
APL & BQN for Week 135
| -rw-r--r-- | challenge-135/conor-hoekstra/ch-01.apl | 12 | ||||
| -rw-r--r-- | challenge-135/conor-hoekstra/ch-01.bqn | 10 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-135/conor-hoekstra/ch-01.apl b/challenge-135/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..533de97ab0 --- /dev/null +++ b/challenge-135/conor-hoekstra/ch-01.apl @@ -0,0 +1,12 @@ +middleThreeDigits ← { + s ← ⍕|⍵ + 0=2|≢s : 'Even # of digits' ⋄ + 3>≢s : 'Too short' ⋄ + (3↑(2÷⍨¯3+≢)↓⊢)s +} + +⍝ Tests +middleThreeDigits 1234567 ⍝ 345 +middleThreeDigits ¯123 ⍝ 123 +middleThreeDigits 1 ⍝ Too short +middleThreeDigits 10 ⍝ Even # of digits diff --git a/challenge-135/conor-hoekstra/ch-01.bqn b/challenge-135/conor-hoekstra/ch-01.bqn new file mode 100644 index 0000000000..c93246ea4a --- /dev/null +++ b/challenge-135/conor-hoekstra/ch-01.bqn @@ -0,0 +1,10 @@ +MiddleThreeDigits ← { + 0=2|≠•Fmt|𝕩 ? "Even # of digits" ; + 3>≠•Fmt|𝕩 ? "Too short" ; + (3↑(2÷˜¯3+≠)↓⊢)•Fmt|𝕩 +} + +MiddleThreeDigits 1234567 # "345" +MiddleThreeDigits ¯123 # "123" +MiddleThreeDigits 1 # "Too short" +MiddleThreeDigits 10 # "Even # of digits" |