simyager/kurt
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added a few operations and expanded standard library

Browse Source
This commit is contained in:
mRnea
2024-08-18 17:10:32 +03:00
parent 30e2c565fb
commit 86dbe8eb0a
3 changed files with 51 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
simulation.lisp
View File

@@ -20,10 +20,15 @@
;; (print op)
;; (print *stack*)
(case (car op)
(:divmod (let ((top (pop*)))
(multiple-value-bind (div mod) (truncate (pop*) top)
(push* div)
(push* mod))))
(:push-int (push* (cadr op)))
(:+ (push* (+ (pop*) (pop*))))
(:- (let ((top (pop*)))
(push* (- (pop*) top))))
(:* (push* (* (pop*) (pop*))))
(:dump (format t "~a~%" (pop*)))
(:= (push* (if (= (pop*) (pop*)) 1 0)))
(:eş (let ((top (pop*)))
@@ -36,6 +41,8 @@
(setf i (third op))))
(:< (let ((top (pop*)))
(push* (if (< (pop*) top) 1 0))))
(:> (let ((top (pop*)))
(push* (if (> (pop*) top) 1 0))))
(:iken (when (= 0 (pop*))
(setf i (cadr op))))
(:döngü nil)