Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
main = putStrLn "hello world"
nod :: Int -> Int -> Int
nod a b | (a<0) = nod (-a) b
| (b<0) = nod a (-b)
| (a>b) = nod (a-b) b
| (a<b) = nod a (b-a)
| (a==0) = b
| (b==0) = a
| (a==b) = a
nok :: Int -> Int -> Int
nok c d | (c==0)&&(d==0) = 0
| (c>0)&&(d>0) = c*d `div` (nod c d)
| (c<0)||(d<0) = abs(c*d) `div` (nod c d)
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more