suzanne.soy/pmap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Andreas Olsson 2016-12-28 22:55:55 +01:00 committed by GitHub
parent 872c6e24db
commit 342641a93c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pmap.rkt
View File

@ -7,12 +7,14 @@
(provide pmap)
(define (transpose . lists) ; collumns to rows!
(define (transpose lists) ; collumns to rows!
(apply map list lists))
;(transpose '((1 3 5) (2 4 6))) ; test
(define (pmap func . lists) ; pmap
(map touch
(for/list ([a (apply transpose lists)])
(for/list ([a (transpose lists)])
(future (lambda () (apply func a)))
)))