Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- euclid :: Int -> Int -> Int
- euclid n m
- | n == m = n
- | n > m = euclid m (n - m)
- | n < m = euclid n (m - n)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement