Removing lines with more than 80 characters in tests

This commit is contained in:
elvis
2025-01-26 22:07:53 +01:00
parent ca39024ee3
commit f175a6089d
4 changed files with 243 additions and 94 deletions

View File

@ -215,7 +215,10 @@ match get_result program with
(* Sum multiples of 3 and 5 program *)
let program =
"let rec sum n: int -> int = if n % 3 == 0 || n % 5 == 0 then n + sum (n - 1) else if n < 1 then 0 else sum (n - 1) in sum"
"let rec sum n: int -> int =
if n % 3 == 0 || n % 5 == 0
then n + sum (n - 1)
else if n < 1 then 0 else sum (n - 1) in sum"
;;
Printf.printf "Sum multiples of 3 and 5 program: ";