5 lines
124 B
Plaintext
5 lines
124 B
Plaintext
type magnitude = Small | Large // See variant types
|
|
|
|
let compare (n : nat) : magnitude =
|
|
if n < 10n then Small else Large
|