5 lines
151 B
Plaintext
5 lines
151 B
Plaintext
|
type magnitude is Small | Large // See variant types
|
||
|
|
|
||
|
|
function compare (const n : nat) : magnitude is
|
||
|
|
if n < 10n then Small (Unit) else Large (Unit)
|