From 877dcae6db3751c244e3afdfa5bce4bc08996d36 Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Mon, 13 Dec 2021 16:18:49 -0500 Subject: APL Solutions for Week 143 --- challenge-143/conor-hoekstra/ch-01.apl | 5 +++++ challenge-143/conor-hoekstra/ch-02.apl | 4 ++++ 2 files changed, 9 insertions(+) create mode 100644 challenge-143/conor-hoekstra/ch-01.apl create mode 100644 challenge-143/conor-hoekstra/ch-02.apl (limited to 'challenge-143') diff --git a/challenge-143/conor-hoekstra/ch-01.apl b/challenge-143/conor-hoekstra/ch-01.apl new file mode 100644 index 0000000000..ec5e3506f0 --- /dev/null +++ b/challenge-143/conor-hoekstra/ch-01.apl @@ -0,0 +1,5 @@ +solution ← ⍎'×'@('*'∘=) + +⍝ Tests +solution '10 + 20 - 5' ⍝ 25 +solution '(10 + 20 - 5) * 2' ⍝ 50 diff --git a/challenge-143/conor-hoekstra/ch-02.apl b/challenge-143/conor-hoekstra/ch-02.apl new file mode 100644 index 0000000000..2c5bcceda9 --- /dev/null +++ b/challenge-143/conor-hoekstra/ch-02.apl @@ -0,0 +1,4 @@ +solution ← {1∊2-/(⍵∘÷+⊢)∪⍵∨⍳⌊⍵*.5} + +⍝ Tests +solution ¨ 36 12 6 ⍝ 1 1 0 -- cgit