X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Adders.hs;h=d4dbbf8c99d851b5c7cf7b49222ca994b42c8878;hb=eb3177ed5e53fd27bc64a45584ab646545c27e5f;hp=2ee1de69534f144ab6f41d627fdfc7ce950e4f05;hpb=8821af4a0d2b66f1ddc8fc5ab344a886a40c084f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/Adders.hs b/Adders.hs index 2ee1de6..d4dbbf8 100644 --- a/Adders.hs +++ b/Adders.hs @@ -165,6 +165,16 @@ highordtest = \x -> in \c d -> op' d c +highordtest2 = \a b -> + case a of + High -> \c d -> d + Low -> let + op' :: Bit -> Bit -> Bit + op' = case b of + High -> \c d -> d + Low -> \c d -> c + in + \c d -> op' d c -- Four bit adder, using the continous adder below -- [a] -> [b] -> ([s], cout) --con_adder_4 as bs =