34 lines
302 B
PostScript
34 lines
302 B
PostScript
%!PS
|
|
|
|
/Courier 16 selectfont
|
|
|
|
/fibonacci {
|
|
dup 2 lt
|
|
{ }
|
|
{
|
|
0 exch
|
|
1 exch
|
|
2 exch 1 exch {
|
|
pop
|
|
exch
|
|
1 index
|
|
add
|
|
} for
|
|
exch
|
|
pop
|
|
} ifelse
|
|
} def
|
|
|
|
/str 4 string def
|
|
|
|
/n 10 def
|
|
|
|
72 720 moveto
|
|
|
|
0 1 n {
|
|
fibonacci str cvs
|
|
str show
|
|
pop
|
|
} for
|
|
|
|
showpage
|