From 722192849aa3d0cdaf2edec1da6c05404ac47cce Mon Sep 17 00:00:00 2001 From: Conor Hoekstra Date: Sat, 29 Jan 2022 09:53:35 -0500 Subject: Week 149 Ch 1 in APL --- challenge-149/conor-hoekstra/apl/ch-1.apl | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 challenge-149/conor-hoekstra/apl/ch-1.apl diff --git a/challenge-149/conor-hoekstra/apl/ch-1.apl b/challenge-149/conor-hoekstra/apl/ch-1.apl new file mode 100644 index 0000000000..053883ac31 --- /dev/null +++ b/challenge-149/conor-hoekstra/apl/ch-1.apl @@ -0,0 +1,11 @@ +fibDigitSum ← { + ⎕IO ← 0 + fibs ← (⍳+.!⌽∘⍳)¨⍳⍵ + ⍵↑⍸fibs∊⍨{+/⍎¨⍕⍵}¨⍳10×⍵ +} + +⍝ Test +fibDigitSum 20 + +⍝ Output +0 1 2 3 5 8 10 11 12 14 17 20 21 23 26 30 32 35 41 44 -- cgit