September 2017 Update

Task/Loops-Infinite/Agena/loops-infinite.agena

@@ -0,0 +1,3 @@
+do
+    print( "SPAM" )
+od

Task/Loops-Infinite/Bc/loops-infinite.bc

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

Task/Loops-Infinite/Beeswax/loops-infinite.beeswax

@@ -0,0 +1,2 @@
+_>`SPA`p
+  bN`M`<

Task/Loops-Infinite/Dart/loops-infinite.dart

@@ -0,0 +1,5 @@
+main() {
+  while(true) {
+    print("SPAM");
+  }
+}

Task/Loops-Infinite/Dc/loops-infinite.dc

@@ -0,0 +1,2 @@
+[[SPAM
+]P dx]dx

Task/Loops-Infinite/EDSAC-order-code/loops-infinite.edsac

@@ -0,0 +1,33 @@
+[ Infinite loop
+  =============
+
+  A program for the EDSAC
+
+  Works with Initial Orders 2 ]
+
+        T56K
+        GK
+
+        O10@  [ letter shift ]
+
+[  1 ]  A17@  [ a += C(17@) ]
+        O11@
+        O12@
+        O13@
+        O14@
+        O15@
+        O16@
+        T17@  [ C(17@) = a; a = 0 ]
+        E1@   [ if a >= 0 goto 1@ ]
+
+[ 10 ]  *F
+[ 11 ]  SF
+[ 12 ]  PF
+[ 13 ]  AF
+[ 14 ]  MF
+[ 15 ]  @F    [ carriage return ]
+[ 16 ]  &F    [ line feed ]
+
+[ 17 ]  PF
+
+        EZPF

Task/Loops-Infinite/Elena/loops-infinite.elena

@@ -1,9 +1,7 @@
-#import system.
-
-#symbol program =
+program =
 [
-    #loop true?
+    while (true)
     [
-        console writeLine:"span".
+        console writeLine:"spam".
     ].
 ].

Task/Loops-Infinite/Fortran/loops-infinite-3.f

@@ -1,2 +0,0 @@
-10 WRITE(*,*) "SPAM"
-   GOTO 10

Task/Loops-Infinite/Gambas/loops-infinite.gambas

@@ -0,0 +1,7 @@
+Public Sub Main()
+
+Do
+  Print "SPAM"
+Loop
+
+End

Task/Loops-Infinite/Halon/loops-infinite-1.halon

@@ -0,0 +1,3 @@
+forever {
+    echo "SPAM";
+}

Task/Loops-Infinite/Halon/loops-infinite-2.halon

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

Task/Loops-Infinite/HolyC/loops-infinite.holyc

@@ -0,0 +1 @@
+while(1) Print("SPAM\n");

Task/Loops-Infinite/Kotlin/loops-infinite.kotlin

@@ -0,0 +1,5 @@
+// version 1.0.6
+
+fun main(args: Array<String>) {
+    while (true) println("SPAM")
+}

Task/Loops-Infinite/PILOT/loops-infinite.pilot

@@ -0,0 +1,3 @@
+*TypeSpam
+type:SPAM
+jump:*TypeSpam

Task/Loops-Infinite/PlainTeX/loops-infinite.tex

@@ -0,0 +1,3 @@
+\newlinechar`\^^J
+\def\spam{\message{SPAM^^J}\spam}%
+\spam

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

@@ -0,0 +1,11 @@
+/go {
+  /spam
+     { (SPAM\n) print flush }
+  bind def % bind and define spam
+
+  { spam } % procedure that will be executed by loop and will call spam to print
+  loop % the loop
+}
+
+%start spamming!
+go

Task/Loops-Infinite/SPL/loops-infinite.spl

@@ -0,0 +1,3 @@
+>
+  #.output("SPAM")
+<

Task/Loops-Infinite/Sed/loops-infinite.sed

@@ -0,0 +1,4 @@
+:loop
+s/.*/SPAM/
+p
+t loop

Task/Loops-Infinite/Stata/loops-infinite-1.stata

@@ -0,0 +1,3 @@
+while 1 {
+        display "SPAM"
+}

Task/Loops-Infinite/Stata/loops-infinite-2.stata

@@ -0,0 +1 @@
+while (1) printf("SPAM\n")

Task/Loops-Infinite/Stata/loops-infinite-3.stata

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

Task/Loops-Infinite/XLISP/loops-infinite-1.xlisp

@@ -0,0 +1,4 @@
+(defun keep-printing-spam ()
+    (while t
+        (display "SPAM")
+        (newline) ) )

Task/Loops-Infinite/XLISP/loops-infinite-2.xlisp

@@ -0,0 +1,4 @@
+(defun keep-printing-spam ()
+    (display "SPAM")
+    (newline)
+    (keep-printing-spam) )

Task/Loops-Infinite/Zkl/loops-infinite.zkl

@@ -0,0 +1,6 @@
+while(1)   { println("SPAM") }
+while(True){ println("SPAM") }
+foreach _ in ([0..]){ println("SPAM") }
+[0..].pump(Console.println,T(Void,"SPAM"));
+[0..].pump(fcn{ println("SPAM") });
+fcn{ println("SPAM"); return(self.fcn()) }(); // tail recursive lambda