Rosetta Code

Variadic fixed-point combinator: Difference between revisions

Page Discussion

Variadic fixed-point combinator (view source)

Revision as of 04:06, 4 March 2024

151 bytes removed ,  3 months ago
m
→‎{{header|Julia}}
(julia example)
Line 75:
 
even_odd_fix = [
(f) -> (n) -> n == 0 || f[begin+1]()(n - 1),
(f) -> (n) -> n =!= 0 ||&& f[begin+1]()(n - 1),
end,
(f) -> begin
(n) -> n != 0 && f[begin]()(n - 1)▼
end,
]
 
collatz_fix = [
(f) -> begin(n, d) -> n == 1 ? d : f[isodd(n)+2]()(n, d + 1),
(f) -> (n, d) -> n == 1 ? d : f[isodd(n)+2begin]()(n ÷ 2, d + 1),
▲ (nf) -> (n, !=d) 0 &&-> f[begin]()(3 * n -+ 1, d),
end,
(f) -> begin
(n, d) -> f[begin]()(n ÷ 2, d)
end,
(f) -> begin
(n, d) -> f[begin]()(3 * n + 1, d)
end,
]
 
Line 105 ⟶ 95:
end
end
 
</syntaxhighlight>{{out}}
<pre>
Wherrera
4,105

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/361161"