program is a art

[code="lisp"]> (define x (list 1 2 3))> x'(1 2 3)> (define y (list 4 5 6))> (append x y)'(1 2 3 4 5 6)> (cons x y)'((1 2 3) 4 5 6)> (list x y)'((1 2 3) (4 5 6))> (reverse x)'(3...

(define a 3)> a3> (define radius 10)> (*a radius). . ..\..\Program Files\Racket\collects\racket\private\more-scheme.rkt:263:2: *a: undefined; cannot reference an identifier before its def...

[code="lisp"](define a 1)(define b 2)(+ a b 3)(- a b 3)(* a b 3)(/ a b 3)[/code]居然能显示1/6,是竖直的哦[img]http://dl2.iteye.com/upload/attachment/0089/9910/c3d1e12a-9e27-32b7-b298-7a2d5d...

[code="lisp"](define (f x) (cond ((>= x 0) (- x))) (cond ((< x 0) x)) )(define (f1 x) (if (< x 0) (- x) x))> (f -1)-1> (f1 -1)1> [/code]cond相当于c,c++中...

[code="lisp"]> (or (> 1 0) (< 1 0))#t> (and (> 1 0) (< 1 0))#f> (not (> 1 0))#f[/code]

[code="lisp"](define (fab n) (if (= n 1) 1 (* n (fab (- n 1)))))> (fab 3)6[/code]一个递归，用到的括号真多啊

[code="lisp"]> (remainder 21 3)0> (remainder 21 2)1[/code]最大公约数[code="lisp"]> (define (gcd a b) (if (= b 0) a (gcd b (remainder a b...