aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Closures-Value-capture/F-Sharp/closures-value-capture-1.fs Normal file
View file

@ -0,0 +1,5 @@
[<EntryPoint>]
let main argv =
let fs = List.init 10 (fun i -> fun () -> i*i)
do List.iter (fun f -> printfn "%d" <| f()) fs
0

5
Task/Closures-Value-capture/F-Sharp/closures-value-capture-2.fs Normal file
View file

@ -0,0 +1,5 @@
[<EntryPoint>]
let main argv =
let fs = List.map (fun i -> fun () -> i*i) [0..9]
do List.iter (fun f -> printfn "%d" <| f()) fs
0

5
Task/Closures-Value-capture/F-Sharp/closures-value-capture-3.fs Normal file
View file

@ -0,0 +1,5 @@
[<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

5
Task/Closures-Value-capture/F-Sharp/closures-value-capture-4.fs Normal file
View file

@ -0,0 +1,5 @@
[<EntryPoint>]
let main argv =
let fs = Seq.initInfinite (fun i -> fun () -> i*i)
do Seq.iter (fun f -> printfn "%d" <| f()) (Seq.take 10 fs)
0