how to display a fibonacci series using base sas concepts

[swapnil]

we need to take the input as the number from the user and display the fibonacci series

[Subbarao]

Hi,

Below is the code.

data temp(keep=a);

a=0;

b=1;

n=100;

do while (count<n);

c=a+b;

output;

a=b;

b=c;

count+1;

end;

run;

If you wanted to have in Macro's, follow this.

%macro fib(n,fib=0,b=1);

%let count = 0;

%do %while(&count. < &n.);

%let c = %eval(&fib.+&b.);

%put &fib.;

%let count = %eval(&count+1);

%let fib=&b.;

%let b=&c.;

%end;

%mend;

%fib(10)

[Ksharp]

data _null_;
 a=1;b=1;  put a / b ;
 do i=1 to 10; 
  c=a+b; put c; a=b; b=c;
 end;
run;

Xia Keshan

[SASMike]

Here's an example of the Fibonacci using an array.

*OUTPUT THE FIBONACCI SEQUENCE TO THE SAS LOG;

DATA _NULL_;

ARRAY FIBONACCI {100};

DO I=1 TO DIM(FIBONACCI);

IF I<=2 THEN FIBONACCI{I}=1;

ELSE FIBONACCI{I}=FIBONACCI{I-1}+FIBONACCI{I-2};

PUT FIBONACCI{I};

END;

RUN;