-- Najmniejsza wspolna wielokrotnosc dla listy liczb
-- NWW dla listy jest oblicza sie nastepujaco:
--   oblicz NWW dla dwoch pierwszych liczb
--   oblicz NWW dla wyniku z poprzedniego kroku i kolejnej liczby
--   oblicz NWW dla wyniku z poprzedniego kroku i kolejnej liczby
--   oblicz NWW dla wyniku z poprzedniego kroku i kolejnej liczby
--   ... ( powtarzaj dopoki nie przetworzysz calej listy)
--
-- www.algorytm.org

my_lcm :: [Int] -> Int
my_lcm x = foldr (\a b -> abs (a `quot` (gcd a b) * b) ) 1 x

-- my_lcm [5, 6, 3]