;;; 0〜9の総和 (let ((x 0) (sum 0)) (loop-while (< x 10) (setq sum (+ sum x)) (setq x (1+ x))) sum) ; => 45 (cl-loop with x = 0 with sum = 0 while (< x 10) do (setq sum (+ sum x)) (setq x (1+ x)) finally return sum) ; => 45 (cl-loop for x from 0 below 10 sum x) ; => 45 ;;; 0〜5の総和 (let ((x 0) (sum 0)) (loop-while (< x 10) (setq sum (+ sum x)) (setq x (1+ x)) (when (= x 6) (loop-break))) sum) ; => 15 (c