5 lines
170 B
Text
5 lines
170 B
Text
cf::{[f g i];f::x;g::y;i::z;
|
|
f(0)+z{i::i-1;g(i+1)%f(i+1)+x}:*0}
|
|
cf({:[0=x;1;2]};{x;1};1000)
|
|
cf({:[0=x;2;x]};{:[x>1;x-1;x]};1000)
|
|
cf({:[0=x;3;6]};{((2*x)-1)^2};1000)
|