9 lines
175 B
Racket
9 lines
175 B
Racket
#lang typed-scheme
|
|
|
|
(require scheme/match)
|
|
|
|
(: parse-sexpr : Any -> Number)
|
|
(define (parse-sexpr sexpr)
|
|
(match sexpr
|
|
[(list #{(? symbol? a) : (Listof Symbol)} ...) 1]))
|