www

commit 342641a93ccb627d81350ba9b1be29447c939cf3
parent 872c6e24dbd754ba9c0e453234a36f456ab9c6b2
Author: Andreas Olsson <photoguy.apo@gmail.com>
Date:   Wed, 28 Dec 2016 22:55:55 +0100

Add files via upload
Diffstat:
M
pmap.rkt
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/pmap.rkt b/pmap.rkt
@@ -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)))
          )))