RosettaCodeData/Task/Closures-Value-capture/F-Sharp/closures-value-capture-3.fs

6 lines
163 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
[<EntryPoint>]
let main argv =
let fs = List.mapi (fun i x -> fun () -> i*i) (List.replicate 10 None)
do List.iter (fun f -> printfn "%d" <| f()) fs
0