Name:
Anonymous
2016-01-06 3:28
(define (map! fn . lsts)
(if (not (any null? lsts))
(begin
(set-car! (car lsts) (apply fn (map car lsts)))
(apply map! fn (map cdr lsts)))))
(define grimey-sanders-list '(this is very nice and fit for use by alice))
(define alices-list '(lalala butterflies and flowers))
(define (your-move-alice!)
(set! alices-list (append alices-list grimey-sanders-list)))
(define (your-move-grimer!)
(map! (lambda (a b) b) grimey-sanders-list
'(TAILWHACKING SHIT SNAILS FOURCAN AND GORE BDSM PORN AND MORE)))
(define (alices-moment-of-horror)
(print alices-list))
(your-move-alice!)
(your-move-grimer!)
(alices-moment-of-horror)