6 lines
134 B
Text
6 lines
134 B
Text
sim_rec(N,F) = S =>
|
|
sim_rec(N,N,F,0,S).
|
|
sim_rec(0,_N,_F,S,S).
|
|
sim_rec(C,N,F,S0,S) :-
|
|
S1 = S0 + apply(F),
|
|
sim_rec(C-1,N,F,S1,S).
|