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

[Distributed Places] fix partit function

Browse Source
This commit is contained in:
Kevin Tew 2012-11-16 15:24:41 -07:00
parent 8d30f1738c
commit d1a02d3fe2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/racket/place/distributed/rmpi.rkt
View File

@ -144,7 +144,7 @@
(define (partit num cnt id) (define (partit num cnt id)
(define-values (quo rem) (quotient/remainder num cnt)) (define-values (quo rem) (quotient/remainder num cnt))
(values (+ (* id quo) (if (< id rem) id 0)) (values (+ (* id quo) (if (< id rem) id rem))
(+ quo (if (< id rem) 1 0)))) (+ quo (if (< id rem) 1 0))))
(define (rmpi-partition comm num) (define (rmpi-partition comm num)
@ -256,10 +256,11 @@
(rmpi-reduce (rmpi-comm 0 8 (vector 0 1 2 3 4 5 6 7)) 3 + 7) (rmpi-reduce (rmpi-comm 0 8 (vector 0 1 2 3 4 5 6 7)) 3 + 7)
) )
#; #;
(module+ test (module+ test
(require tests/eli-tester) (require tests/eli-tester)
(test (test
(partit 10 3 0) => (values 0 4) (partit 10 3 0) => (values 0 4)
(partit 10 3 1) => (values 3 3) (partit 10 3 1) => (values 4 3)
(partit 10 3 2) => (values 6 3))) (partit 10 3 2) => (values 7 3)))