testing_factorial1.scm

   1 (import actors
   2         matchable)
   3
   4 (enable-trace)
   5
   6 (define factorial
   7   (make-actor-with-address 'factorial
   8    (lambda (self customer . message)
   9      (match message
  10        ((n) (send-message self customer n 1) 'sleep)
  11        ((0 acc) (send-message customer acc) 'sleep)
  12        ((n acc) (send-message self customer (- n 1) (* acc n)) 'sleep)))))
  13
  14 (define println
  15   (make-actor-with-address 'println
  16    (lambda (self . message)
  17      (apply print message)
  18      'sleep)))
  19
  20 (send-message factorial println 5)
  21 ;;(send-message factorial println 7)
  22 (run)