Haskell programlama dilinde yazılmış bu fonksiyonda arguman olarak bir data yapısı alınmıştır. Bu fonksiyonda uygun tipte girilen ucgenlerin hangi tur ucgenler olduğu hesaplanmıştır. Hesaplanabilen ucgen turleri aralarındaki acı durumlarına gore dik acılı, dar acılı veya geniş acılı olabilmektedir.Dik acılı ucgende Rightt yazılmasının sebebi haskell programlama dilinde Right isimli bir anahtar kelimenin bulunmasıdır. Or : getKot [(S 3 4 5),(S 4 5 6), (S 7 1 8)] [Rightt,Acute,Obtuse] Program Kodu : PHP Code:
data Triangle = S Int Int Intdata Species = Acute | Rightt | Obtuse deriving Show getKot :: [Triangle] -> [Species]getKot [] = []getKot (x:xs) = [kontrol x] ++ getKot xs kontrol :: Triangle -> Specieskontrol (S a b c) | (((a*a)[b*b))== (c*c)) || (((a*a)[c*c))== (b*b)) || (((c*c)[b*b))== (a*a)) = Rightt | (((a*a)[b*b*b))(a*a)) = Acute

__________________