yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add comparison functions and some (int <-> float) functions.

Browse source
This commit is contained in:
evancz 2012-07-28 20:31:57 +02:00
parent 0a4010e7da
commit 6c90abaf3d
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
core-js/Prelude.js
View file

@ -31,10 +31,22 @@ var Prelude = function() {
fst : function(p) { return p[1]; }, fst : function(p) { return p[1]; },
snd : function(p) { return p[2]; }, snd : function(p) { return p[2]; },
rem : function(x) { return function(y) { return x % y; }; }, rem : function(x) { return function(y) { return x % y; }; },
div : function(x) { return function(y) { return x / y; }; }, div : function(x) { return function(y) { return ~~(x / y); }; },
compare : function(x) { return function (y) {
x = (typeof x === "object") ? toText(x) : x;
y = (typeof y === "object") ? toText(y) : y;
return [ x === y ? 'EQ' : (x < y ? 'LT' : 'GT') ];
};
},
toFloat : function(x) { return x; },
round : function(n) { return Math.round(n); },
floor : function(n) { return Math.floor(n); },
ceiling : function(n) { return Math.ceil(n); },
truncate : function(n) { return ~~n; },
sqrt : Math.sqrt, sqrt : Math.sqrt,
abs : Math.abs, abs : Math.abs,
pi : Math.PI, pi : Math.PI,
e : Math.E,
sin : Math.sin, sin : Math.sin,
cos : Math.cos, cos : Math.cos,
tan : Math.tan, tan : Math.tan,