langs a-z

Task/Loops-Infinite/Nemerle/loops-infinite-1.nemerle

@@ -0,0 +1 @@
+while (true) WriteLine("SPAM");

Task/Loops-Infinite/Nemerle/loops-infinite-2.nemerle

@@ -0,0 +1,5 @@
+def loop() : void
+{
+    WriteLine("SPAM");
+    loop();
+}

Task/Loops-Infinite/NetRexx/loops-infinite.netrexx

@@ -0,0 +1,9 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols nobinary
+
+  say
+  say 'Loops/Infinite'
+
+  loop label spam forever
+    say 'SPAM'
+    end spam

Task/Loops-Infinite/OCaml/loops-infinite-1.ocaml

@@ -0,0 +1,3 @@
+while true do
+  print_endline "SPAM"
+done

Task/Loops-Infinite/OCaml/loops-infinite-2.ocaml

@@ -0,0 +1,5 @@
+let rec inf_loop() =
+  print_endline "SPAM";
+  inf_loop()
+in
+inf_loop()

Task/Loops-Infinite/Objeck/loops-infinite.objeck

@@ -0,0 +1,3 @@
+while(true) {
+  "SPAM"->PrintLine();
+};

Task/Loops-Infinite/Occam/loops-infinite.occam

@@ -0,0 +1,5 @@
+#USE "course.lib"
+PROC main (CHAN BYTE screen!)
+  WHILE TRUE
+    out.string("SPAM*c*n", 0, screen)
+:

Task/Loops-Infinite/Octave/loops-infinite.octave

@@ -0,0 +1,3 @@
+while(1)
+  disp("SPAM")
+endwhile

Task/Loops-Infinite/Oz/loops-infinite.oz

@@ -0,0 +1,3 @@
+for do
+   {Show 'SPAM'}
+end

Task/Loops-Infinite/PARI-GP/loops-infinite-1.pari

@@ -0,0 +1,3 @@
+while(1,
+  print("SPAM")
+);

Task/Loops-Infinite/PARI-GP/loops-infinite-2.pari

