Anonymous user
Proper divisors: Difference between revisions
→{{header|F#}}
Line 1,218:
[1..10] |> List.iter (propDivDat >> show)
// use a sequence: we don't really need to hold this data, just
Seq.init 20000 ( ((+) 1) >> propDivDat)
|> Seq.fold (fun a b ->match a,b with | (_,c1,_),(_,c2,_) when c2 > c1 -> b | _-> a) (0,0,[])
| |||