Re: [racket] why here a endless loop

2012-02-21 Thread Rodolfo Carvalho
Hi, On Tue, Feb 21, 2012 at 12:49, Roelof Wobben wrote: > I have this script : > > (define (nettoloon h) > ( - (brutoloon h) (belasting h))) > > (define (belasting h) > (cond >[(< (brutoloon h) 240) (* 0 (brutoloon h))] >[(and (< (brutoloon h) 480) (> (brutoloon h) 240)) ( * 0.15 (bru

[racket] why here a endless loop

2012-02-21 Thread Roelof Wobben
I have this script : (define (nettoloon h) ( - (brutoloon h) (belasting h))) (define (belasting h) (cond [(< (brutoloon h) 240) (* 0 (brutoloon h))] [(and (< (brutoloon h) 480) (> (brutoloon h) 240)) ( * 0.15 (brutoloon h))] [else ( * 0.28 ( nettoloon h))])) (define (brutoloo