9 lines
167 B
Text
9 lines
167 B
Text
$ENTRY Go {
|
|
= <Prout 'A(3,9) = ' <A 3 9>>;
|
|
};
|
|
|
|
A {
|
|
0 s.N = <+ s.N 1>;
|
|
s.M 0 = <A <- s.M 1> 1>;
|
|
s.M s.N = <A <- s.M 1> <A s.M <- s.N 1>>>;
|
|
};
|