Added third factorial example.

diff --git a/actors.scm b/actors.scm
index 4ae01ed..fa6f1bb 100644 (file)
--- a/actors.scm
+++ b/actors.scm
@@ -1,6 +1,6 @@
 (import srfi-69 matchable)
 
 (import srfi-69 matchable)
 

-(define trace-enabled #t)
+(define trace-enabled #f)

 
 ;;;
 ;;; Actor creation
 
 ;;;
 ;;; Actor creation

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)