simple-simulator

Simple machine simulator: a complement to this essay.

clj

(require 'machine-simulator)
(in-ns 'machine-simulator) 
(get-in
  (run
    {'n 5 'counter 1 'res 1}
    {'* * '> > '+ +}
    factorial-instructions)
  [:registry-map 'res])