76 (var test-integer<->string "test-integer<->string")
77 (put-line test-integer<->string)
78
79 (var i 1234)
80 (var s "4321")
81 (put-line (integer->string i))
82 (put-line (integer->string (string->integer s)))
83
84 ; test char -------------------------------------------
85 (var test-char "test char")
86 (put-line test-char)
87
88 (var ca #a)
89 (var cb)
90 (put-char ca)
91 (set! cb ca)
92 (put-char cb)
93 (var eline " ")
94 (put-line eline)
95
96 ; test input ------------------------------------------
97 (var test-input "test input")
98 (put-line test-input)
99
100 (var input-prompt "input a char")
101 (put-line input-prompt)
102 (var ch (get-char)) ; 重复定义，不判重
103 (put-char ch)
104 (var sp " ")
105 (put-line sp)
106
107 (set! input-prompt "input a string")
108 (put-line input-prompt)
109 (var str (get-string))
110 (put-line str)
111
112 ; test func -------------------------------------------
113 (var test-func "test func")
114 (put-line test-func)
115
116 (func square(x) (* x x))
117 (var y 11)
118 (var z (square y))
119 (put-line (integer->string z))
120
121 (func square-sum(x y)
122 (+ (square x) (square y)))
123 (put-line (integer->string (square-sum 3 7)))
124
125 (func fu(x y)
126 (func half(x) (/ x 2))
127 (func double(x) (+ x x))
128 (+ (half x) (double y))
129 )
130 (var x 26)
131 (put-line (integer->string (fu x 11)))
132
133 (var y ((lambda (x) (* x x x)) 3))
134 (func put-integer(i) (put-string (integer->string i)))
135 (func new-line() (var sp "") (put-line sp))
136
138 (new-line)
139
140 (put-line "abc")
141 (put-line "")
142 (put-line "def")
143 (put-string " ")
144 (put-char #c)
145 (new-line)
146 (put-integer -13)
147 (new-line)
148 (put-integer (+ 12 7))
149 (put-line "")
150 (func new-line() (put-line ""))
151 (new-line)
152 (put-char #$)
153
154 ) ; end
155
1 ; TestCompareZ.txt
2 ;
3 ; Copyright (C) 2012, coreBugZJ, all rights reserved.
4 ;
5 ; 测试用文件 B
6 ; ANSI GB2312 编码
7 ;
8 ; 测试 基本比较函数
9
10 (begin
11 ; char --------------------------------------
12 (var c1 #a)
13 (var c2 #z)
14 (var c3 #u)
15
16 (var c-min (if (< c1 c2) c1 c2))
17 (set! c-min (if (< c3 c-min) c3 c-min))
18 (put-char c-min) ; a
19 (put-line)
20
21 (var c-max (if (> c1 c2) c1 c2))
22 (set! c-max (if (> c3 c-max) c3 c-max))
23 (put-char c-max) ; z
24 (put-line)
25
26 ; integer -----------------------------------
27 (func put-integer(i)
28 (put-string (integer->string i))
29 )
30
31 (var i1 1)
32 (var i2 3)
33 (var i3 7)
34
35 (var i-min (if (< i1 i2) i1 i2))
36 (set! i-min (if (< i3 i-min) i3 i-min))
37 (put-integer i-min) ; 1
38 (put-line)
39
40 (var i-max (if (> i1 i2) i1 i2))
41 (set! i-max (if (> i3 i-max) i3 i-max))
42 (put-integer i-max) ; 7
43 (put-line)