diff options
| author | Conor Hoekstra <codereport@outlook.com> | 2022-01-29 09:53:35 -0500 |
|---|---|---|
| committer | Conor Hoekstra <codereport@outlook.com> | 2022-01-29 09:53:35 -0500 |
| commit | 722192849aa3d0cdaf2edec1da6c05404ac47cce (patch) | |
| tree | 986d6859205c3941d5e0491909662a0ef4f6a72e | |
| parent | ffcaad38e457633d0c8a4a229a3125a6306038ff (diff) | |
| download | perlweeklychallenge-club-722192849aa3d0cdaf2edec1da6c05404ac47cce.tar.gz perlweeklychallenge-club-722192849aa3d0cdaf2edec1da6c05404ac47cce.tar.bz2 perlweeklychallenge-club-722192849aa3d0cdaf2edec1da6c05404ac47cce.zip | |
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 |