15 lines
281 B
Text
15 lines
281 B
Text
get "libhdr"
|
|
|
|
let start() be
|
|
$( let Q = vec 1000
|
|
Q!1 := 1
|
|
Q!2 := 1
|
|
|
|
for n = 3 to 1000 do
|
|
Q!n := Q!(n-Q!(n-1)) + Q!(n-Q!(n-2))
|
|
|
|
writes("The first 10 terms are:")
|
|
for n = 1 to 10 do writef(" %N", Q!n)
|
|
|
|
writef("*NThe 1000th term is: %N*N", Q!1000)
|
|
$)
|