ゆとり受け身マンだけどプログラミング勉強する #48

いまいち美しくないが・・・

(defun 　kuku 　(y)
　 (if (= y 10) 　　nil
　　 (progn
　　　　 　 (print (kukuRow 　y　 y　 (* y 10)))
　　　　　 (kuku (+ y 1)) ) ))

(defun　 kukuRow 　(x 　incval 　stopval)
　　 (if (= x stopval)　　 nil
　 　　　(cons x 　(kukuRow 　(+ x incval) 　incval 　stopval )) ))


(kuku 1)　　　　；　実行！