Answered step by step
Verified Expert Solution
Link Copied!

Question

1 Approved Answer

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

Step: 1

blur-text-image

Get Instant Access to Expert-Tailored Solutions

See step-by-step solutions with expert insights and AI powered tools for academic success

Step: 2

blur-text-image

Step: 3

blur-text-image

Ace Your Homework with AI

Get the answers you need in no time with our AI-driven, step-by-step assistance

Get Started

Recommended Textbook for

Finance The Role Of Data Analytics In Manda Due Diligence

Authors: Ps Publishing

1st Edition

B0CR6SKTQG, 979-8873324675

More Books

Students also viewed these Databases questions

Question

explain what is meant by redundancy

Answered: 1 week ago