Concurrent computing: Difference between revisions
Content added Content deleted
(→{{header|Tcl}}: +SML) |
|||
| Line 1,811: | Line 1,811: | ||
(lambda () (print "Rosetta")) |
(lambda () (print "Rosetta")) |
||
(lambda () (print "Code")))</lang> |
(lambda () (print "Code")))</lang> |
||
If your implementation doesn't provide parallel-execute, it can be implemented with [https://srfi.schemers.org/srfi-18/srfi-18.html SRFI-18]. |
|||
<lang scheme>(import (srfi 18)) |
|||
(define (parallel-execute . thunks) |
|||
(let ((threads (map make-thread thunks))) |
|||
(for-each thread-start! threads) |
|||
(for-each thread-join! threads)))</lang> |
|||
=={{header|Sidef}}== |
=={{header|Sidef}}== |
||