Padovan sequence: Difference between revisions
m
→{{header|J}}
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
m (→{{header|J}}) |
||
Line 1,228:
<syntaxhighlight lang="j">
padovanSeq=: (],+/@(_2 _3{]))^:([-3:)&1 1 1
NB. or, equivalently:
padovanSeq=: (, [: +/ _2 {. }:)@]^:([ - 2:)&1 1
realRoot=. {:@(#~ ]=|)@;@p.
| |||