- let x = 2 ;;
val x : int = 2
- let x = 2 + 3 - 4.0 ;;
...
- let x = 2 + 3 ;;
...
- let x = "a" ;;
...
- let x = (x,3) ;;
...
- let y = ((snd x)^"b" , 2) ;;
...
- let y = ((fst x)^"c" , 4) ;;
...
- let z = if (x = y) then (snd x) else (snd y) ;;
...
- type myrecord = {f1 : int; f2 : string ; f3 : int} ;;
- let a = {f1 = x; f2 = (fst y); f3 = z} ;;
...
- let b = z::(snd y)::[] ;;
...
- let c = (x;y;z) ;;
...
- let c = (x,y,z) ;;
...
- let m = if (snd x) = (snd y) then b else [] ;;
...
- let n = if (1 > 2) then ["a";"b"] else [] ;;
...
- let o = if (m = n) then 2 else 3 ;;
...