Написать функцию, имеющую аргументами эти два списка и решающую задачу

@glorius59 · Регистрация: 06.12.2021

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

Дан список предикатов двух переменных:
Р1(х,у)=”x+y – четное число”,
P2 (х,у)=”x>y”,
P3 (х,у)=”x и y имеют одинаковые остатки от деления на 4”,
P4 (х,у)=”x+2y<8”,
P5 (х,у)=”max{x,y} – нечетное число”,
и список кортежей [(x,y)]. Написать функцию, имеющую аргументами эти
два списка и решающую задачу. Рекомендуется использовать функции map,
foldl, foldr, and, or.

Задание:
Возвращает список кортежей, на которых истинен хотя бы один из пяти
предикатов.

Как записать условие из задания ?

Haskell

p1, p2, p3, p4, p5 :: (Int,Int)->Bool
p1 (x,y) = (mod (x+y) 2) == 0
p2 (x,y) = x > y
p3 (x,y) = (mod x 4) == (mod y 4)
p4 (x,y) = (x + 2*y) < 8
p5 (x,y) = (mod (max x y) 2) == 1
 
p :: [(Int, Int)]->[(Int,Int)->Bool]->[Int]

@Catstail · 26.07.2023, 13:32

Haskell

p1, p2, p3, p4, p5 :: (Int,Int)->Bool
p1 (x,y) = (mod (x+y) 2) == 0
p2 (x,y) = x > y
p3 (x,y) = (mod x 4) == (mod y 4)
p4 (x,y) = (x + 2*y) < 8
p5 (x,y) = (mod (max x y) 2) == 1
 
task xs = filter (\ x -> any id [p x | p <- [p1,p2,p3,p4,p5]]) xs 
 
main = print $ task [(1,110),(2,2),(3,3),(999,7)]

	26.07.2023, 13:32