8a4496c · elk · git.iko.soy

Implement "abs" in Elm

commit8a4496cc2339d75edf63d143f94e3f5a17f1eb7a authorEvan Czaplicki <info@elm-lang.org> dateWed 20 Aug 2014, 12:36 (12 years ago) parentb4850a2

2 files changed+1−3

unifiedsplit

libraries/Basics.elm+1−1

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

167167

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

169169abs : number -> number

170−abs = Native.Basics.abs

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

171171

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

173173logBase : Float -> Float -> Float

libraries/Native/Basics.js−2

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

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

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

1313 var mod = Utils.mod;

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

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

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

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

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

6160 toPolar: toPolar,

6261

6362 sqrt:Math.sqrt,

64− abs:abs,

6563 logBase:F2(logBase),

6664 min:F2(min),

6765 max:F2(max),