Data update

2024-10-16 18:07:41 -07:00 · 2024-10-16 18:07:41 -07:00 · 52a6ef48dd
commit 52a6ef48dd
parent 81fd053722
10248 changed files with 63654 additions and 6775 deletions
--- a/Task/Stack/Scheme/stack.scm
+++ b/Task/Stack/Scheme/stack.scm
@ -0,0 +1,15 @@
+(define (make-stack)
+  (let ((st '()))
+    (lambda (message . args)
+      (case message
+        ((empty?) (null? st))
+        ((top) (if (null? st)
+                   'empty
+                   (car st)))
+        ((push) (set! st (cons (car args) st)))
+        ((pop) (if (null? st)
+                   'empty
+                   (let ((result (car st)))
+                     (set! st (cdr st))
+                     result)))
+        (else 'badmsg)))))