I think you have to increase the memory limit. With limit 128 Mb Racketb consequently runs out of memory on my system. The program runs well with limit 256 Mb. Jos
> -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of Pierpaolo Bernardi > Sent: 04 April 2011 16:05 > To: [email protected] > Subject: [racket] Out of memory > > Hello, > > in this racket: > > Welcome to DrRacket, version 5.1.0.4--2011-03-26(fe75ed9/a) [3m]. > Language: racket [custom]; memory limit: 128 MB. > (windows XP) > > this program: > > #lang racket > > (define (test n exp) > (let ((v (make-vector n))) > (for ((i (in-range n))) > (vector-set! v i (expt (random) exp))) > (let sum ((i 0) (all 0.0) (pos 0.0) (neg 0.0)) > (if (= i n) > (values all (+ pos neg)) > (let ((item (vector-ref v i))) > (if (positive? item) > (sum (+ i 1) (+ all item) (+ pos item) neg) > (sum (+ i 1) (+ all item) pos (+ neg item)))))))) > > (test 10000000 -1) > > sometimes signals an out of memory, and sometimes it runs to > completion. > > The cheching or unchecking of 'Debugging and profiling' and 'Preserve > stacktrace' > does not change this. > > The function looks fine to me. So, what is the problem? > > Thanks! > > P. > _________________________________________________ > For list-related administrative tasks: > http://lists.racket-lang.org/listinfo/users _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/users
