Pārlūkot izejas kodu

Create an custom 'and' opeartor

With pattern matching
DricomDragon 5 gadi atpakaļ
vecāks
revīzija
1e4130bab9
1 mainītis faili ar 4 papildinājumiem un 0 dzēšanām
  1. 4 0
      logic.hs

+ 4 - 0
logic.hs

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