diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2021-10-21 19:11:08 -0400 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2021-10-21 19:11:08 -0400 |
| commit | 1f2c563d631e01a8707ee098c1bb3905bfe32501 (patch) | |
| tree | fd9c9458ccac01ae2b40b195a2e6c6f1a27a271f | |
| parent | 402866100f60f1c742cb1151fbbe1aeb5f6cac6b (diff) | |
| download | perlweeklychallenge-club-1f2c563d631e01a8707ee098c1bb3905bfe32501.tar.gz perlweeklychallenge-club-1f2c563d631e01a8707ee098c1bb3905bfe32501.tar.bz2 perlweeklychallenge-club-1f2c563d631e01a8707ee098c1bb3905bfe32501.zip | |
Week 135
| -rw-r--r-- | challenge-135/conor-hoekstra/ch-01.apl | 12 | ||||
| -rw-r--r-- | challenge-135/conor-hoekstra/ch-01.bqn | 12 |
2 files changed, 24 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..7d91a8a263 --- /dev/null +++ b/challenge-135/conor-hoekstra/ch-01.bqn @@ -0,0 +1,12 @@ +Fmt ← '0'+·⌽10|·⌊⊢÷(10⋆↕∘(⌊1+10⋆⁼1⌈|)) + +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" |