10 lines
167 B
Text
10 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>>>;
|
||
|
|
};
|