Add comparison functions and some (int <-> float) functions.
This commit is contained in:
parent
0a4010e7da
commit
6c90abaf3d
1 changed files with 13 additions and 1 deletions
|
@ -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,
|
||||||
|
|
Loading…
Reference in a new issue