1
0
Fork 0
mirror of https://gitlab.com/mfocko/CodeWars.git synced 2024-10-18 10:42:08 +02:00
CodeWars/8kyu/return_negative/solution.hs

5 lines
103 B
Haskell
Raw Permalink Normal View History

module Codewars.Kata.Negative where
makeNegative :: (Num a, Ord a) => a -> a
makeNegative n = - abs n