maybe a variant like this- a combination of ideas presented
fibb=:verb define
series=:0 1
while. (y>: # series) do.
series=: series, +/_2{. series
end.
)
Don Kelly
On 2/26/17 11:37 AM, Raul Miller wrote:
Then perhaps something like this:
fib=:verb define
series=. 0 1
needed=. >./, y
while. needed >: #series do.
series=. series, +/_1 _2 { series
end.
y { series return.
)
Thanks,
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
