16 lines
373 B
Text
16 lines
373 B
Text
fcn A(k, x1, x2, x3, x4, x5){ // -->1,0,-2,0,1,0,1,-1,-10,-30,-67,-138
|
|
B:=CB(k, x1, x2, x3, x4, x5);
|
|
if(k <= 0) x4()+x5() else B.B();
|
|
}
|
|
|
|
foreach k in (12){
|
|
println("k=%2d A=%d".fmt(k, A(k, 1, -1, -1, 1, 0)))
|
|
}
|
|
|
|
class CB{ var k, x1, x2, x3, x4, x5;
|
|
fcn init{ k, x1, x2, x3, x4, x5 = vm.arglist; }
|
|
fcn B{
|
|
k= k - 1;
|
|
A(k, B, x1, x2, x3, x4);
|
|
}
|
|
}
|