TerpreT benchmark #1: invert

invert :: [Bool] -> [Bool]
-- testing 4 combinations of argument values
-- pruning with 41/51 rules
-- 2 candidates of size 1
-- 0 candidates of size 2
-- 4 candidates of size 3
-- 0 candidates of size 4
-- 11 candidates of size 5
-- 5 candidates of size 6
-- tested 18 candidates
invert []  =  []
invert (p:ps)  =  not p:invert ps

TerpreT benchmark #2: prepend zero

prependZero :: [Bool] -> [Bool]
-- testing 3 combinations of argument values
-- pruning with 41/51 rules
-- 2 candidates of size 1
-- 0 candidates of size 2
-- 4 candidates of size 3
-- tested 3 candidates
prependZero ps  =  False:ps

TerpreT benchmark #3: binary decrement

decrement :: [Bool] -> [Bool]
-- testing 3 combinations of argument values
-- pruning with 41/51 rules
-- 2 candidates of size 1
-- 0 candidates of size 2
-- 4 candidates of size 3
-- 0 candidates of size 4
-- 11 candidates of size 5
-- 5 candidates of size 6
-- 31 candidates of size 7
-- 52 candidates of size 8
-- 128 candidates of size 9
-- tested 154 candidates
decrement []  =  []
decrement (p:ps)  =  not p:(if p then ps else decrement ps)

TerpreT benchmark #4: controlled shift

cshift :: (Bool,Bool,Bool) -> (Bool,Bool,Bool)
-- testing 4 combinations of argument values
-- pruning with 41/51 rules
-- reasoning produced 2 incorrect properties, please re-run with more tests for faster results
-- 1 candidates of size 1
-- 0 candidates of size 2
-- 0 candidates of size 3
-- 10 candidates of size 4
-- 0 candidates of size 5
-- 0 candidates of size 6
-- 40 candidates of size 7
-- 0 candidates of size 8
-- 0 candidates of size 9
-- 360 candidates of size 10
-- 4 candidates of size 11
-- tested 412 candidates
cshift (p,q,r)  =  if p
                   then (p,r,q)
                   else (p,q,r)

cshift :: Bool -> Bool -> Bool -> (Bool,Bool,Bool)
-- testing 4 combinations of argument values
-- pruning with 41/51 rules
-- reasoning produced 2 incorrect properties, please re-run with more tests for faster results
-- 0 candidates of size 1
-- 0 candidates of size 2
-- 0 candidates of size 3
-- 125 candidates of size 4
-- 225 candidates of size 5
-- 585 candidates of size 6
-- 1242 candidates of size 7
-- 3088 candidates of size 8
-- tested 5265 candidates
cshift False p q  =  (False,p,q)
cshift True p q  =  (True,q,p)

TerpreT benchmark #5: full adder

fadder :: Bool -> Bool -> Bool -> (Bool,Bool)
-- testing 8 combinations of argument values
-- pruning with 18/22 rules
-- 0 candidates of size 1
-- 0 candidates of size 2
-- 9 candidates of size 3
-- 18 candidates of size 4
-- 27 candidates of size 5
-- 36 candidates of size 6
-- 45 candidates of size 7
-- 271 candidates of size 8
-- tested 406 candidates
fadder False False False  =  (False,False)
fadder False False True  =  (False,True)
fadder False True False  =  (False,True)
fadder False True True  =  (True,False)
fadder True False False  =  (False,True)
fadder True False True  =  (True,False)
fadder True True False  =  (True,False)
fadder True True True  =  (True,True)

TerpreT benchmark #6: 2-bit adder

adder2 :: (Bool,Bool) -> (Bool,Bool) -> (Bool,Bool,Bool)
-- testing 5 combinations of argument values
-- pruning with 74/92 rules
-- reasoning produced 2 incorrect properties, please re-run with more tests for faster results
-- 0 candidates of size 1
-- 0 candidates of size 2
-- 0 candidates of size 3
-- 8 candidates of size 4
-- 0 candidates of size 5
-- 0 candidates of size 6
-- tested 8 candidates
cannot conjure

TerpreT benchmark #7: access

access :: [A] -> Int -> A
-- testing 5 combinations of argument values
-- pruning with 0/0 rules
-- 0 candidates of size 1
-- 0 candidates of size 2
-- 1 candidates of size 3
-- tested 1 candidates
xs `access` x  =  xs !! x

access :: [A] -> Int -> A
-- testing 5 combinations of argument values
-- pruning with 4/7 rules
-- 1 candidates of size 1
-- 0 candidates of size 2
-- 0 candidates of size 3
-- 0 candidates of size 4
-- 3 candidates of size 5
-- 0 candidates of size 6
-- 3 candidates of size 7
-- tested 5 candidates
[] `access` x  =  undefined
(x:xs) `access` 0  =  x
(x:xs) `access` y  =  xs `access` (y - 1)

TerpreT benchmark #8: decrement elements

decrelements :: [Int] -> [Int]
-- testing 3 combinations of argument values
-- pruning with 3/23 rules
-- 2 candidates of size 1
-- 0 candidates of size 2
-- 2 candidates of size 3
-- 1 candidates of size 4
-- 6 candidates of size 5
-- 6 candidates of size 6
-- 19 candidates of size 7
-- tested 19 candidates
decrelements []  =  []
decrelements (x:xs)  =  x - 1:decrelements xs

decrelements :: [Int] -> [Int]
-- testing 3 combinations of argument values
-- pruning with 5/26 rules
-- 2 candidates of size 1
-- 0 candidates of size 2
-- 2 candidates of size 3
-- 2 candidates of size 4
-- tested 6 candidates
decrelements xs  =  map (subtract 1) xs

