Hailstone sequence: Difference between revisions
m
→{{header|Bruijn}}
(Add bruijn) |
|||
Line 2,232:
below-100000 [0 : ∀(hailstone 0)] <$> seq
seq take (+99999) (iterate ++‣ (+
main [head (max-by (M.compare ⋔ tail) below-100000)]
|