summaryrefslogtreecommitdiff
path: root/gcd.ml
blob: 38b44b1d6ce9b11d3265b8a418309c31cbcc0dd2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(*

OCaml: http://ocaml.org/

Usage:

  $ ocamlopt gcd.ml -o gcd-ml
  $ ./gcd-ml 11 22 44 121
  11

or:

  $ ocaml gcd.ml 11 22 44 121
  11

*)


(* GCD of two numbers *)
let rec gcd a b =
  match b with
  | 0 -> a
  | b -> gcd b (a mod b)
;;

(* GCD of several numbers *)
let gcdn = List.fold_left gcd 0 ;;

let args = List.tl (Array.to_list Sys.argv) ;;

if args <> [] then begin
  let nums = List.map int_of_string args
  in Printf.printf "%d\n" (gcdn nums)
end ;;