Question: I am programming in scheme: ( define ( sum n ) ( if ( > n 0 ) ( + n ( sum ( -

I am programming in scheme:
(define (sum n)
(if (> n 0)
(+ n (sum (- n 1)))
0)
(define (ReverseEm elems)
(if (null? elems)
'()
(append (ReverseEm (cdr elems))(list (car elems)))))
(define (nonNegative num)
(if (>= num 0)
num
0))
(define (JustDolt Ist)
(let ((non-negatives (map nonNegative Ist))
(positive-sum (sum Ist)))
(if (null? Ist)
'()
(list (-(car Ist) positive-sum)))))
When I do (JustDoIt '(3-14602-5)), it says REAL expected. Why, and how do I fix it?

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!