From 1e7d79de8b34aca4bf0f63d3822dd0b018356038 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 29 Jan 2009 17:43:10 +0100 Subject: [PATCH] Make full_adder simpler. --- Adders.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Adders.hs b/Adders.hs index 03f0410..71d38dc 100644 --- a/Adders.hs +++ b/Adders.hs @@ -42,8 +42,9 @@ half_adder (a, b) = full_adder :: (Bit, Bit, Bit) -> (Bit, Bit) full_adder (a, b, cin) = (s, c) where - s = a `hwxor` b `hwxor` cin - c = a `hwand` b `hwor` (cin `hwand` (a `hwxor` b)) + x = a `hwxor` b + s = x `hwxor` cin + c = a `hwand` b `hwor` (cin `hwand` x) -- Four bit adder -- Explicit version -- 2.30.2