Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Lisp

Idiom #50 Make an infinite loop

Write a loop that has no end clause.

Ouroboros eating its own tail 
(do () (nil)
  (write-line "Control-C to quit this infinite loop")
  (sleep 1))

Kill the Lisp process to exit.
DO is the most general kind of loop, supporting local variables and complex iteration logic.
A common alternative is "(LOOP)", but you'll have to learn its non-Lispy syntax.
(defun infinite-loop (x)
  (apply x (infinite-loop x)))

Not exactly the same as the original since that was in scheme and this is Common Lisp but it infinitely loops until the control stack is exhausted.
(loop)
loop
   null;
end loop;

null; means "do nothing"
New implementation...
< > ⌨
programming-idioms.org 
(do () (nil)
  (write-line "Control-C to quit this infinite loop")
  (sleep 1))
(defun infinite-loop (x)
  (apply x (infinite-loop x)))
(loop)
loop
   null;
end loop;
forever {
	// Do something
}
for(;;){
	// Do something
}
while(1){
	// Do something
}
loop:
	goto loop;

(loop []
  ;; do something
  (recur))
IDENTIFICATION DIVISION.
PROGRAM-ID. no end loop.
PROCEDURE DIVISION.
PERFORM UNTIL 1 < 0
   DISPLAY "Something"
END-PERFORM
STOP RUN.
while (true) {
	// Do something
}
for (;;) {
	/// Do something
}
while (true)
{
    // Do something
}
while (true) { }
for (;;) {}
for (;;) {

}
while (true) {
  // do something
}
defmodule Looping do
	def infinite do
		# Write code here	
		infinite
	end
end
loop() ->
	do:something(),
	loop().
do
end do
for {
	// Do something
}
while (true) { }
forever (getLine >>= putStrLn)

let x = x in x
forever $ pure ()
for(;;) {
	console.log('Oops')
}
while (true) {
	// to infinity
}
for (;;);
while(true) {
	// Do something	
}
for(;;){
	// Do something
}
while (true);
do {} while (true);
while (true) { }
while true do 
	-- Do something
end
repeat
until false
::loop::
goto loop
for (;;);
while (true) {
    // do something
}
repeat until false;
While True do { nothing };
say "" while True;
while (1) {
   do_stuff();
}
repeat, write("hello\n").
?- repeat, false.

% repeat/0 is built-in, but could be defined like this:
repeat.
repeat :- repeat.
loop :- loop.

?- loop.
while 1: ...
while True:
    pass
loop do
  # endless joy
end
loop {
	// Do something
}
while(true){
  println(3)
}
(let forever ()
  (forever))
[] repeat.
Do
    ' Do something
Loop