12 lines
190 B
Text
12 lines
190 B
Text
|
Prototype.i fun(x.i)
|
||
|
|
|
||
|
|
Procedure.i quark(z.i)
|
||
|
|
Debug "Quark "+Str(z) : ProcedureReturn z-1
|
||
|
|
EndProcedure
|
||
|
|
|
||
|
|
Procedure rep(q.fun,n.i)
|
||
|
|
Repeat : n=q(n) : Until n=0
|
||
|
|
EndProcedure
|
||
|
|
|
||
|
|
rep(@quark(),3)
|