From 88c3b6b694f37a4d74a095117370279f6483cf9e Mon Sep 17 00:00:00 2001 From: Igor Pashev Date: Wed, 23 Nov 2022 22:31:05 +0200 Subject: Update OCaml --- gcd.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcd.ml b/gcd.ml index 85d64d5..38b44b1 100644 --- a/gcd.ml +++ b/gcd.ml @@ -27,7 +27,9 @@ let rec gcd a b = 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) ;; +if args <> [] then begin + let nums = List.map int_of_string args + in Printf.printf "%d\n" (gcdn nums) +end ;; -- cgit v1.2.3