Sunday, December 21, 2008

Distrib function Scheme


(define (distrib L E)
(if (null? L)
()
(cons (cons E (car L))
(distrib (cdr L) E))
))

0 comments: