12 lines
206 B
Text
12 lines
206 B
Text
$ENTRY Go {
|
|
= <Prout <Repeat 18 Fibonacci 1 1>>
|
|
} ;
|
|
|
|
Repeat {
|
|
0 s.F e.X = e.X;
|
|
s.N s.F e.X = <Repeat <- s.N 1> s.F <Mu s.F e.X>>;
|
|
};
|
|
|
|
Fibonacci {
|
|
e.X s.A s.B = e.X s.A s.B <+ s.A s.B>;
|
|
};
|