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

I am programming in scheme
(define (sum n)
(if (>= n 0)
(if (= n 0)
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 (JustDoIt lst)
(let ((positive-sum (sum (map nonNegative lst))))
(ReverseEm (list positive-sum))))
When I do (JustDoIt '(314602-5)), it says REAL expected, why, 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!