wl

commit b283196594a44ce044922e301cfc0927d7b75add
parent f39caf16b3da9680b80818114456cd4de6577ddf
Author: tomas <tomas@logand.com>
Date:   Sat, 12 Sep 2009 00:27:11 +0200

Scl added

Diffstat:
M
wl.js
 | 
16
+++++++++++++++-

1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/wl.js b/wl.js
@@ -1,4 +1,18 @@
-// ls -- Tomas Hlavaty 28feb2009
+// ondoc -- Tomas Hlavaty 28feb2009
+
+/// lisp
+
+var Scl = 1;
+
+function format(N, S) {
+    var X = "" + N;
+    var L = X.length;
+    return X.slice(0, L - S) + "." + X.slice(L - S, L);
+}
+
+function real(N, S) {
+    return N / Math.pow(10, S);
+}
 
 function Cons(Car, Cdr) {
     this.car = Car;