6 lines
143 B
Text
6 lines
143 B
Text
main = sigma 0 10
|
|
|
|
sigma : Int -> Int -> Int
|
|
sigma from to = case from == to of
|
|
True => from
|
|
False => to + sigma from (to - 1)
|