10 lines
222 B
Racket
10 lines
222 B
Racket
#lang typed-scheme
|
|
|
|
(require scheme/match)
|
|
|
|
(: post-eval : -> Number)
|
|
;; evaluates a postfix sequence of items, using a stack
|
|
(define (post-eval)
|
|
(match '(1 2)
|
|
[(list (? number? #{stack : (Listof Number)}) ...) 3]))
|