Loops/Infinite: Difference between revisions
< Loops
Content added Content deleted
(→{{header|UnixPipes}}: changing to the yes version, as mentioned in discussion) |
|||
Line 85: | Line 85: | ||
=={{header|UnixPipes}}== |
=={{header|UnixPipes}}== |
||
<pre language="unixpipes">yes SPAM</pre> |
<pre language="unixpipes">yes SPAM</pre> |
||
=={{header|V}}== |
|||
true [ |
|||
'SPAM' puts |
|||
] while |
Revision as of 09:57, 26 April 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>
Prolog
repeat, write('SPAM'), nl, fail.
Python
<python>while 1:
print "SPAM"</python>
Ruby
while true do
puts "SPAM"
end
UnixPipes
yes SPAM
V
true [ 'SPAM' puts ] while