8a4496c · elk · git.iko.soy

on master help sign in

Implement "abs" in Elm

8a4496cEvan Czaplicki12 years ago

libraries/Basics.elm+1−1

@@ -167,7 +167,7 @@ negate n = -n

167

168{-| Take the absolute value of a number. -}

169abs : number -> number

170−abs = Native.Basics.abs

170+abs n = if n < 0 then -n else n

171

172{-| Calculate the logarithm of a number with a given base: `logBase 10 100 == 2` -}

173logBase : Float -> Float -> Float

libraries/Native/Basics.js−2

@@ -11,7 +11,6 @@ Elm.Native.Basics.make = function(elm) {

11 function div(a,b) { return (a/b)|0; }

12 function rem(a,b) { return a % b; }

13 var mod = Utils.mod;

14− function abs(x) { return x < 0 ? -x : x; }

15 function logBase(base,n) { return Math.log(n) / Math.log(base); }

14 function logBase(base,n) { return Math.log(n) / Math.log(base); }

16 function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; }

15 function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; }

17 function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; }

16 function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; }

@@ -61,7 +60,6 @@ Elm.Native.Basics.make = function(elm) {

61 toPolar: toPolar,

60 toPolar: toPolar,

63 sqrt:Math.sqrt,

62 sqrt:Math.sqrt,

64− abs:abs,

65 logBase:F2(logBase),

63 logBase:F2(logBase),

66 min:F2(min),

64 min:F2(min),

67 max:F2(max),

65 max:F2(max),