[plt-scheme] (no subject)
Hello there
Can somebody help me to figure out what is wrong with these codes.
DrScheme V208
Language: Beginning Student.
;; hours->wages : list-of-numbers -> list-of-numbers
;; to create a list of weekly wages from a list of weekly hours (alon)
(define (hours-wages alon)
(cond
((empty? alon) empty)
(else (cons (wage (first alon)) (hours-wages (rest alon))))))
;; wage : number -> number
;; to compute the total wage (at $12 per hour)
;; of someone who worked for h hours
(define (wage h)
(cond
((empty? h) 0)
(else
(* 12 (first h)
(wage (rest h))
);;multiply
);;else
);;cond
);;define
Produces a bug: first: expects argument of type <non-empty list>;
given 0
(define (dollar-store l)
(cond
((empty? l) 0)
((and
(< (first l) 1)
(< (dollar-store (rest l)) 1))
'l)))
(define l
(cons .98 (cons .87 (cons .76 (cons .34 empty)))))
Produces a bug: <: expects argument of type <real number>; given 'l
Thanks in advance.
Igor.