RosettaCodeData/Task/Least-common-multiple/K/least-common-multiple.k

   gcd:{:[~x;y;_f[y;x!y]]}
   lcm:{_abs _ x*y%gcd[x;y]}

   lcm .'(12 18; -6 14; 35 0)
36 42 0

   lcm/1+!20
232792560