Функции высшего порядка

@NatiM · Регистрация: 24.03.2013

Author24 — интернет-сервис помощи студентам

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

getExceptBounds, выбирающая из базы данных квартиры, не находящиеся на крайних этажах(первых и последних)

@Catstail · 28.11.2013, 21:45

Haskell

data Estate = Flat Int Double Int | Room Int Double Int | House Double deriving (Eq,Show)
 
isOk :: Estate -> Bool
isOk (House _)    = False
isOk (Flat x _ y) = (x /= 1) && (x /= y) 
isOk (Room x _ y) = (x /= 1) && (x /= y) 
 
getExceptBounds :: [Estate] -> [Estate]
getExceptBounds x = filter isOk x
 
-- Проверим:
 
Main> getExceptBounds [(Flat 1 47.0 5),(House 120.0), (Flat 2 60.5 3), (Room 2 23.6 4)]
 
[Flat 2 60.5 3,Room 2 23.6 4]

Опс... Храним только объекты без цены. Но это легко доработать:

Haskell

getExceptBounds :: [(Estate,Double)] -> [(Estate,Double)]
getExceptBounds x = filter (\ y -> isOk $ fst y) x
 
Main> getExceptBounds [(Flat 1 47.0 5,3000000) ,(House 120.0 , 10000000) , (Flat 2 60.5 3,4000000) , (Room 2 23.6
4,300000)]
 
[(Flat 2 60.5 3,4.0e+006),(Room 2 23.6 4,300000.0)]

@NatiM 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 8
		1
	Функции высшего порядка 28.11.2013, 21:15. Показов 1720. Ответов 1 Метки нет (Все метки) В агентстве недвижимости продают квартиры, комнаты и частные дома. Квартира характеризуется этажом, площадью и этажность дома. Комната характеризуется, помимо этого, площадью комнаты. Частный дом характеризуется только площадью. В базе данных хранятся пары значений, первое из которых представляет объект недвижимости, а второе его цену. Определите тип данных, представляющих информацию о таких объектах недвижимости. Определите функцию: getExceptBounds, выбирающая из базы данных квартиры, не находящиеся на крайних этажах(первых и последних) 0

	28.11.2013, 21:45

Опции темы