"if a then b else not b" truth table

Run Settings
Language	Haskell
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
module Main (main) where
import Data.Foldable (traverse_)
main :: IO ()
main = traverse_ print $
    [ (a, b, if a then b else not b)
    | a <- [False, True]
    , b <- [False, True] ]
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	rightfold
Created	8 years ago
Modified	8 years ago
Visibility	Public