mbk/lisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bf: parameterize mem size, use incmodf

Browse source 
i'm not sure why i thought incmodf was slower
This commit is contained in:
mehbark 2024-12-18 01:01:45 -05:00
parent 9784d97607
commit 3c32c92530
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
bf.lisp
View file

@ -3,12 +3,14 @@
(defmacro incmodf (place mod &optional (delta 1)) (defmacro incmodf (place mod &optional (delta 1))
`(setf ,place (mod (+ ,place ,delta) ,mod))) `(setf ,place (mod (+ ,place ,delta) ,mod)))
; TODO: ooo could totally gen from sym (e.g. '++-[]>) ; TODO: ooo could totally gen from sym (e.g. '++-[]>)
; then i'd need some sort of var syntax ugh ; then i'd need some sort of var syntax ugh
(defpattern cmd (op val) (defpattern cmd (op val)
`(list ',op ,val)) `(list ',op ,val))
; mandelbrot is about 5kb shorter with this :P ; mandelbrot is about 5kb shorter with this :P
; zeroing-add gets us more
(defun optimize-loop (ins) (defun optimize-loop (ins)
(match ins (match ins
((list (cmd inc _)) '(setf cell 0)) ((list (cmd inc _)) '(setf cell 0))
@ -50,29 +52,32 @@
(#\[ (put) (#\[ (put)
(let1 inner (comp-part port) (let1 inner (comp-part port)
(push (or (optimize-loop inner) (push (or (optimize-loop inner)
`(loop until (zerop cell) do (progn ,@inner))) `(loop until (zerop cell)
do (progn ,@inner)))
out)))) out))))
finally (put) finally (put)
finally (return (nreverse out))))) finally (return (nreverse out)))))
(defparameter mem-size 32768)
(defun comp (&optional (port *standard-input*)) (defun comp (&optional (port *standard-input*))
(eval (eval
`(lambda (&key (in *standard-input*) (out *standard-output*)) `(lambda (&key (in *standard-input*) (out *standard-output*))
(declare (optimize (speed 3) (safety 0))) (declare (optimize (speed 3) (safety 0)))
(begin (begin
(= mem (make-array 65536 :element-type '(unsigned-byte 8))) (= mem (make-array ,mem-size :element-type '(unsigned-byte 8)))
(= mp 0) (= mp 0)
(=sm cell (aref mem mp)) (=sm cell (aref mem mp))
(=f inc (n) (setf cell (mod (+ cell n) 256))) (=f inc (n) (incmodf cell 256 n))
(=f minc (n) (setf mp (mod (+ mp n) 65536))) (=f minc (n) (incmodf mp ,mem-size n))
; TODO: fix ; TODO: fix
(=f get-byte () (setf cell (mod (char-code (read-char in nil #\null)) 256))) (=f get-byte () (setf cell (mod (char-code (read-char in nil #\null)) 256)))
(=f put-byte () (write-char (code-char cell) out)) (=f put-byte () (write-char (code-char cell) out))
(=f zeroing-add (rmove) (=f zeroing-add (rmove)
(incmodf (aref mem (mod (+ mp rmove) 65536)) 256 cell) (incmodf (aref mem (mod (+ mp rmove) ,mem-size)) 256 cell)
(setf cell 0)) (setf cell 0))
,@(comp-part port) ,@(comp-part port)