Question

Using Racket Create a Racket procedure compute_pos that reads numbers from the keyboard until 0 is read, count how many positive numbers are read, and also compute the sum of only positive numbers, and display the count and the sum of positive numbers in different lines. Note that 0 is not included in the computations.

For example, if user enters:

3

6

-4

12

15

-9

-24

4

-3

-5

1

0

then your procedure should print

positive count: 6

positive sum: 41

You need to utilize “display” procedure to display the count and the sum, and also utilize “read” procedure to keep reading the next number from the keyboard.

Answer 1

#lang racket/base
;attaching package for while loop
(require dyoo-while-loop)
;defining variable to find sum
(define possum 0)
;defining variable to find the count
(define poscount 0)
;stating while loop
(define (compute_pos)
(while #t
;reading the values from console
(define val (read))
;checking the condition
(cond
;if it is positive value
[(positive? val)
;adding the value to sum variable
(set! possum (+ possum val))
;incrementing the count variable by 1
(set! poscount (+ poscount 1))
])
;if the value read is 0 then break
(when (equal? 0 val) (break))
))
;printing the final values of sum and count
(compute_pos)
(display "Positive count:")
(displayln poscount)
(display "Positive sum:")
(displayln possum)

If you have any doubts please comment and please don't dislike