1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
  for i = 0 to n1-1 do
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
  for i = 0 to n1-1 do
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
  for i = 0 to n1-1 do
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
let s1 = read_line();;
let n1 = read_int();;
let s2 = read_line();;
let n2 = read_int();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
9
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
 ...

1
2
3
4
5
6
7
8
9
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
 ...

1
2
3
4
5
6
7
8
9
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 
let rec fill_matrix n1 s1 n2 s2 matrix = 
 ...

1
2
3
4
5
6
7
8
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let matrix = Array.make_matrix n1 n2 0;;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let maior = ref 0;;
let i1 = ref 0;;
let j1 = ref 0;;
 
let read_input n1 s1 n2 s2= 
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
let maior = ref 0;;
 
let read_input n1 s1 n2 s2= 
  let matrix = Array.make_matrix n1 n2 0 in
(n1,s1,n2,s2,matrix)
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
 
let read_input n1 s1 n2 s2 = 
  let matrix = Array.make_matrix n1 n2 0 in
(n1,s1,n2,s2,matrix)
;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
 
let read_input n1 s1 n2 s2 = 
  let matrix = Array.make_matrix n1 n2 0 in
(n1,s1,n2,s2,matrix)
;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
 
let read_input(n1 s1 n2 s2)= 
  let matrix = Array.make_matrix n1 n2 0 in
(n1,s1,n2,s2,matrix)
;;
 ...

1
2
3
4
5
6
7
8
9
let n1 = read_int();;
let s1 = read_line();;
let n2 = read_int();;
let s2 = read_line();;
 
let read_input( n1 s1 n2 s2)= 
  let matrix = Array.make_matrix n1 n2 0 in
(n1,s1,n2,s2,matrix)
;;
 ...

1
2
3
4
5
6
7
8
let read_input () = 
  let n1 = read_int() in
  let s1 = read_line() in
  let n2 = read_int() in
  let s2 = read_line() in
  let matrix = Array.make_matrix n1 n2 0 in
(n1,s1,n2,s2,matrix)
;;
 ...

1
function ( x1 , x2 ) -> x1 + x2 ;;

1
2
3
4
5
6
7
8
9
let n1=read_int();;
let s1=read_line();;
let n2=read_int();;
let s2=read_line();;
let i=0 mutable;;
let j=0 mutable;;
let cont=0 mutable;;
let maiorseq=0 mutable;;
let indice=0;;
 ...

1
2
3
4
5
6
7
8
9
let n1=read_int();;
let s1=read_line();;
let n2=read_int();;
let s2=read_line();;
let i=0 mutant;
let j=0 mutant;
let cont=0 mutant;
let maiorseq=0 mutant;
let indice=0;
 ...

1
 

1
2
3
4
5
6
7
8
9
let next_int () = Scanf.bscanf Scanf.Scanning.stdib " %d" (fun s -> s) in
let rec solve nn n k pos a dp = 
  if pos < nn && a.(pos) = -1 then solve nn n k (pos+1) a dp
  else match n, k, pos with
  | _, k, _ when k < 0 -> max_int / 2 
  | _, 0, _ -> 0
  | 0, _, _ -> max_int / 2 
  | _, _, pos when pos = nn -> max_int / 2 
  | _, _, _ when dp.(n).(k).(pos) > 0 -> dp.(n).(k).(pos)
 ...

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
let x = if true then 3 else 1/0 in x;;

1
if true then 2 else 1/0;;

1
2
3
4
5
6
7
8
9
type name =
          Name  of string
        | Int  of int
        | Bool of bool;;
type constant = { name  : name; constr : bool; arity : int}
type var = string
type expr =
        | Var of var
        | Const of constant
 ...