let maxCollazSeqLength (x:int64,y:int64) = | |
let x',y' = System.Math.Min(x,y), System.Math.Max(x,y) | |
seq[x'..y'] | |
|> Seq.fold (fun max x -> | |
let r = collatzSeqLength x | |
if r > max then r else max) 0L |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment