s表达式和json表达式

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)))