Copyright | Copyright (C) 2023 Yoo Chung |
---|---|

License | GPL-3.0-or-later |

Maintainer | dev@chungyc.org |

Safe Haskell | Safe-Inferred |

Language | GHC2021 |

Some solutions to Problems.P46 of Ninety-Nine Haskell Problems.

# Documentation

type BoolFunc = Bool -> Bool -> Bool Source #

Define boolean functions `and'`

, `or'`

, `nand'`

,
`nor'`

, `xor'`

, `impl'`

, and `equ'`

,
which succeed or fail according to the result of their respective operations;
e.g., `(and' a b)`

is true if and only if both `a`

and `b`

are true.
Do not use the builtin boolean operators.

A logical expression in two variables can then be written as in the following example:

\a b -> and' (or' a b) (nand' a b)

Write a function `table`

which returns
the truth table of a given logical expression in two variables.

### Notes

There is no technical reason to define the type synonym `BoolFunc`

.
However, it is a good place to explain the entire problem
without talking about writing truth table functions first,
especially for inclusion in the documentation for Problems.

The original problem for Haskell
required that the truth table be printed:
*"Now, write a predicate table/3 which prints the truth table of a given logical expression in two variables."*
It was changed here to return a list of boolean tuples, because the requirement
for I/O seemed uninteresting in the context of the rest of the problem.

Documentation for the expected semantics for each boolean function was added,
and the example for `table`

was modified to avoid sensitivity to order.

table :: BoolFunc -> [(Bool, Bool, Bool)] Source #

Truth tables for logical expressions with two operands.

# Boolean functions

Logical conjunction.
I.e., `(and' a b)`

is true if and only if both `a`

and `b`

are true.

Logical disjuncton.
I.e., `(or' a b)`

is true if and only if one or both of `a`

and `b`

are true.

Logical alternative denial.
I.e., `(nand' a b)`

is true if and only if `(and' a b)`

is false.

Logical joint denial.
I.e., `(nor' a b)`

is true if and only if `(or' a b)`

is false.

Logical exclusive disjunction.
I.e., `(xor' a b)`

is true if and only if exactly one of `a`

and `b`

is true.

Logical implication.
I.e., `(impl' a b)`

being true means `b`

must be true if `a`

is true.
If `a`

is false, there is no implication as to what `b`

should be.

Logical equivalence.
I.e., `(equ' a b)`

being true means `a`

is true if and only if `b`

is true.