Loops/For: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 1,086:
(princ #\*))
(terpri))</lang>
=={{header|Emacs Lisp}}==▼
(let ((i nil))▼
(while (progn (setq i (if (not i) 0 (1+ i) )) ;; if value of i is nil, initialize its value to 0, if else, add 1▼
(< i 10)) ;; end loop when i > 10▼
(... body ...) ) ) ;; loop body▼
</lang>▼
=={{header|Coq}}==
Line 1,509 ⟶ 1,501:
one line (Comprehensions)
<lang elixir>for i <- 1..5, do: IO.puts (for j <- 1..i, do: "*")</lang>
▲=={{header|Emacs Lisp}}==
<lang lisp>;; Lisp implementation of c-for is like:
▲;; (let ((i nil))
▲;; (while (progn (setq i (if (not i) 0 (1+ i) )) ;; if value of i is nil, initialize its value to 0, if else, add 1
▲;; (< i 10)) ;; end loop when i > 10
▲;; (... body ...) ) ) ;; loop body
(let ((i nil) (str ""))
(while (progn (setq i (if (not i) 0 (1+ i) ))
(< i 5))
(setq str (concat str "*"))
(message str) ) )</lang>
output logged in buffer *Messages*:
<pre>
*
**
***
****
*****
=={{header|Erlang}}==
| |||