commit 31b1032c750af2de7be5faef39a5a3edb053036d parent 0ac0af820795a9566f4c78b9e1138b9a7387d775 Author: Andreas Olsson <photoguy.apo@gmail.com> Date: Wed, 4 Jan 2017 21:46:03 +0100 Add files via upload Cleaned it up. Diffstat:
| M | main.rkt | | | 7 | +------ |
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/main.rkt b/main.rkt @@ -10,14 +10,10 @@ (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 (transpose lists)]) (future (lambda () (apply func a))) ))) -;(pmap (lambda (x)(car x)) '((a b)(c d)(e f))) ; a test -;(pmap * '(1 2 3 4 5 6 7 8 9) '(1 2 3 4 5 6 7 8 9)) ; a nother test -;(pmap (lambda (x y) (* x y)) '(1 2 3 4 5 6 7 8 9) '(1 2 3 4 5 6 7 8 9)) ; yet a nother test! -\ No newline at end of file +