24 lines
517 B
Scheme
24 lines
517 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel tap)
|
|
(retropikzel debug)
|
|
(retropikzel parallel)
|
|
(srfi 19)
|
|
(srfi 64))
|
|
|
|
(test-runner-current (tap-runner))
|
|
|
|
(define lst '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16))
|
|
|
|
(write (parallel-map '((scheme base)) (lambda (i) (+ i 1)) lst))
|
|
(newline)
|
|
(newline)
|
|
(write (parallel-map '((scheme base)) (lambda (i) (+ i 1)) lst))
|
|
(newline)
|
|
(newline)
|
|
(write (parallel-map '((scheme base)) (lambda (i) (+ i 1)) lst))
|
|
(newline)
|
|
(newline)
|
|
|
|
|