Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // Signature:
- List.forall : ('T -> bool) -> 'T list -> bool
- // Usage:
- List.forall predicate list
- let isAllZeroes list = List.forall (fun elem -> elem = 0.0) list
- printfn "%b" (isAllZeroes [0.0; 0.0])
- printfn "%b" (isAllZeroes [0.0; 1.0])
- // Signature:
- List.map : ('T -> 'U) -> 'T list -> 'U list
- // Usage:
- List.map mapping list
- let data = [1;2;3;4]
- let r1 = data |> List.map (fun x -> x + 1)
- printfn "Adding '1' using map = %A" r1
- let r2 = data |> List.map string
- printfn "Converting to strings using map = %A" r2
- let r3 = data |> List.map (fun x -> (x,x))
- printfn "Tupling up using map = %A" r3
- #Adding '1' using map = [2; 3; 4; 5]
- #Converting to strings using map = ["1"; "2"; "3"; "4"]
- #Tupling up using map = [(1, 1); (2, 2); (3, 3); (4, 4)]
- let data = [(1,1,2001); (2,2,2004); (6,17,2009)]
- let list1 =
- data |> List.map (fun (a,b,c) ->
- let date = new System.DateTime(c, a, b)
- date.ToString("F"))
- for i in list1 do printfn "%A" i
- #"Monday, January 01, 2001 12:00:00 AM"
- #"Monday, February 02, 2004 12:00:00 AM"
- #"Wednesday, June 17, 2009 12:00:00 AM"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement