www.artulab.com Git - guile-orca/blob - examples/rpc-apply-scatter-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-it a b) (+ a b))
   9
  10 (rpc-start)
  11
  12 (format #t "I'm master process. Received ~s ~%"
  13   (rpc-apply-scatter sum-it '(10 20 30 40) '(1 2 3 4)))
  14
  15 (rpc-finalize)