Loops/Infinite

Loops/Infinite
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>

BASIC

Works with: QuickBasic version 4.5

<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>

Forth

: email   begin ." SPAM" cr again ;

Fortran

Works with: Fortran version 90 and later

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