@@ -0,0 +1 @@
+until(print('SPAM),)

Task/Loops-Infinite/PL-I/loops-infinite.pli

@@ -0,0 +1,3 @@
+do forever;
+   put list ('SPAM'); put skip;
+end;

Task/Loops-Infinite/Pascal/loops-infinite-1.pascal

@@ -0,0 +1,2 @@
+while true do
+  writeln('SPAM');

Task/Loops-Infinite/Pascal/loops-infinite-2.pascal

@@ -0,0 +1,3 @@
+repeat
+  writeln('SPAM')
+until false;

Task/Loops-Infinite/Perl-6/loops-infinite-1.pl6

@@ -0,0 +1,3 @@
+loop {
+    say 'SPAM';
+}

Task/Loops-Infinite/Perl-6/loops-infinite-2.pl6

@@ -0,0 +1,3 @@
+print "SPAM\n" xx *;      # repetition operator
+print "SPAM\n", ~* ... *; # sequence operator
+map {say "SPAM"}, ^Inf;   # upto operator

Task/Loops-Infinite/Pike/loops-infinite.pike

@@ -0,0 +1,3 @@
+int main(){
+   while(1) write("SPAM\n");
+}

Task/Loops-Infinite/Pop11/loops-infinite.pop11

@@ -0,0 +1,3 @@
+while true do
+    printf('SPAM', '%p\n');
+endwhile;

Task/Loops-Infinite/PostScript/loops-infinite.ps

@@ -0,0 +1 @@
+{}loop

Task/Loops-Infinite/PowerShell/loops-infinite.psh

@@ -0,0 +1,3 @@
+for () {
+    "SPAM"
+}

Task/Loops-Infinite/PureBasic/loops-infinite-1.purebasic

@@ -0,0 +1,3 @@
+Repeat
+  PrintN("SPAM")
+ForEver

Task/Loops-Infinite/PureBasic/loops-infinite-2.purebasic

@@ -0,0 +1,3 @@
+PrintIt:
+PrintN("SPAM")
+Goto PrintIt

Task/Loops-Infinite/REBOL/loops-infinite.rebol

@@ -0,0 +1 @@
+forever [print "SPAM"]

Task/Loops-Infinite/Retro/loops-infinite.retro

@@ -0,0 +1 @@
+[ "SPAM\n" puts -1 ] while

Task/Loops-Infinite/Run-BASIC/loops-infinite.run

@@ -0,0 +1,5 @@
+[loop] print "Spam" :goto [loop]
+
+while 1
+print "Spam"
+wend

Task/Loops-Infinite/SNOBOL4/loops-infinite.sno

@@ -0,0 +1,2 @@
+loop output = "SPAM" :(loop)
+end

Task/Loops-Infinite/Salmon/loops-infinite.salmon

@@ -0,0 +1,2 @@
+while (true)
+    "SPAM"!;

Task/Loops-Infinite/Seed7/loops-infinite.seed7

@@ -0,0 +1,8 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  begin
+    while TRUE do
+      writeln("SPAM");
+    end while;
+  end func;

Task/Loops-Infinite/Slate/loops-infinite.slate

@@ -0,0 +1 @@
+[inform: 'SPAM'] loop

Task/Loops-Infinite/Standard-ML/loops-infinite-1.ml

@@ -0,0 +1,2 @@
+while true do
+  print "SPAM\n";

Task/Loops-Infinite/Standard-ML/loops-infinite-2.ml

@@ -0,0 +1,8 @@
+let
+  fun inf_loop () = (
+    print "SPAM\n";
+    inf_loop ()
+  )
+in
+  inf_loop ()
+end

Task/Loops-Infinite/SystemVerilog/loops-infinite.v

@@ -0,0 +1,3 @@
+program main;
+  initial forever $display("SPAM");
+endprogram

Task/Loops-Infinite/TI-83-BASIC/loops-infinite-1.ti-83

@@ -0,0 +1,3 @@
+  :Lbl 1
+  :Disp "SPAM
+  :Goto 1

Task/Loops-Infinite/TI-83-BASIC/loops-infinite-2.ti-83

@@ -0,0 +1,3 @@
+  :While 1
+  :Disp "SPAM
+  :End

Task/Loops-Infinite/TI-89-BASIC/loops-infinite.ti-89

@@ -0,0 +1,3 @@
+Loop
+  Disp "SPAM"
+EndLoop

Task/Loops-Infinite/TUSCRIPT/loops-infinite.tuscript

@@ -0,0 +1,4 @@
+$$ MODE TUSCRIPT
+LOOP/999999999
+print "spam"
+ENDLOOP

Task/Loops-Infinite/TorqueScript/loops-infinite.torquescript

@@ -0,0 +1,2 @@
+While(1)
+    echo("SPAM");

Task/Loops-Infinite/Transact-SQL/loops-infinite.sql

@@ -0,0 +1,3 @@
+WHILE 1=1 BEGIN
+ PRINT "SPAM"
+END

Task/Loops-Infinite/Trith/loops-infinite.trith

@@ -0,0 +1 @@
+["SPAM" print] loop

Task/Loops-Infinite/UNIX-Shell/loops-infinite-1.sh

@@ -0,0 +1 @@
+while :; do echo SPAM; done

Task/Loops-Infinite/UNIX-Shell/loops-infinite-2.sh

@@ -0,0 +1 @@
+while true; do echo "SPAM"; done

Task/Loops-Infinite/UNIX-Shell/loops-infinite-3.sh

@@ -0,0 +1 @@
+until false; do echo "SPAM"; done

Task/Loops-Infinite/UNIX-Shell/loops-infinite-4.sh

@@ -0,0 +1 @@
+for ((;;)); do echo "SPAM"; done

Task/Loops-Infinite/UNIX-Shell/loops-infinite-5.sh

@@ -0,0 +1,3 @@
+while (1)
+	echo SPAM
+end

Task/Loops-Infinite/UNIX-Shell/loops-infinite-6.sh

@@ -0,0 +1 @@
+forever {echo SPAM}

Task/Loops-Infinite/UnixPipes/loops-infinite.unixpipes

@@ -0,0 +1 @@
+yes SPAM

Task/Loops-Infinite/Unlambda/loops-infinite.unlambda

@@ -0,0 +1 @@
+ ``ci``s``s`kr``s``s``s``s`k.S`k.P`k.A`k.Mii

Task/Loops-Infinite/V/loops-infinite.v

@@ -0,0 +1,3 @@
+true [
+   'SPAM' puts
+] while

Task/Loops-Infinite/Vala/loops-infinite-1.vala

@@ -0,0 +1 @@
+for(;;) stdout.printf("SPAM\n");

Task/Loops-Infinite/Vala/loops-infinite-2.vala

@@ -0,0 +1 @@
+while(true) stdout.printf("SPAM\n");

Task/Loops-Infinite/Vala/loops-infinite-3.vala

@@ -0,0 +1 @@
+do stdout.printf("SPAM\n"); while(true);

Task/Loops-Infinite/Vedit-macro-language/loops-infinite-1.vedit

@@ -0,0 +1,3 @@
+while (1) {
+    Message("Spam\n")
+}

Task/Loops-Infinite/Vedit-macro-language/loops-infinite-2.vedit

@@ -0,0 +1,3 @@
+do {
+    Message("Spam\n")
+} while (1)

Task/Loops-Infinite/Vedit-macro-language/loops-infinite-3.vedit

@@ -0,0 +1,3 @@
+for (;1;) {
+    Message("Spam\n")
+}

Task/Loops-Infinite/Vedit-macro-language/loops-infinite-4.vedit

@@ -0,0 +1,3 @@
+Repeat (ALL) {
+    Message("Spam\n")
+}

Task/Loops-Infinite/Visual-Basic-.NET/loops-infinite.visual

@@ -0,0 +1,3 @@
+Do
+    Console.WriteLine("SPAM")
+Loop

Task/Loops-Infinite/Visual-Basic/loops-infinite.vb

@@ -0,0 +1,3 @@
+Do
+    Debug.Print("SPAM")
+Loop

Task/Loops-Infinite/X86-Assembly/loops-infinite.x86

@@ -0,0 +1,14 @@
+section .text
+	global _start
+	
+	_start:
+		mov edx, len
+		mov ecx, msg
+		mov ebx, 1
+		mov eax, 4
+		int 0x80
+		jmp _start
+		
+section .data
+msg		db "SPAM",0xa
+len		equ $-msg

Task/Loops-Infinite/XPL0/loops-infinite.xpl0

@@ -0,0 +1,3 @@
+code Text=12;
+loop Text(0, "SPAM
+")

Task/Loops-Infinite/Z80-Assembly/loops-infinite.z80

@@ -0,0 +1,14 @@
+org		$4000
+
+txt_output:	equ	$bb5a
+
+start:		ld	hl,spam
+
+print:		ld	a,(hl)
+		cp	0
+		jr	z,start
+		call	txt_output
+		inc	hl
+		jr	print
+
+spam:		defm	"SPAM\r\n\0"