Loops/For: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,086: / Line 1,086: @@
       (princ #\*))
     (terpri))</lang>
-=={{header|Emacs Lisp}}==
-<lang 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: / Line 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>
+*
+**
+***
+****
+*****
+</pre>
 =={{header|Erlang}}==