diff options
Diffstat (limited to 'examples/bool.hs')
-rw-r--r-- | examples/bool.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/bool.hs b/examples/bool.hs index 278e9f2..679b8bf 100644 --- a/examples/bool.hs +++ b/examples/bool.hs | |||
@@ -22,6 +22,9 @@ imp a b = no a .||. b | |||
22 | 22 | ||
23 | taut x = minElement x == 1 | 23 | taut x = minElement x == 1 |
24 | 24 | ||
25 | minEvery a b = cond a b a a b | ||
26 | maxEvery a b = cond a b b b a | ||
27 | |||
25 | -- examples | 28 | -- examples |
26 | 29 | ||
27 | clip a b x = cond y b y y b where y = cond x a a x x | 30 | clip a b x = cond y b y y b where y = cond x a a x x |