blob: 85d64d5782708c8cbae2e01e3aebd21e30d6a415 (
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
|
(*
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) ;;
let nums = List.map int_of_string args ;;
Printf.printf "%d\n" (gcdn nums) ;;
|