Advertisement
Guest User

Untitled

a guest
Jan 28th, 2014
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.96 KB | None | 0 0
  1. open System
  2.  
  3. let num = 42
  4. let rnd = new Random()
  5. let str = "Hellow world"
  6.  
  7. /// Adds one
  8. let addOne number =
  9.     printfn "Adding..."
  10.     number + 1.0
  11.  
  12. let nextRandom (rnd:Random) =
  13.     rnd.Next()
  14.  
  15. // this is a function
  16. let sayHello () =
  17.     let msg = "Hello"
  18.     let msg = msg + " World"
  19.     let msg = msg + "!"
  20.  
  21.     printfn "%s" msg
  22.  
  23. // this is a variable    
  24. let sayHello2 =
  25.     let msg = "Hello"
  26.     let msg = msg + " World"
  27.     let msg = msg + "!"
  28.  
  29.     printfn "%s" msg
  30.  
  31.  
  32.  
  33. type Person =
  34.     {Age:int}
  35.     static member (*) (p:Person, n:int) =
  36.         { Age = p.Age * n}
  37.  
  38. let phil = ("Phil", 21)
  39.  
  40. let inline square x = x * x
  41.  
  42.  
  43. // Tuple<T, int> IncrementAge<T>(Tuple <T, int>)
  44. let incrementAge person =
  45.     let name, age = person
  46.     (name, age + 1)
  47.  
  48. let incrementAgeSeparate (name) age =
  49.     (name, age + 1)
  50.  
  51. let incrementAgeTuple (name, age) =
  52.     (name, age + 1)
  53.  
  54. incrementAgeTuple phil
  55.  
  56. incrementAgeSeparate "Thomas" 12
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement