smallestMultiple lst = head [ n | n <- [1 ..], null [ x | x <- lst, mod n x > 0 ] ]

{-
Barem:
- sintaxă list comprehensions (1)
- extragerea numerelor din lst la care n (nu) se împarte (1.5 = 0.5 * 3 - pattern, generator, condiție)
- verificarea că această listă este goală / identică cu lst (0.5)
- generarea tuturor multiplilor (1.5 = 0.5 * 3)
- extragerea celui mai mic multiplu (0.5)
-}