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) > a 3 > (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...