Question

Hi everyone, I need help In Haskell Coding. Please code in Haskell, Regards

1) Write a function that takes a list of tuples of three integers each and returns a list consisting of just the tuples that are Pythagorean triples. instead of using a list comprehension, use lambda expression and a function that tests one tuple and returns a Bool. As long as the lambda expression is correct, it is OK to make this simpler by having the lambda calls another function.

Answer 1

Code:

isTriple :: (Int,Int,Int) -> Bool

isTriple (x, y, z) | (x^2 == y^2 + z^2) = True

| (y^2 == x^2 + z^2) = True

| (z^2 == x^2 + y^2) = True

| otherwise = False

test_all :: [(Int,Int,Int)] -> [Bool]

test_all list_of_tuple = map isTriple list_of_tuple

list_of_bool :: [Bool]

list_of_bool = test_all [(5,12,13),(3,4,5),(1,1,1),(2,5,8)]

main = do

putStrLn "list of tuples is :\n[(5,12,13),(3,4,5),(1,1,1),(2,5,8)]"

putStrLn "\nAfter testing list of Bool is as follow: "

print list_of_bool