Added third factorial example.

[actors.git] / testing_factorial3.scm

diff --git a/testing_factorial3.scm b/testing_factorial3.scm
new file mode 100644 (file)
index 0000000..b3450aa
--- /dev/null
+++ b/testing_factorial3.scm
@@ -0,0 +1,25 @@
+(load "actors.scm")
+
+(define trace-enabled #t)
+
+(define factorial
+  (make-actor-with-address
+   'factorial
+   (lambda (self customer n)
+     (if (= n 0)
+         (send-message customer 1)
+         (let ((fact-acc (make-actor
+                          (lambda (self m)
+                            (send-message customer (* n m))
+                            'done))))
+           (send-message self fact-acc (- n 1))
+           'sleep)))))
+
+(define println
+  (make-actor-with-address 'println
+   (lambda (self . message)
+     (apply print message)
+     'sleep)))
+
+(send-message factorial println 5)
+(run)