像这样的

lisp没有c风格的for，所以换成了python解法，lisp和python挺像的

(let loop ([row 1] [column 1])
(cond [(> row 9) (void)]
[(> row column)
(printf "~a*~a=~a "
row column (* row column))
(loop row (add1 column))]
[(= row column)
(printf "~a*~a=~a\n"
row column (* row column))
(loop (add1 row) 1)]))
Lisp一般不是用递归去解决问题的吗？