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 (JustDoIt lst)
(let ((non-negatives (map nonNegative lst))
(positive-sum (sum (lambda (x)(> x 0)) lst)))
(if (null? lst)
'()
(list (-(car lst) positive-sum)))))
When I run (JustDoIt '(3-14602-5))
It says Wrong number of arguments passed to procedure, 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!