diff options
Diffstat (limited to 'gen/src/bool.erl')
-rw-r--r-- | gen/src/bool.erl | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/gen/src/bool.erl b/gen/src/bool.erl new file mode 100644 index 0000000..e4e1108 --- /dev/null +++ b/gen/src/bool.erl @@ -0,0 +1,40 @@ +-module(bool). +-compile(no_auto_import). + +-export([negate/1, max/2, min/2, to_int/1]). + +negate(Bool) -> + case Bool of + true -> + false; + + false -> + true + end. + +max(A, B) -> + case A of + true -> + true; + + false -> + B + end. + +min(A, B) -> + case A of + false -> + false; + + true -> + B + end. + +to_int(Bool) -> + case Bool of + false -> + 0; + + true -> + 1 + end. |