1
2
3
4
5
let ref f = function
        | [] -> "vide"
        | _ -> "pas vide"
 
let () = print_endline (f [])

1
2
3
4
5
let ref f = function
        | [] -> "vide"
        | _ -> "pas vide"
 
let () = print_endline (f [])

1
2
3
let ref f = function
        | [] -> "vide"
        | _ -> "pas vide"

1
let add : (int -> int -> int) = fun a b -> a + b;;

1
2
3
4
5
6
while true do
 let n = read_int () in
 if n = 42 then exit 0;
 print_int n;
 print_newline ()
done;;

1
2
3
4
5
6
7
8
9
import java.io.*;
 
class GetUserInput{
 
    public static void main(String[] args){
 
        //the data that will be entered by the user
        String name; 
        int a;
 ...

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
print_bool b = ((3 = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
print_bool ((3 = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
((x = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
# ((false = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
# ((x = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
# ((x = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let y : bool = true in not y;;
return ((x = 5) = y);;

1
2
3
4
let x : int = 3;;
let y : bool = false;;
let x : int = 1;;
((x = 5) = y);;

1
2
3
4
5
6
while true do
 let n = read_int () in
 if n = 42 then exit 0;
 print_int n;
 print_newline ()
done;;

1
2
3
4
5
let x = 5;;
 
let func g = g*g;;
 
func x;;

1
2
3
let x=3+4;;
 
 

1
3 * 4;;

1
2
3
4
5
6
7
8
type tree = L of int | T of tree | B of tree * tree;;
 
 
let rec suma t = 
        match t with
                L v -> v
                | T t2 -> suma t2
                | B (b1, b2) -> suma b1 + suma b2;;
 ...

1
2
3
4
5
6
7
8
type tree = L of int | T of tree | B of tree * tree;;
 
 
let rec suma t = 
        match t with
                L v -> v
                | T t2 -> suma t2
                | B (b1, b2) -> suma b1 + suma b2;;
 ...

1
2
3
4
5
6
7
8
9
let tv = [|0.0;0.0;0.0;0.0;1.0;2.0;3.0;4.0;5.0;5.0;5.0;5.0|];;
 
let checkIsIn (t:float) (i:int) (k:int)= 
    if t >= tv.(i) && t < tv.(i+k) then
        1.0
    else
        0.0;;
 
let calcPart1 (i:int) (k:int) (t:float) =
 ...

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

1
let n = {} + {}

1
let n = [] + []

1
let n = [] + {}

1
let n = {} + {}

1
let n = {} + []

1
let n = [] + []

1
let n = 1 + []

1
let n = 1 +