/[gcl]/gcl/pargcl/examples/par-mapcar.lsp
ViewVC logotype

Diff of /gcl/pargcl/examples/par-mapcar.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by gene, Sat Nov 5 09:46:04 2005 UTC revision 1.3 by gene, Sun Nov 6 09:35:25 2005 UTC
# Line 1  Line 1 
1  ;;; To load and run this example:  ;;; To load and run this example:
2  ;;;          (par-load "par-mapcar.lsp")  ;;;          (par-load "par-mapcar.lsp")
3  ;;;          (par-mapcar 'sqrt '(1 2 3 4 5 6 7 8 9 10))  ;;;          (par-mapcar #'sqrt '(1 2 3 4 5 6 7 8 9 10))
4    
5  ;;;This example generalizes mapcar to the obvious parallel version.  ;;;This example generalizes mapcar to the obvious parallel version.
6  ;;;  It computes on each element of the list using the next processor,  ;;;  It computes on each element of the list using the next processor,
# Line 21  Line 21 
21      :check-task-result   #'(lambda (task-in task-out)      :check-task-result   #'(lambda (task-in task-out)
22                               (setf (aref result task-in) task-out)                               (setf (aref result task-in) task-out)
23                               'NO-ACTION)                               'NO-ACTION)
24      :trace t)      :trace nil)
25    (if (master-p) (coerce result 'list) nil)    (if (master-p) (coerce result 'list) nil)
26  )  )

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26