Loops/Infinite: Difference between revisions
< Loops
Content added Content deleted
(Added BASIC) |
(JavaScript, Forth) |
||
Line 15: | Line 15: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
<lisp>(loop (write-line "SPAM"))</lisp> |
<lisp>(loop (write-line "SPAM"))</lisp> |
||
=={{header|Forth}}== |
|||
: email begin ." SPAM" cr again ; |
|||
=={{header|Groovy}}== |
=={{header|Groovy}}== |
||
Line 32: | Line 35: | ||
System.out.println("SPAM"); |
System.out.println("SPAM"); |
||
}</java> |
}</java> |
||
=={{header|JavaScript}}== |
|||
for (;;) print("SPAM"); |
|||
while (true) print("SPAM"); |
|||
=={{header|Logo}}== |
=={{header|Logo}}== |
Revision as of 22:31, 13 April 2008
![Task](http://static.miraheze.org/rosettacodewiki/thumb/b/ba/Rcode-button-task-crushed.png/64px-Rcode-button-task-crushed.png)
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>
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>
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
while true ; do echo "YES" ; done