Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted as Plain Text by langs ( 13 years ago )
--media :: House2 -> Int
--media (House2 a (y:ys)) =(lucro(House2 a (y:ys))) 'div' (lenght(y:ys))
lucro :: House2 -> Int
lucro (House2 a []) = 0
lucro (House2 a (y:ys)) = actvalue2(y) - actinit2(y) + lucro (House2 a ys)
lenght :: [a] -> Int
lenght [] = 0
lenght (y:ys) = 1 + lenght ys
Revise this Paste
Parent: 59709