7 lines of code, 3 minutes: Implement a programming language from scratch

[mmix]

interesting. is there anyone do this in another programming anguages?
http://matt.might.net/articles/imple...ming-language/

#lang racket

; bring in the match library:
(require racket/match)

; eval matches on the type of expression:
(define (eval exp env) (match exp
[`(,f ,e) (apply (eval f env) (eval e env))]
[`(λ ,v . ,e) `(closure ,exp ,env)]
[(? symbol?) (cadr (assq exp env))]))

; apply destructures the function with a match too:
(define (apply f x) (match f
[`(closure (λ ,v . ,body) ,env)
(eval body (cons `(,v ,x) env))]))

; read in, parse and evaluate:
(display (eval (read) '())) (newline)