diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-29 19:43:47 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-29 19:43:47 +0000 |
| commit | 3744c3b205e99d8d14b16973d3f17b68fc95b7cc (patch) | |
| tree | b12147c5cef7c22118c2cba7c44992f5fe2ff21a | |
| parent | 08aca04ee727fe420299eee41d1b59c4913becfa (diff) | |
| parent | 722192849aa3d0cdaf2edec1da6c05404ac47cce (diff) | |
| download | perlweeklychallenge-club-3744c3b205e99d8d14b16973d3f17b68fc95b7cc.tar.gz perlweeklychallenge-club-3744c3b205e99d8d14b16973d3f17b68fc95b7cc.tar.bz2 perlweeklychallenge-club-3744c3b205e99d8d14b16973d3f17b68fc95b7cc.zip | |
Merge pull request #5582 from codereport/master
Week 149 Ch 1 in APL
| -rw-r--r-- | challenge-149/conor-hoekstra/apl/ch-1.apl | 11 |
1 files changed, 11 insertions, 0 deletions
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 |