3 // --- Signals ------------------------------------------------------
\r
11 deriving instance Show Signal
\r
13 instance Additive Signal where
\r
15 a + b = SigSum [a,b]
\r
18 instance Ring Signal where
\r
21 fromInteger i = SigConst (fromInteger i)
\r
22 a * b = SigMul [a,b]
\r
25 instance Real Signal where
\r
26 fromDouble d = SigConst d
\r
30 main = 1 + 2 * 3 - 4
\r