Fractran: Difference between revisions
m
→{{header|Julia}}
Line 2,731:
iterate(f::Fractran, i = f.i₀) =
for r in f.rs
if iszero(i % r.den) # faster than isinteger(i*r)
i = i ÷ r.den * r.num
return (i, i)
Line 2,751:
# Output
println("First 25 iterations of FRACTRAN program 'primes':\n2 ",
join(
println("\nWatch the first 30 primes dropping out within seconds:")
| |||