home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0963.lha / SIOD / scm / pila.scm < prev    next >
Text File  |  1999-12-31  |  281b  |  17 lines
  1. (define make-pila '())
  2.  
  3. (define empty-pila? null?)
  4.  
  5. (define (push x pila)
  6.         (cons x pila))
  7.  
  8. (define (pop pila)
  9.         (if (empty-pila? pila)
  10.             '()
  11.             (cdr pila)))
  12.  
  13. (define (top pila)
  14.         (if (empty-pila? pila)
  15.             '()
  16.             (car pila)))
  17.