Page:Scheme - An interpreter for extended lambda calculus.djvu/14

From Wikisource
Jump to navigation Jump to search
This page has been proofread, but needs to be validated.
Sussman and Steele December 29, 1975 13 SCHEME Programming Examples

A Useless Multiprocessing Example

One thing we might want to use multiprocessing for is to try two things in parallel, and terminate as soon as one succeeds. We can do this with the following function.

(DEFINE TRY!TWO!THINGS!IN!PARALLEL
  (LAMBDA (F1 F2)
     (CATCH C
        ((LAMBDA (P1 P2)
            ((LAMBDA (F1 F2)
                 (EVALUATE!UNINTERRUPTIBLY
                   (BLOCK (ASET 'P1 (CREATE!PROCESS '(F1)))
                          (ASET 'P2 (CREATE!PROCESS '(F2)))
                          (START!PROCESS P1)
                          (START!PROCESS P2)
                          (STOP!PROCESS **PROCESS**))))
             (LAMBDA ()
                ((LAMBDA (VALUE)
                    (EVALUATE!UNINTERRUPTIBLY
                     (BLOCK (STOP!PROCESS P2) (C VALUE))))
                 (Fl)))
             (LAMBDA ()
                ((LAMBDA (VALUE)
                    (EVALUATE!UNINTERRUPTIBLY
                     (BLOCK (STOP!PROCESS P1) (C VALUE))))
                 (F2)))))
         NIL NIL))))

TRY!TWO!THINGS!IN!PARALLEL takes two functions of no arguments (in order to pass an unevaluated expression and its environment in for later use, so as to avoid variable conflicts). It creates two processes to run them, and returns the value of whichever completes first.

As an example of how to misuse TRY!TWO!THINGS!IN!PARALLEL, here is a function which determines the sign of an integer using only ADD1, SUB1, and EQUAL.

(DEFINE SIGN
    (LAMBDA (N)
        (IF (EQUAL N 0) 'ZERO
            (TRY!TWO!THINGS!IN!PARALLEL
                (LAMBDA ()
                    (DO ((I 0 (ADD1 1)))
                        ((EQUAL I N) 'POSITIVE)))
                (LAMBDA ()
                    (DO ((I 0 (SUB1 1)))
                        ((EQUAL I N) 'NEGATIVE)))))))