diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2022-11-23 22:31:05 +0200 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2022-11-23 22:31:05 +0200 |
commit | 88c3b6b694f37a4d74a095117370279f6483cf9e (patch) | |
tree | caf69a7456ebda3bc7575552959729a232d46252 | |
parent | 181758e5e739b4aedf9ea1bb256d9bde09d55caf (diff) | |
download | gcd-88c3b6b694f37a4d74a095117370279f6483cf9e.tar.gz |
Update OCaml
-rw-r--r-- | gcd.ml | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -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 ;; |