View difference between Paste ID: GcTcVuZj and Q3bmMPkg

 runTrafficLight1 :: [[Int]] -> IO ()
 runTrafficLight1 input = runAllInput input output
     where reset   = getbit input 0
           (g,a,r) = controller1 reset
           output  = [string "Input reset = ", bit reset,
                      string "  Output green = ", bit g,
                      string " amber = ", bit a,
                      string " red = ", bit r]
 
 runTrafficLight2 :: [[Int]] -> IO ()
 runTrafficLight2 input = runAllInput input output
     where reset   = getbit input 0
           walkRq  = getbit input 1
           (g,a,r,w1,w2,c) = controller2 reset walkRq
           output  = [string "Input reset = ", bit reset,
                      string "  Output green = ", bit g,
                      string " amber = ", bit a,
                      string " red = ", bit r,
                      string " wait = ", bit w1,
                      string " walk = ", bit w2,
                      string " count = ", bindec 5 c]