All pastes #90873 Raw Edit

Miscellany

public text v1 · immutable
#90873 ·published 2006-07-18 02:54 UTC
rendered paste body
(define (mult x y)
 (let mult-1 ((y y) (total 0))
  (cond ((= y 0) total)
        (else (mult-1 (- y 1) (+ total x))))))