From 5c4f97c2cd5bd9ebfa7c84a440a78a8449645a6e Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Wed, 23 Feb 2022 12:52:54 -0500 Subject: Week 153 in APL --- challenge-153/conor-hoekstra/ch-1.apl | 6 ++++++ challenge-153/conor-hoekstra/ch-2.apl | 5 +++++ 2 files changed, 11 insertions(+) create mode 100644 challenge-153/conor-hoekstra/ch-1.apl create mode 100644 challenge-153/conor-hoekstra/ch-2.apl diff --git a/challenge-153/conor-hoekstra/ch-1.apl b/challenge-153/conor-hoekstra/ch-1.apl new file mode 100644 index 0000000000..54b969fc95 --- /dev/null +++ b/challenge-153/conor-hoekstra/ch-1.apl @@ -0,0 +1,6 @@ +⍝ Left factorials from 1 to 10 +{+/!¯1+⍳⍵}¨⍳10 + +⍝ Output +1 2 4 10 34 154 874 5914 46234 409114 + diff --git a/challenge-153/conor-hoekstra/ch-2.apl b/challenge-153/conor-hoekstra/ch-2.apl new file mode 100644 index 0000000000..f3664382e4 --- /dev/null +++ b/challenge-153/conor-hoekstra/ch-2.apl @@ -0,0 +1,5 @@ +factorian ← {⍵=+/!10(⊥⍣¯1)⍵} + +⍝ Tests +factorian ¨ 145 123 ⍝ 1 0 + -- cgit