Variadic fixed-point combinator: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: be) |
m (→{{header|Phix}}: f3->f*6) |
||
Line 143: | Line 143: | ||
end function |
end function |
||
function c1(sequence |
function c1(sequence f, integer n, d) |
||
if n=1 then return d end if |
if n=1 then return d end if |
||
return call_lambda( |
return call_lambda(f[2+odd(n)],{n,d+1}) |
||
end function |
end function |
||
function c2(sequence |
function c2(sequence f, integer n, d) |
||
return call_lambda( |
return call_lambda(f[1],{floor(n/2),d}) |
||
end function |
end function |
||
function c3(sequence |
function c3(sequence f, integer n, d) |
||
return call_lambda( |
return call_lambda(f[1],{3*n+1,d}) |
||
end function |
end function |
||