7 lines
148 B
Plaintext
7 lines
148 B
Plaintext
main: Int
|
|
main = 1 + (if (distance_squared 10 2) > 10 then 1000 else 2000)
|
|
|
|
|
|
distance_squared: Int, Int -> Int
|
|
distance_squared a b = a * a + b * b
|