Pc Programlama Programlama Sitesi C++ Builder Java C C++ Php .Net

Haskell programlama dilinde yazılmış bu programda dışarıdan girilen Integer tipindeki iki sayıdan karesi büyük olanın sayının karesi bastırılır. If mantığı yardımıyla (|) kullanılan programda (dikkat bu teknikte = operatörü yoktu) sayıların karesini hesaplamak için sq isimli bir fonksiyon kullanılmıştır. Bu fonksiyon koşullardan sonra where keywordu yardımıyla tanımlanır. Sayılardan büyük olan karesi sonuç olarak geriye dönmektedir.

Program Kodu:

karebuyukbul :: Int -> Int -> Int
karebuyukbul x y
        | sq x > sq y      = sq x
        | otherwise     = sq y
        where
        sq :: Int -> Int
        sq p = p * p