RosettaCodeData/Task/Rare-numbers/F-Sharp/rare-numbers-2.fs
2023-07-01 13:44:08 -04:00

7 lines
211 B
FSharp

let test n=
let t = System.Diagnostics.Stopwatch.StartNew()
for n in (rareNums n) do printfn "%A" n
t.Stop()
printfn "Elapsed Time: %d ms for length %d" t.ElapsedMilliseconds n
[2..17] |> Seq.iter test