Advertisement
Guest User

Untitled

a guest
Apr 28th, 2016
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 1.09 KB | None | 0 0
  1. // Signature:
  2. List.forall : ('T -> bool) -> 'T list -> bool
  3.  
  4. // Usage:
  5. List.forall predicate list
  6.  
  7. let isAllZeroes list = List.forall (fun elem -> elem = 0.0) list
  8. printfn "%b" (isAllZeroes [0.0; 0.0])
  9. printfn "%b" (isAllZeroes [0.0; 1.0])
  10.  
  11. // Signature:
  12. List.map : ('T -> 'U) -> 'T list -> 'U list
  13.  
  14. // Usage:
  15. List.map mapping list
  16.  
  17. let data = [1;2;3;4]
  18. let r1 = data |> List.map (fun x -> x + 1)
  19. printfn "Adding '1' using map = %A" r1
  20. let r2 = data |> List.map string
  21. printfn "Converting to strings using map = %A" r2
  22. let r3 = data |> List.map (fun x -> (x,x))
  23. printfn "Tupling up using map = %A" r3
  24.  
  25. #Adding '1' using map = [2; 3; 4; 5]
  26. #Converting to strings using map = ["1"; "2"; "3"; "4"]
  27. #Tupling up using map = [(1, 1); (2, 2); (3, 3); (4, 4)]
  28.  
  29. let data = [(1,1,2001); (2,2,2004); (6,17,2009)]
  30. let list1 =
  31.     data |> List.map (fun (a,b,c) ->
  32.         let date = new System.DateTime(c, a, b)
  33.         date.ToString("F"))
  34.  
  35. for i in list1 do printfn "%A" i
  36.  
  37. #"Monday, January 01, 2001 12:00:00 AM"
  38. #"Monday, February 02, 2004 12:00:00 AM"
  39. #"Wednesday, June 17, 2009 12:00:00 AM"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement