Browse Source

Create an custom 'and' opeartor

With pattern matching
DricomDragon 5 years ago
parent
commit
1e4130bab9
1 changed files with 4 additions and 0 deletions
  1. 4 0
      logic.hs

+ 4 - 0
logic.hs

@@ -0,0 +1,4 @@
+myAnd b1 b2 = 
+	case (b1, b2) of
+	(True, True) -> True
+	(_, _) -> False