categoryLISP覚書

繰り返し loop

trackback0  comment0
プログラミング覚書 006

繰り返し
(loop 式1 式2 .... 式n)
----------------------------------------------------------------------

(setq x 1)
(setq sum 0)
(loop (and (> x 100) (return sum))
(setq sum (+ sum x))
(setq x (1+ x))) ;5050

----------------------------------------------------------------------
loopはreturnで値を返してループを抜ける。
関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/47-8facd554