9 lines
218 B
Plaintext
9 lines
218 B
Plaintext
let succeed = fun x -> print 1 in
|
|
let fail = fun x -> print 0 in
|
|
|
|
let true = fun x -> 0 in
|
|
let false = fun x -> 1 in
|
|
|
|
let nothing = ifzero true 0 then succeed 0 else fail 0 in
|
|
ifzero false 0 then fail 0 else succeed 0
|