9 lines
275 B
Text
9 lines
275 B
Text
fcn subleq(a,a1,a2,etc){ a=vm.arglist.copy();
|
|
i:=0;
|
|
while(i>=0){ A,B,C:=a[i,3];
|
|
if(A==-1) a[B]=ask("::").toInt(); // or File.stdin.read(1)[0] // int
|
|
else if(B==-1) print(a[A].toChar());
|
|
else if( (a[B]-=a[A]) <=0) { i=C; continue; }
|
|
i+=3;
|
|
}
|
|
}
|