Fibonacci n-step number sequences: Difference between revisions

=={{header|BASIC256}}==

<lang BASIC256># Rosetta Code problem: https://www.rosettacode.org/wiki/Fibonacci_n-step_number_sequences

# by Jjuanhdez, 06/2022

arraybase 1

print " fibonacci =>";

dim a = {1,1}

call fib (a)

print " tribonacci =>";

dim a = {1,1,2}

call fib (a)

print " tetranacci =>";

dim a = {1,1,2,4}

call fib (a)

print " pentanacci =>";

dim a = {1,1,2,4,8}

call fib (a)

print " hexanacci =>";

dim a = {1,1,2,4,8,16}

call fib (a)

print " heptanacci =>";

dim a = {1,1,2,4,8,16,32}

call fib (a)

print " octonacci =>";

dim a = {1,1,2,4,8,16,32,64}

call fib (a)

print " nonanacci =>";

dim a = {1,1,2,4,8,16,32,64,128}

call fib (a)

print " decanacci =>";

dim a = {1,1,2,4,8,16,32,64,128,256}

call fib (a)

print " lucas =>";

dim a = {2,1}

call fib (a)

end

subroutine fib (a)

dim f(24) fill 0

b = 0

for x = 1 to a[?]

b += 1

f[x] = a[x]

next x

for i = b to 13 + b

print rjust(f[i-b+1], 5);

if i <> 13 + b then print ","; else print ", ..."

for j = (i-b+1) to i

f[i+1] = f[i+1] + f[j]

next j

next i

end subroutine</lang>

{{out}}

<pre> fibonacci => 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, ...

tribonacci => 1, 1, 2, 4, 7, 13, 24, 44, 81, 149, 274, 504, 927, 1705, ...

tetranacci => 1, 1, 2, 4, 8, 15, 29, 56, 108, 208, 401, 773, 1490, 2872, ...

pentanacci => 1, 1, 2, 4, 8, 16, 31, 61, 120, 236, 464, 912, 1793, 3525, ...

hexanacci => 1, 1, 2, 4, 8, 16, 32, 63, 125, 248, 492, 976, 1936, 3840, ...

heptanacci => 1, 1, 2, 4, 8, 16, 32, 64, 127, 253, 504, 1004, 2000, 3984, ...

octonacci => 1, 1, 2, 4, 8, 16, 32, 64, 128, 255, 509, 1016, 2028, 4048, ...

nonanacci => 1, 1, 2, 4, 8, 16, 32, 64, 128, 256, 511, 1021, 2040, 4076, ...

decanacci => 1, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1023, 2045, 4088, ...

lucas => 2, 1, 3, 4, 7, 11, 18, 29, 47, 76, 123, 199, 322, 521, ...</pre>