implementing time values
(define (mk-time hh mm) (+ mm (* 60 hh)))
(define (+time t1 t2)(+ t1 t2))
(define (-time t1 t2)(- t1 t2))
(define (*time t k) (* t k))
(define (hours t) (quotient t 60))
(define (mins t) (remainder t 60))
Previous slide
Next slide
Back to first slide
View graphic version