Ocena użytkownikóww: ***** / 0
Nadesłany przez Adam Chrapkowski, 20 grudnia 2013 01:55
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.wart_bezwzgledna.hs:
-- Wartość bezwzględna
-- Adam Chrapkowski
-- www.algorytm.org
--
-- Compliant with Haskel 98 standard
myAbs :: (Num t, Ord t) => t -> t
myAbs x
| x < 0 = -x
| otherwise = x