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
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
2 matches
Mail list logo