About???
... Have a multiplication table ... arrow(define (count-up-from col row max)
(cond [(= max col) empty]
[else (cons (* col row)
(count-up-from (add1 col) row max))]))
(define (give-row row max)
(count-up-from 0 row max))
(define (count-up-rows row max)
(cond [(= max row) empty]
[else (cons (give-row row max)
(count-up-rows (add1 row) max))]))
(define (mult-table max)
(count-up-rows 0 max))
Comments
View All Comments