Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Stack/Scheme/stack.ss
+++ b/Task/Stack/Scheme/stack.ss
@ -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)))))