Pasted

import System.Environment
 
fac 0 = 1
fac n = n * fac (n-1)
 
fib 0 = 0
fib 1 = 1
fib 2 = 1
fib n = fib (n - 1) + fib (n-2) 
 
triangles = [ (a, b, c) | a <- [1..10], b <- [1..10], c <- [1..10], a^2 + b^2 == c^2, a+b+c == 24 ]
 
main = print (triangles)