www.artulab.com Git - guile-orca/blob - examples/rpc-apply-bcast-sum.scm

   1 #!/usr/bin/env -S guile -s
   2 !#
   3
   4 (add-to-load-path "..")
   5 (use-modules (srfi srfi-1))
   6 (use-modules (orca))
   7
   8 (define (sum-with-process-id a b) (+ a (rpc-worker-process-id) (fold + 0 b)))
   9
  10 (rpc-start)
  11
  12 (format #t "I'm master process. Received ~s ~%" (rpc-apply-bcast sum-with-process-id 10 '(5 3 2)))
  13
  14 (rpc-finalize)