Не получается вызвать функцию

@MariaK · Регистрация: 10.03.2013

В агентстве недвижимости продают квартиры, комнаты и частные дома. Квартиры характеризуются этажом, площадью, и этажностью дома. Комната характеризуется, помимо этого, площадью комнаты (в дополнение к площади всей квартиры). Частные дома характеризуются только площадью. В базе данных хранятся пары значений, первое из которых представляет объект недвижимости, а второе – его цену. Определите тип данных, представляющий информацию о таких объектах недвижимости. Определите след. ф-ии:
2) getByPrice, выбирающая из базы данных те объекты недвижимости, цена которых меньше указанных

Haskell

x = [(Flat 10 35 10, 20000),(Room 3 24 5 10, 5000),(House 105, 120000),(Flat 10 54 32, 35000),(House 73, 80000), (Flat 3 26 5, 7500), (House 103, 125000)]
data Nedvig = Flat Int Int Int
                        | Room Int Int Int Int
                        | House Double deriving (Show, Eq)
                        
type Agency = (Nedvig, Integer)
getByPrice :: Integer -> [Agency] -> [Agency]
getByPrice _ [] = []
getByPrice a (x:xs) = if ((snd x) <= a) then x : getByPrice a xs
                                       else getByPrice a xs

не могу вызвать функцию, либо ошибка в коде(

@Catstail · 05.11.2013, 22:04

Haskell

data Prop = Flat Int Double Int | Room Int Double Double Int | House Double deriving (Eq,Show)
 
getByPrice :: [(Prop,Double)] -> Double -> [(Prop,Double)]
getByPrice [] _     = []
getByPrice (p:ps) v | ((snd p) < v) = p : (getByPrice ps v)
                    | otherwise     = getByPrice ps v                   
 
 
Main> getByPrice [((Flat 1 75.0 5),700000),((House 200.0),1000000)] 1000000.0
 
[(Flat 1 75.0 5,700000.0)]

@MariaK · 05.11.2013, 22:28 **[ТС]**

Сообщение от Catstail

Haskell

data Prop = Flat Int Double Int | Room Int Double Double Int | House Double deriving (Eq,Show)
 
getByPrice :: [(Prop,Double)] -> Double -> [(Prop,Double)]
getByPrice [] _     = []
getByPrice (p:ps) v | ((snd p) < v) = p : (getByPrice ps v)
                    | otherwise     = getByPrice ps v                   
 
 
Main> getByPrice [((Flat 1 75.0 5),700000),((House 200.0),1000000)] 1000000.0
 
[(Flat 1 75.0 5,700000.0)]

Спасибо огромнейшее!

Опции темы