Skip to content

Instantly share code, notes, and snippets.

@cormojs

cormojs/redex.scm

Created May 7, 2015 03:41
Show Gist options
  • Save cormojs/9fd756898ef2263a1935 to your computer and use it in GitHub Desktop.
Save cormojs/9fd756898ef2263a1935 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
redex.scm
(reset (list (shift k (append-map k '(3 4)))
(shift k (append-map k '(1 2)))))
;=>
(reset ((lambda (k) (append-map k '(3 4)))
(lambda (v) (reset (list v
(shift k (append-map k '(1 2))))))))
;=>
(reset (append-map (lambda (v) (reset (list v
(shift k (append-map k '(1 2))))))
'(3 4)))
;=>
(reset (append (reset (list 3 (shift k (append-map k '(1 2)))))
(reset (list 4 (shift k (append-map k '(1 2)))))))
;=>
(reset (append (reset ((lambda (k) (append-map k '(1 2)))
(lambda (v) (reset (list 3 v)))))
(reset (list 4 (shift k (append-map k '(1 2)))))))
;=>
(reset (append (reset (append-map (lambda (v) (reset (list 3 v))) '(1 2)))
(reset (list 4 (shift k (append-map k '(1 2)))))))
;=>
(reset (append (reset (append (list 3 1) (list 3 2)))
(reset (list 4 (shift k (append-map k '(1 2)))))))
;=>
(reset (append (append (list 3 1) (list 3 2))
(reset (list 4 (shift k (append-map k '(1 2)))))))
;=>
(reset (append '(3 1 3 2)
(reset (list 4 (shift k (append-map k '(1 2)))))))
;=>
(reset (append '(3 1 3 2)
((lambda (k) (append-map k '(1 2)))
(lambda (v) (reset (list 4 v))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment