Loops/Infinite
< Loops
Loops/Infinite
You are encouraged to solve this task according to the task description, using any language you may know.
You are encouraged to solve this task according to the task description, using any language you may know.
Specifically print out "SPAM" followed by a newline in an infinite loop.
Ada
<ada>loop
Put_Line("SPAM");
end loop;</ada>
ALGOL 68
DO printf($"SPAM"l$) OD
BASIC
<qbasic>while 1 print "SPAM" wend</qbasic> Also <qbasic>for i = 1 to 10 step 0 print "SPAM" next i</qbasic>
With classic BASIC, the standard way to make an infinite loop would be:
10 PRINT "SPAM" 20 GOTO 10
C
<c>while(1) puts("SPAM");</c>
Common Lisp
<lisp>(loop (write-line "SPAM"))</lisp>
D
<d>while(true) writefln("SPAM") ;</d> <d>for(;;) writefln("SPAM") ;</d>
Forth
: email begin ." SPAM" cr again ;
Fortran
DO WRITE(*,*) "SPAM" END DO
Although deprecated GOTO is still available
10 WRITE(*,*) "SPAM" GOTO 10
Groovy
while (true) { println 'SPAM' }
Haskell
forever (putStrLn "SPAM")
Java
<java>while(true){
System.out.println("SPAM");
}</java>
<java>for(;;){
System.out.println("SPAM");
}</java>
JavaScript
for (;;) print("SPAM"); while (true) print("SPAM");
Logo
forever [print "SPAM]
MAXScript
while true do print "SPAM\n"
OCaml
<ocaml>while true do
print_endline "SPAM"
done</ocaml>
Pascal
<pascal> while true do
writeln('SPAM');
</pascal>
Perl
<perl>while(1){print"SPAM\n"}</perl>
Pop11
while true do printf('SPAM', '%p\n'); endwhile;
Prolog
repeat, write('SPAM'), nl, fail.
Python
<python>while 1:
print "SPAM"</python>
Ruby
loop do
puts "SPAM"
end
UnixPipes
yes SPAM
V
true [ 'SPAM' puts ] while