s表达式 + 1 2 3
普通表达式 1+2+3
json表达式
{
+:[1, 2,
3]
}
优点，一个运算符，无限个参数
s表达式 * (+ 1 2) 3
普通表达式 1+(2*3)
json表达式
{
*:[{+:[1,2]} ,
3]
}
优点，阅读代码的时候，无需记住运算优先级。普通表达式则要记住运算优先级
s表达式判断 if (< x 0) (-x) (x)
普通表达式 if(x<0){return -x} else{return
x}
json表达式
{
if:[{ <: [x,0]}, -x, x]
}
s表达式and判断 if (and (> x 0) (< x 10)) (-x)
(x)
json表达式
{
if: [ {and: [{>:[x, 0]} , {<: [x, 10]} ]}, -x,
x]
}
s表达式的递归
define (factorial n)
(if (= n 1))
(1)
(* n (factorial
(- n 1)))
json表达式
{
define: [{factorial:n}, {if:[{=:[n, 1]}, 1, {*:[n,
{factorial:[{-:[n, 1]}] }]} ]}]
}
s表达式的迭代
define (factorial n) (fact-iter 1 1
n)
{
define:[{factorial:n}, {fact-iter:[1, 1, n]}]
}
define (fact-iter product counter max-count)
(if (> counter
max-count))
(product)
(fact-iter (* counter product)) (+ counter
1) (max-count)))