初探scheme

#lang racket
(define la(list 1 2 3 4));定义一个组
(display la);打印la
(display "\n");打印一个回车符
(display (list-ref la 3));打印la里的第3个元素
(display "\n")
(define x(cons 'a(cons 'b(cons 'c '()))));用cons来建立一个组:注意最后要加一个空白元素来结束
(display x);打印x组
(display "\n")
(define v (vector 1 2 3 4 5))
(display v)
(display "\n")
(display (vector-ref v 3))
(display "\n")
(display (vector-length v))
(display "\n")
(define add5 (lambda(x) (+ x 5)));定义一个函数f(x+5)
(display (add5 11));转递一个值过去,并打印处理结果
(display "\n")
(define (add6 x)(+ x 6))
(display (add6 11))

 

运行结果:

(1 2 3 4)

4

(a b c)

#(1 2 3 4 5)

4

5

16

17

感觉还是很好玩的~~~!