Changes between Version 4 and Version 5 of Ticket #20

Show
Ignore:
Timestamp:
08/08/10 15:32:15 (4 years ago)
Author:
tmcdonell
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #20 – description

    v4 v5  
    1313test xs = 
    1414  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) 
    1819 
    1920main :: IO ()