;;; Module adt-pile.rkt - Livre "Premiers Cours de Programmation avec Scheme" (Ellipses ed, 2010)
;;; Doit etre sauvegarde comme 'langage determine par le source' !
;;; Racket > v5.0

#lang racket

(provide (all-defined-out))

(define (pile-vide? pile) 
  (empty? pile))

(define (pile-vide) 
  empty)

(define (empiler x pile)
  (cons x pile)) 

(define (sommet pile)
  (if (empty? pile)
      (error 'sommet "pile vide !")
      (first pile)))

(define (depiler pile)
  (if (empty? pile)
    (error 'depiler "pile vide !")
    (rest pile)))