Add bool.nand

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