Loops/Infinite: Difference between revisions

 

=={{header|4DOS Batch}}==

 

do forever

echo SPAM

 

=={{header|6502 Assembly}}==

Specific OS/hardware routines for printing are left unimplemented.

PrintLoop: LDA MSG,x

JSR PrintAccumulator ;routine not implemented

CPX #5

BNE PrintLoop

 

 

=={{header|ActionScript}}==

trace("SPAM");

 

=={{header|Ada}}==

Put_Line("SPAM");

=={{header|ALGOL 68}}==

printf($"SPAM"l$)

Or the classic "dynamic halt":

printf($"SPAM"l$);

 

=={{header|AmigaE}}==

LOOP

WriteF('SPAM')

ENDLOOP

=={{header|AutoHotkey}}==

 

=={{header|AWK}}==

while(1) {

print "SPAM"

}

 

=={{header|BASIC}}==

{{works with|QuickBasic|4.5}}

Old-fashioned syntax:

print "SPAM"

 

Standard BASIC:

print "SPAM"

 

Also

print "SPAM"

 

 

=={{header|Batch File}}==

Using <code>goto</code>:

:loop

echo SPAM

Another variant which uses Windows NT's <code>for</code> statement:

 

{{works with|Windows NT|4 or later}}

This essentially is a counted loop which starts at <code>1</code>, increments by <code>0</code> and stops when the counter reaches <code>2</code>.

 

=={{header|Befunge}}==

 

=={{header|Brainf***}}==

 

=={{header|C}}==

or

or

or

or

 

=={{header|C sharp|C#}}==

 

{

Console.WriteLine("SPAM");

 

=={{header|ColdFusion}}==

 

With tags:

SPAM

With script:

while( true != false )

{

writeOutput( "SPAM" );

}

 

 

=={{header|Common Lisp}}==

 

=={{header|D}}==

 

=={{header|E}}==

 

println("SPAM")

 

println("SPAM")

f <- ()

}

 

 

=={{header|Erlang}}==

 

 

=={{header|F Sharp|F#}}==

while true do

printfn "SPAM"

 

let rec forever () : unit =

 

=={{header|Factor}}==

 

=={{header|FALSE}}==

 

=={{header|Forth}}==

 

=={{header|Fortran}}==

 

=={{header|Go}}==

import "fmt"

func main() {

for {

fmt.Printf("SPAM\n")

}

 

=={{header|Groovy}}==

println 'SPAM'

 

=={{header|Haskell}}==

 

=={{header|HicEst}}==

WRITE() "SPAM"

 

 

repeat write("SPAM")

 

Alternately one could use one of these:

...

while write("SPAM") # always succeeds, needs failure to break

while write(|"SPAM") # this is a common mistake that results in an endless loop

...

 

=={{header|IDL}}==

 

=={{header|Io}}==

 

=={{header|J}}==

 

 

Alternatively,

 

 

 

=={{header|Java}}==

 

 

=={{header|JavaScript}}==

 

=={{header|Joy}}==

 

 

=={{header|Lisaac}}==

 

=={{header|Logo}}==

 

=={{header|Lua}}==

print("SPAM")

end

 

=={{header|M4}}==

spam')

 

=={{header|Make}}==

@echo SPAM

 

=={{header|MAXScript}}==

 

=={{header|Metafont}}==

 

 

=={{header|Modula-3}}==

IO.Put("SPAM\n");

 

=={{header|MOO}}==

player:tell("SPAM");

=={{header|MUMPS}}==

FOR WRITE "SPAM",!

 

=={{header|Objeck}}==

while(true) {

"SPAM"->PrintLine();

};

 

=={{header|OCaml}}==

print_endline "SPAM"

 

or

 

print_endline "SPAM";

inf_loop()

in

 

Seen like this it looks like the "too much functional" danger when a "while" loop looks far simpler, but the functional loop may be useful to provide data to the next loop without using mutable variable.

 

=={{header|Octave}}==

disp("SPAM")

 

=={{header|Oz}}==

{Show 'SPAM'}

 

=={{header|Pascal}}==

Alternatively:

writeln('SPAM')

 

=={{header|Perl}}==

 

 

 

=={{header|PHP}}==

 

=={{header|PicoLisp}}==

 

=={{header|Pike}}==

 

=={{header|PL/I}}==

do forever;

put list ('SPAM'); put skip;

 

=={{header|Pop11}}==

printf('SPAM', '%p\n');

 

=={{header|PostScript}}==

 

=={{header|PowerShell}}==

"SPAM"

 

=={{header|Prolog}}==

 

=={{header|PureBasic}}==

===Repeat/Forever===

PrintN("SPAM")

 

===Goto===

PrintN("SPAM")

 

=={{header|Python}}==

 

 

=={{header|R}}==

 

 

=={{header|REBOL}}==

 

 

=={{header|REXX}}==

 

=={{header|Ruby}}==

=={{header|Sather}}==

main is

loop

end;

end;

 

=={{header|Scala}}==

 

=={{header|Scheme}}==

 

=={{header|Slate}}==

 

=={{header|Smalltalk}}==

 

=={{header|SNOBOL4}}==

 

=={{header|SNUSP}}==

| | | \M=@@@@+@+++++# \.>.>.>.>./

| | \A=@@+@@@@+++#

| \P=@@+@@+@@+++#

 

=={{header|Standard ML}}==

 

or

 

fun inf_loop () = (

print "SPAM\n";

in

inf_loop ()

 

Seen like this it looks like the "too much functional" danger when a "while" loop looks far simpler, but the functional loop may be useful to provide data to the next loop without using mutable variable.

 

=={{header|SystemVerilog}}==

 

initial forever $display("SPAM");

endprogram

 

=={{header|Tcl}}==

puts SPAM

}

for {} 1 {} {

puts SPAM

 

=={{header|TI-83 BASIC}}==

There are a few ways to achieve this in TI-83 BASIC

 

:Lbl 1

:Goto 1

 

Another way is by using a While loop

 

 

=={{header|TI-89 BASIC}}==

 

Disp "SPAM"

 

=={{header|Trith}}==

 

=={{header|UNIX Shell}}==

{{works with|Bourne Shell}}

 

 

 

 

 

 

 

 

=={{header|UnixPipes}}==

 

=={{header|Unlambda}}==

 

=={{header|V}}==

'SPAM' puts

 

=={{header|Vedit macro language}}==

Message("Spam\n")

or:

Message("Spam\n")

or:

Message("Spam\n")

"Nearly infinite" loop can be done by using constant ALL (=1073741824) as repeat count:

Message("Spam\n")

 

=={{header|Visual Basic}}==

Debug.Print("SPAM")

 

=={{header|Visual Basic .NET}}==

'''Platform:''' [[.NET]]

{{works with|Visual Basic .NET|9.0+}}

Console.WriteLine("SPAM")