fib

runtime.js

@@ -13,10 +13,16 @@ var Primitives = {
     'display': function(argl) {
         MACHINE.params.currentDisplayer(argl[0]);
     },
+
     'newline': function(argl) {
         MACHINE.params.currentDisplayer("\n");
     },
 
+    'displayln': function(argl){
+        MACHINE.params.currentDisplayer(argl[0]);
+        MACHINE.params.currentDisplayer("\n");
+    },
+
     '=': function(argl) {
         return argl[0] === argl[1][0];
     },
@@ -44,16 +50,21 @@ var Primitives = {
     'cons': function(argl) {
 	return [argl[0], argl[1][0]];
     },
+
     'list': function(argl) {
 	return argl;
     },
+
     'car': function(argl) {
 	return argl[0][0];
     },
+
     'cdr': function(argl) {
 	return argl[0][1];
     },
+
     'null' : undefined,
+
     'null?': function(argl) {
 	return argl[0] === undefined;
     }

test-browser-evaluate.rkt

@@ -50,4 +50,17 @@
                          (tak (- z 1) x y))
                     z))
               (display (tak 18 12 6)))
-      "7")
+      "7")
+
+
+(test '(begin (define (fib x)
+                (if (< x 2)
+                    x
+                    (+ (fib (- x 1))
+                       (fib (- x 2)))))
+              (displayln (fib 3))
+              (displayln (fib 4))
+              (displayln (fib 5))
+              (displayln (fib 6)))
+      "2\n3\n5\n8\n")
+