/prog/ - 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 4:25

>>4

(use srfi-1 srfi-13)

;; GRIMER'S TAMPON FACTORY

(define buy-new-tampon #f)

((lambda ()
  ; WE BUILD TRUST WITH ALICE FIRST FEW TIMES SO SHE START USING THEM WITHOUT
  ; SUSPICION, THEN WE GET HER IN THE VAGINO
  (define times 0)

  (set! buy-new-tampon
    (lambda ()
      (set! times (+ times 1))
      (if (= (modulo times 10) 0)
          (lambda (vagina)
            (printf "-- ~a IS BANGED BY GRIMER WITH ALL HIS MIGHT\n" vagina)
            (string-append vagina " is filled with semen"))
          (lambda (vagina)
            (printf "-- ~a is cleaned and protected by tampon #~a\n" vagina times)
            (string-append vagina " is clean and protected")))))))

;; ALICE THE CONSUMER

(define (alices-monthly-routine)
  (define tampon (buy-new-tampon))
  (apply tampon '("alice's vagina")))

(define (alices-tampon-test tampon)
  (apply tampon '("alice's spider plant")))

; January 2015

(define months
 '(January February March April May June July
   August September October November December))

(define result (alices-tampon-test (buy-new-tampon)))
(printf "January, testing new tampons on spider plant, result: ~a\n" result)

(if (not (string-contains result "clean"))
  (begin
    (printf "yuck! these are terrible! forget I even bothered!\n")
    (exit 0)))

(for-each
  (lambda (month)
    (define result (alices-monthly-routine))
    (printf "~a, using new tampon, result: ~a\n" month result)
    (if (not (string-contains result "clean"))
      (begin
        (printf "OMG! WHAT HAPPENED! OMG! THIS IS SO EMBARRASSING!\n")
        (exit 0))))
  (apply circular-list months))

SCHEME IS THE VIAL, LISP IS THE TROJAN HORSE

1 Name: Anonymous 2016-01-06 3:28

6 Name: Anonymous 2016-01-06 4:25

Name: Anonymous 2016-01-06 3:28

Name: Anonymous 2016-01-06 4:25