SCHEME IS THE VIAL, LISP IS THE TROJAN HORSE
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)
Name:
Anonymous
2016-01-06 3:46
this is amazing, I love this sort of thing OP.
just trying to figure it out without running it.
Newer Posts