Changes between Version 4 and Version 5 of Ticket #20
 Timestamp:
 08/08/10 15:32:15 (6 years ago)
Legend:
 Unmodified
 Added
 Removed
 Modified

Ticket #20 – description
v4 v5 13 13 test xs = 14 14 let xs' = Acc.use xs 15 in flip Acc.map xs' $ \x > let (a', c :: Exp Double) = Acc.untuple x 16 (a :: Exp Float, b :: Exp Int) = Acc.untuple a' 17 in Acc.tuple (Acc.tuple (a + 1, b + 2), c + 3) 15 in flip Acc.map xs' $ \x > 16 let (a', c :: Exp Double) = Acc.untuple x 17 (a :: Exp Float, b :: Exp Int) = Acc.untuple a' 18 in Acc.tuple (Acc.tuple (a + 1, b + 2), c + 3) 18 19 19 20 main :: IO ()