1
2
3
4
5
6
let rec fib n =
    match n with
    | 0 | 1 -> n
    | _ -> fib (n - 1) + fib (n - 2)
 
printf "%d" f 5

1
2
3
4
5
6
let rec fib n =
    match n with
    | 0 | 1 -> 1
    | _ -> fib (n - 1) + fib (n - 2)
 
printf "%d" f 5

1
2
3
4
5
6
7
8
9
#indent "off"
 
let rec f x = 
        match x with
        | 1 -> 1
        | 2 -> 1
        | _ -> f (x - 1) * f (x - 2)
 
let z = f 5

1
2
3
4
5
6
7
8
let rec f x = 
        match x with
        | 1 -> 1
        | 2 -> 1
        | _ -> f (x - 1) * f (x - 2)
 
let z = f 5
printf "F(5) = %d" z

1
2
3
let f x = x + 1
let z = f 10
printf "%d" z

1
2
3
4
5
6
let divrem dividend divisor =
  let quotient = dividend / divisor in
  quotient, dividend - quotient * divisor
 
let q, r = divrem 42 5 in
printfn "42 = %d * 5 + %d" q r

1
2
let x:double = 3.14 * 90 / (180.0)
printf "%d%u" x

1
2
let x:double = 3.14 * 90 / (180.0)
print "%d" x

1
2
let x:double = 3.14 * 90 / (180.0)
print "%f" x

1
printfn "%d" 3.14 * 90 / (180.0)

1
printf "%u" 3.14 * 90 / (180.0)

1
printf "%t" 3.14 * 90 / (180.0)

1
printfn "%f" 3.14 * 90 / (180.0)

1
printfn 3.14 * 90 / (180.0)

1
2
let Deg2Rad (a:double) = 3.14 * a / (180.0)
printfn "%d" Deg2Rad 90

1
2
3
let Deg2Rad (a:double) = 3.14 * a / (180.0)
 
printfn "%G" Deg2Rad 90

1
2
let Deg2Rad (a:double) = 3.14 * a / (180.0)
printf Deg2Rad(90)

1
 

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
4
5
6
7
8
9
let sierpinski =
  let rec loop down space = function
    0 -> down
  | n ->
    loop (List.map (fun x -> space + x + space) down
          @ List.map (fun x -> x + " " + x) down)
         (space + space)
         (n - 1)
  loop ["*"] " "
 ...

1
2
3
printfn "hello world"
let a = 4
printfn "%A" a

1
printfn "%A" ("łókasz".Split('а'))

1
printfn "%A" ("łókasz".Split('а'))

1
printfn "%A" ("łókasz".Split('а'))

1
printfn "%A" ("Карл у Клары украл кораллы".Split('а'))