giles
acc8b01ddb
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 47s
Defines a user exception with int payload:
exception Negative of int
let safe_sqrt n =
if n < 0 then raise (Negative n)
else <integer sqrt via while loop>
let try_sqrt n =
try safe_sqrt n with
| Negative x -> -x
try_sqrt 16 -> 4
try_sqrt 25 -> 5
try_sqrt -7 -> 7 (handler returns -(-7) = 7)
try_sqrt 100 -> 10
sum -> 26
Tests exception declaration with int payload, raise with carry, and
try-with arm pattern-matching the constructor with payload binding.
56 baseline programs total.
17 lines
282 B
OCaml
17 lines
282 B
OCaml
exception Negative of int
|
|
|
|
let safe_sqrt n =
|
|
if n < 0 then raise (Negative n)
|
|
else
|
|
let g = ref 1 in
|
|
while !g * !g < n do g := !g + 1 done;
|
|
!g
|
|
|
|
let try_sqrt n =
|
|
try safe_sqrt n with
|
|
| Negative x -> -x
|
|
|
|
;;
|
|
|
|
try_sqrt 16 + try_sqrt 25 + try_sqrt (-7) + try_sqrt 100
|