All pastes #198199 Raw Edit

Something

public text v1 · immutable
#198199 ·published 2006-10-11 20:40 UTC
rendered paste body
--14.X
--a
data Mobiel	= Gewicht Int | Totaal Mobiel Mobiel 

--b
gewicht :: Mobiel -> Int
gewicht (Gewicht x) = x
gewicht (Totaal g1 g2) = gewicht (g1) + gewicht (g2)