2023-07-01 11:58:00 -04:00
|
|
|
%!PS
|
|
|
|
|
|
|
|
|
|
% We want the 'n'th fibonacci number
|
|
|
|
|
/n 13 def
|
|
|
|
|
|
|
|
|
|
% Prepare output canvas:
|
|
|
|
|
/Helvetica findfont 20 scalefont setfont
|
|
|
|
|
100 100 moveto
|
|
|
|
|
|
|
|
|
|
%define the function recursively:
|
2024-10-16 18:07:41 -07:00
|
|
|
/fib {
|
|
|
|
|
dup 2 lt
|
|
|
|
|
{ }
|
|
|
|
|
{
|
|
|
|
|
dup 1 sub fib
|
|
|
|
|
exch 2 sub fib
|
|
|
|
|
add
|
|
|
|
|
} ifelse
|
|
|
|
|
} def
|
2023-07-01 11:58:00 -04:00
|
|
|
|
2024-10-16 18:07:41 -07:00
|
|
|
(Fib\() show n (....) cvs show (\) = ) show n fib (.....) cvs show
|
2023-07-01 11:58:00 -04:00
|
|
|
|
|
|
|
|
showpage
|
