Scheme的乐趣

Scheme最大的乐趣就在于：

1. 用最少的语法规则搭建一个自己的“语言”
2. 用这个语言搭建出整个应用程序。

奇葩之处就在于，这个自己搭建的语言可以是函数式的、可以是面向过程的、可以是面向对象的....可以是你想要的某种编程范型的。
以前总是认为lisp系列的语言的小括号太烦，现在终于有点儿体会到，这类语言放弃了什么，获得了什么。

下面是Scheme的核心规则。

		*
		|
		| (begin *)
		(define )
	|
	|	(quote )
	|	(lambda *)
	|	(if )
	|	(set! )
	|
		| | |
	|	(*)
	|	( * . )
		( *)

下面是用R6RS的Scheme(里面包含了一些“标准”的语法扩展，如let、cond等)写的一个队列对象：

(library (queue)
  
  (export make-queue)
  
  (import (rnrs base))

(define make-queue
  
  (lambda ()
    
    (let ((head '()) (tail '()))
      
      (lambda (msg . args)
         (cond
          
          ((eqv? msg 'empty)
            
            (and (null? head) (null? tail)))

          
          ((eqv? msg 'enqueue)
             (set! tail (cons (car args) tail)))

           ((eqv? msg 'dequeue)
            
            (if (null? head)
              
              (begin
                 (set! head (reverse tail))
                
                (set! tail '())))
                 (let ((v (car head)))
                 (set! head (cdr head))
             v))

           (else (assertion-violation 'queue "Unsupported operation" msg))
    
          )))))
);