Loops/Infinite: Difference between revisions
< Loops
Content added Content deleted
No edit summary |
|||
Line 70: | Line 70: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
<perl>while(1){print"SPAM\n"}</perl> |
<perl>while(1){print"SPAM\n"}</perl> |
||
=={{header|Pop11}}== |
|||
<pre> |
|||
while true do |
|||
printf('SPAM', '%p\n'); |
|||
endwhile; |
|||
</pre> |
|||
=={{header|Prolog}}== |
=={{header|Prolog}}== |
Revision as of 15:16, 18 May 2008
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>
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>
Forth
: email begin ." SPAM" cr again ;
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