diff options
| -rw-r--r-- | src/gleam/bool.gleam | 25 | ||||
| -rw-r--r-- | test/gleam/bool_test.gleam | 14 |
2 files changed, 39 insertions, 0 deletions
diff --git a/src/gleam/bool.gleam b/src/gleam/bool.gleam index 707d295..0aa9939 100644 --- a/src/gleam/bool.gleam +++ b/src/gleam/bool.gleam @@ -55,6 +55,31 @@ pub fn nor(a: Bool, b: Bool) -> Bool { } } +/// Returns the nand of two bools +/// +/// ## Examples +/// +/// > nor(False, False) +/// True +/// +/// > nor(False, True) +/// True +/// +/// > nor(True, False) +/// True +/// +/// > nor(True, True) +/// False +/// +pub fn nand(a: Bool, b: Bool) -> Bool { + case a, b { + False, False -> True + False, True -> True + True, False -> True + True, True -> False + } +} + /// Returns the exclusive or of two bools /// /// ## Examples diff --git a/test/gleam/bool_test.gleam b/test/gleam/bool_test.gleam index ad47ea2..3edea25 100644 --- a/test/gleam/bool_test.gleam +++ b/test/gleam/bool_test.gleam @@ -24,6 +24,20 @@ pub fn nor_test() { |> should.be_false } +pub fn nand_test() { + bool.nand(False, False) + |> should.be_true + + bool.nand(False, True) + |> should.be_true + + bool.nand(True, False) + |> should.be_true + + bool.nand(True, True) + |> should.be_false +} + pub fn exclusive_or_test() { bool.exclusive_or(True, True) |> should.be_false |