Удалить перестановки кортежей пифагоровой тройки в Haskell

Вам следует заняться нарушением симметрии. Поскольку мы знаем, что b и c всегда можно поменять местами, мы нарушаем симметрию дополнительным ограничением a≤b:

pytri :: Integer -> [(Integer,Integer,Integer)]
pytri n = [(a,b,c)| a <- [1..n], b <- [a..n],c<-[1..n], a*a+b*b==c*c ]

мы также можем легко ограничить поиск c, повысив эффективность:

pytri :: Integer -> [(Integer,Integer,Integer)]
pytri n = [(a,b,c)| a <- [1..n], b <- [a..n],c<-[b..n], a*a+b*b==c*c ]

Мы можем использовать дополнительные трюки, чтобы более эффективно искать c и ограничивать «пространство», в котором мы ищем a и b, я оставляю это в качестве упражнения.