Name: Anonymous 2010-12-17 21:33
Discuss
Shiichan monad to display the new state of /prog/ to the world.
(define (nequal? x y) (not (equal? x y)))
(define /prog/ '(("x" "y" "z") (car cdr anticudder eval apply)))
(define remove-post
(lambda (/prog/-state post)
(map (lambda (x)
(filter (lambda (x)
(nequal? x post)) x))
/prog/-state)))
(define new-/prog/ (remove-post /prog/ 'anticudder))
; => '(("x" "y" "z") (car cdr eval apply))new-/prog/ to the Shiichan monad, without nothing.