Skip to content

U
uva
Commit 3647b016 authored by Sander Mathijs van Veen's avatar Sander Mathijs van Veen
Browse files
Options

funcprog: Minor improvement in assignment 5.3.

parent f2739c4d
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 3 deletions
funcprog/week2/ass5_3.ml
View file @ 3647b016
......@@ -3,9 +3,11 @@
* recursively until a single digit is obtained.
*)
let rec digitRoot ?(sum=0) number = match number with
_ when number < 10 -> (sum + number)
| _ -> (digitRoot (digitRoot ~sum:(sum + (number mod 10)) (number / 10)))
let rec digitRoot ?(sum=0) number =
let res = match number with
| _ when number < 10 -> (sum + number)
| _ -> (digitRoot ~sum:(sum + (number mod 10)) (number / 10))
in if res < 10 then res else digitRoot res
;;
let test_digitRoot input =
......@@ -20,4 +22,6 @@ test_digitRoot 65536;; (* = 7 *)
test_digitRoot 12345678;; (* = 9 *)
test_digitRoot 18273645;; (* = 9 *)
test_digitRoot 123456789;; (* = 9 *)
test_digitRoot 1234567890123456789;; (* = 9 *)
test_digitRoot 999999999998;; (* = 8 *)
test_digitRoot 5674;; (* = 4 *)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment