Rosetta Code

Fibonacci n-step number sequences: Difference between revisions

Page Discussion

Fibonacci n-step number sequences (view source)

Revision as of 14:46, 12 January 2015

170 bytes removed ,  9 years ago
→‎{{header|ERRE}}
No edit summary
Line 810:
=={{header|ERRE}}==
<lang ERRE>
PROGRAM FIBONACCI_NFIBON
 
!
DIM F2%[1],F3%[2],F4%[3],FL%[1],F%[10]
! for rosettacode.org
!
 
DIM F[20]
PROCEDURE FIBN(F%[],N%)▼
 
LOCAL I%,S%
▲PROCEDURE FIBNFIB(F%[]TIPO$,N%F$)
S%=0
FOR I%=10 TO N%20 DO
S%=S%+F%[I%]=0
END FOR
B=0
FOR I%=1 TO N% DO▼
LOOP
F%[I%-1]=F%[I%]▼
Q=INSTR(F$,",")
END FOR▼
B=B+1
F%[I%-1]=S%
IF FOR I%Q=1 TO N%0 DOTHEN
PRINT( F%[I%B];=VAL(F$)
END FOR EXIT
PRINT ELSE
F[B]=VAL(MID$(F$,1,Q-1))
F$=MID$(F$,Q+1)
END FORIF▼
END LOOP
 
PRINT(TIPO$;" ...=>";)▼
FOR I%=1B TO 1214+B DO▼
IF I<>B THEN PRINT(",";) END IF
PRINT(F2%F[0I-B+1];)▼
▲ FOR I%J=(I-B)+1 TO N%I DO
▲ F%[I%-+1]=F%[I%+1]+F[J]
▲ END FOR
END FOR▼
PRINT
END PROCEDURE
 
BEGIN
PRINT(CHR$(12);) ! CLS
 
PRINT FIB("Fibonacci:","1,1")
F2%[]= FIB("Tribonacci","1,1,2")
PRINT FIB("Tetranacci:","1,1,2,4")▼
▲ PRINT(F2%[0];)
PRINT FIB("Lucas:","2,1")▼
▲ FOR I%=1 TO 12 DO
FIBN(F2%[],1)
▲ END FOR
▲ PRINT(" ...")
 
PRINT("Tribonacci:")
F3%[]=(1,1,2)
PRINT(F3%[0];)
FOR I%=1 TO 12 DO
FIBN(F3%[],2)
▲ END FOR
PRINT(" ...")
 
▲ PRINT("Tetranacci:")
F4%[]=(1,1,2,4)
PRINT(F4%[0];)
FOR I%=1 TO 12 DO
FIBN(F4%[],3)
END FOR
PRINT(" ...")
 
▲ PRINT("Lucas:")
FL%[]=(2,1)
PRINT(FL%[0];)
FOR I%=1 TO 12 DO
FIBN(FL%[],1)
END FOR
PRINT(" ...")
END PROGRAM
</lang>
 
=={{header|F_Sharp|F#}}==
<lang fsharp>let fibinit = Seq.append (Seq.singleton 1) (Seq.unfold (fun n -> Some(n, 2*n)) 1)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/215136"