Matthew Ellen .co .uk

Useful code snippets

lcm

lcm' :: Integral a => a -> a -> a
lcm' a b = a`div`(gcd a b) * b
lcm :: Integral a => [a] -> a
lcm (n:ns) = foldr lcm' n ns

Back to the top

Back to code snippets