A-M baby

Task/Loops-Infinite/0DESCRIPTION

@@ -0,0 +1 @@
+Specifically print out "SPAM" followed by a newline in an infinite loop.

Task/Loops-Infinite/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: Iteration

Task/Loops-Infinite/4DOS-Batch/loops-infinite.4dos

@@ -0,0 +1,4 @@
+@echo off
+do forever
+  echo SPAM
+enddo

Task/Loops-Infinite/6502-Assembly/loops-infinite.6502

@@ -0,0 +1,9 @@
+InfiniteLoop	LDX #0
+PrintLoop:	LDA MSG,x
+		JSR PrintAccumulator	;routine not implemented
+		INX
+		CPX #5
+		BNE PrintLoop
+		BEQ InfiniteLoop
+
+MSG		.byte "SPAM", $0A

Task/Loops-Infinite/ACL2/loops-infinite.acl2

@@ -0,0 +1,6 @@
+(defun spam ()
+   (declare (xargs :mode :program))
+   (if nil
+       nil
+       (prog2$ (cw "SPAM~%")
+               (spam))))

Task/Loops-Infinite/ALGOL-68/loops-infinite-1.alg

@@ -0,0 +1,3 @@
+DO
+  printf($"SPAM"l$)
+OD

Task/Loops-Infinite/ALGOL-68/loops-infinite-2.alg

@@ -0,0 +1,3 @@
+loop x:
+   printf($"SPAM"l$);
+loop x

Task/Loops-Infinite/AWK/loops-infinite.awk

@@ -0,0 +1,5 @@
+BEGIN {
+  while(1) {
+    print "SPAM"
+  }
+}

Task/Loops-Infinite/ActionScript/loops-infinite.as

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

Task/Loops-Infinite/Ada/loops-infinite.ada

@@ -0,0 +1,3 @@
+loop
+   Put_Line("SPAM");
+end loop;

Task/Loops-Infinite/Aime/loops-infinite.aime

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

Task/Loops-Infinite/AmigaE/loops-infinite.amiga

@@ -0,0 +1,5 @@
+PROC main()
+  LOOP
+    WriteF('SPAM')
+  ENDLOOP
+ENDPROC

Task/Loops-Infinite/AppleScript/loops-infinite.applescript

@@ -0,0 +1,3 @@
+repeat
+  log "SPAM"
+end repeat

Task/Loops-Infinite/AutoHotkey/loops-infinite.ahk

@@ -0,0 +1,2 @@
+Loop
+  MsgBox SPAM `n

Task/Loops-Infinite/BASIC/loops-infinite-1.bas

@@ -0,0 +1,3 @@
+while 1
+  print "SPAM"
+wend

Task/Loops-Infinite/BASIC/loops-infinite-2.bas

@@ -0,0 +1,3 @@
+do
+  print "SPAM"
+loop

Task/Loops-Infinite/BASIC/loops-infinite-3.bas

@@ -0,0 +1,3 @@
+for i = 1 to 10 step 0
+  print "SPAM"
+next i

Task/Loops-Infinite/BBC-BASIC/loops-infinite.bbc

@@ -0,0 +1,3 @@
+      REPEAT
+        PRINT "SPAM"
+      UNTIL FALSE

Task/Loops-Infinite/Batch-File/loops-infinite-1.bat

@@ -0,0 +1,4 @@
+@echo off
+:loop
+echo SPAM
+goto loop

Task/Loops-Infinite/Batch-File/loops-infinite-2.bat

@@ -0,0 +1 @@
+for /l %%x in (1,0,2) do @echo SPAM

Task/Loops-Infinite/Befunge/loops-infinite.bf

@@ -0,0 +1 @@
+55+"MAPS",,,,,

Task/Loops-Infinite/Brainf---/loops-infinite.bf

@@ -0,0 +1,2 @@
+++++++++++[->++++++>++++++++>+<<<]>+++++>
+[+++.---.<.>---.+++>.<]

Task/Loops-Infinite/Brat/loops-infinite.brat

@@ -0,0 +1 @@
+loop { p "SPAM" }

Task/Loops-Infinite/C++/loops-infinite-1.cpp

@@ -0,0 +1,2 @@
+while (true)
+  std::cout << "SPAM" << std::endl;

Task/Loops-Infinite/C++/loops-infinite-2.cpp

@@ -0,0 +1,2 @@
+for (;;)
+  std::cout << "SPAM" << std::endl;

Task/Loops-Infinite/C++/loops-infinite-3.cpp

@@ -0,0 +1,3 @@
+do
+  std::cout << "SPAM" << std::endl;
+while (true);

Task/Loops-Infinite/C/loops-infinite-1.c

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

Task/Loops-Infinite/C/loops-infinite-2.c

@@ -0,0 +1 @@
+ for(;;) puts("SPAM");

Task/Loops-Infinite/C/loops-infinite-3.c

@@ -0,0 +1 @@
+do { puts("SPAM"); } while(1);

Task/Loops-Infinite/C/loops-infinite-4.c

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

Task/Loops-Infinite/Clojure/loops-infinite.clj

@@ -0,0 +1 @@
+(loop [] (println "SPAM") (recur))

Task/Loops-Infinite/CoffeeScript/loops-infinite.coffee

@@ -0,0 +1,2 @@
+loop
+  console.log 'SPAM'

Task/Loops-Infinite/ColdFusion/loops-infinite-1.cfm

@@ -0,0 +1,3 @@
+<cfloop condition = "true NEQ false">
+  SPAM
+</cfloop>

Task/Loops-Infinite/ColdFusion/loops-infinite-2.cfm

@@ -0,0 +1,6 @@
+<cfscript>
+  while( true != false )
+  {
+    writeOutput( "SPAM" );
+  }
+</cfscript>

Task/Loops-Infinite/Common-Lisp/loops-infinite.lisp

@@ -0,0 +1 @@
+(loop (write-line "SPAM"))

Task/Loops-Infinite/D/loops-infinite-1.d

@@ -0,0 +1,6 @@
+import std.stdio;
+
+void main() {
+    while (true)
+        writeln("SPAM");
+}

Task/Loops-Infinite/D/loops-infinite-2.d

@@ -0,0 +1,7 @@
+import std.stdio;
+
+void main() {
+    do
+        writeln("SPAM");
+    while (true);
+}

Task/Loops-Infinite/D/loops-infinite-3.d

@@ -0,0 +1,6 @@
+import std.stdio;
+
+void main() {
+    for ( ; ; )
+        writeln("SPAM");
+}

Task/Loops-Infinite/D/loops-infinite-4.d

@@ -0,0 +1,7 @@
+import std.stdio;
+
+void main() {
+    LOOP:
+    writeln("SPAM");
+    goto LOOP;
+}

Task/Loops-Infinite/DWScript/loops-infinite.dwscript

@@ -0,0 +1,2 @@
+while True do
+   PrintLn('SPAM');

Task/Loops-Infinite/Deja-Vu/loops-infinite-1.djv

@@ -0,0 +1,2 @@
+while True:
+	print "SPAM"

Task/Loops-Infinite/Deja-Vu/loops-infinite-2.djv

@@ -0,0 +1,4 @@
+labda:
+	print "SPAM"
+	recurse
+call

Task/Loops-Infinite/Delphi/loops-infinite.delphi

@@ -0,0 +1 @@
+while True do Writeln('SPAM');

Task/Loops-Infinite/E/loops-infinite-1.e

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

Task/Loops-Infinite/E/loops-infinite-2.e

@@ -0,0 +1,5 @@
+def f() {
+    println("SPAM")
+    f <- ()
+}
+f <- ()

Task/Loops-Infinite/Ela/loops-infinite-1.ela

@@ -0,0 +1,3 @@
+open console
+
+loop () = writen "SPAM" $ loop!

Task/Loops-Infinite/Ela/loops-infinite-2.ela

@@ -0,0 +1,5 @@
+open console list
+
+loop () = writen "SPAM" :: (& loop!)
+
+take 10 <| loop! //prints SPAM only first 10 times

Task/Loops-Infinite/Erlang/loops-infinite.erl

@@ -0,0 +1,6 @@
+-module (main).
+-export ([main/1]).
+
+main(Any) ->
+  io:fwrite("SPAM~n",[]),
+  main(Any)

Task/Loops-Infinite/Euphoria/loops-infinite.euphoria

@@ -0,0 +1,3 @@
+while 1 do
+    puts(1, "SPAM\n")
+end while

Task/Loops-Infinite/FALSE/loops-infinite.false

@@ -0,0 +1,2 @@
+[1]["SPAM
+"]#

Task/Loops-Infinite/Factor/loops-infinite-1.factor

@@ -0,0 +1 @@
+: spam ( -- ) "SPAM" print spam ;

Task/Loops-Infinite/Factor/loops-infinite-2.factor

@@ -0,0 +1 @@
+: spam ( -- ) [ "SPAM" print t ] loop ;

Task/Loops-Infinite/Fantom/loops-infinite.fantom

@@ -0,0 +1,10 @@
+class Main
+{
+  public static Void main ()
+  {
+    while (true)
+    {
+      echo ("SPAM")
+    }
+  }
+}

Task/Loops-Infinite/Forth/loops-infinite.fth

@@ -0,0 +1 @@
+: email   begin ." SPAM" cr again ;

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

@@ -0,0 +1,17 @@
+      PROGRAM INFINITELOOP
+C       While you can put this label on the WRITE statement, it is good
+C       form to label CONTINUE statements whenever possible, rather than
+C       statements that actually contain instructions. This way, you can
+C       indent inside the "loop" and make it more readable.
+   10   CONTINUE
+          WRITE (*,*) 'SPAM'
+          GOTO 10
+
+C       It is also good form to close the "loop" with another label. In
+C       this case, there is absolutely no reason to do this at all, but,
+C       if you wanted to break, you would be able to add `GOTO 20` to
+C       exit the loop.
+   20   CONTINUE
+
+        STOP
+      END

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

@@ -0,0 +1,3 @@
+DO
+  WRITE(*,*) "SPAM"
+END DO

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

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

Task/Loops-Infinite/GML/loops-infinite.gml

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

Task/Loops-Infinite/Go/loops-infinite.go

@@ -0,0 +1,7 @@
+package main
+import "fmt"
+func main() {
+	for {
+		fmt.Printf("SPAM\n")
+	}
+}

Task/Loops-Infinite/Groovy/loops-infinite.groovy

@@ -0,0 +1,3 @@
+while (true) {
+ println 'SPAM'
+}

Task/Loops-Infinite/Haskell/loops-infinite-1.hs

@@ -0,0 +1 @@
+forever (putStrLn "SPAM")

Task/Loops-Infinite/Haskell/loops-infinite-2.hs

@@ -0,0 +1,2 @@
+import Control.Monad.Fix (fix)
+fix (putStrLn "SPAM" >>)

Task/Loops-Infinite/HicEst/loops-infinite.hicest

@@ -0,0 +1,3 @@
+DO i = 1, 1E20 ! for i with 16 or more digits:  i == i + 1 == loop infinite
+    WRITE() "SPAM"
+ENDDO

Task/Loops-Infinite/IDL/loops-infinite.idl

@@ -0,0 +1 @@
+while 1 do print,'SPAM'

Task/Loops-Infinite/Icon/loops-infinite-1.icon

@@ -0,0 +1,3 @@
+procedure main()
+   repeat write("SPAM")
+end

Task/Loops-Infinite/Icon/loops-infinite-2.icon

@@ -0,0 +1,9 @@
+until &fail do write("SPAM")   # always fails, needs succeed to break
+...
+while write("SPAM")            # always succeeds, needs failure to break
+...
+every write(|"SPAM")           # generator always succeeds, needs failure to break
+...
+while write(|"SPAM")           # this is a common mistake that results in an endless loop
+...
+while write(1 to 5)            # a clearer version of the same mistake that generates endless 1's

Task/Loops-Infinite/Io/loops-infinite.io

@@ -0,0 +1 @@
+loop("SPAM" println)

Task/Loops-Infinite/J/loops-infinite-1.j

@@ -0,0 +1 @@
+(-[smoutput bind 'SPAM')^:_(1)

Task/Loops-Infinite/J/loops-infinite-2.j

@@ -0,0 +1 @@
+smoutput bind 'SPAM'^:1e99 ''

Task/Loops-Infinite/Java/loops-infinite-1.java

@@ -0,0 +1,3 @@
+while(true){
+   System.out.println("SPAM");
+}

Task/Loops-Infinite/Java/loops-infinite-2.java

@@ -0,0 +1,3 @@
+for(;;){
+   System.out.println("SPAM");
+}

Task/Loops-Infinite/JavaScript/loops-infinite-1.js

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

Task/Loops-Infinite/JavaScript/loops-infinite-2.js

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

Task/Loops-Infinite/Joy/loops-infinite.joy

@@ -0,0 +1,3 @@
+DEFINE loop == [true []] dip while.
+
+["SPAM\n" putchars] loop.

Task/Loops-Infinite/K/loops-infinite.k

@@ -0,0 +1 @@
+   while[1; `0:"SPAM\n"]

Task/Loops-Infinite/Lang5/loops-infinite.lang5

@@ -0,0 +1 @@
+do "SPAM\n" . loop

Task/Loops-Infinite/Liberty-BASIC/loops-infinite.liberty

@@ -0,0 +1,4 @@
+while 1
+  print "SPAM"
+wend
+end

Task/Loops-Infinite/Logo/loops-infinite.logo

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

Task/Loops-Infinite/Lua/loops-infinite.lua

@@ -0,0 +1,8 @@
+while true do
+  print("SPAM")
+end
+
+--Another solution
+repeat
+  print("SPAM")
+until false

Task/Loops-Infinite/M4/loops-infinite.m4

@@ -0,0 +1,3 @@
+define(`spam',`SPAM
+spam')
+spam

Task/Loops-Infinite/MATLAB/loops-infinite.m

@@ -0,0 +1 @@
+    while (1), printf('SPAM\n'); end;

Task/Loops-Infinite/MAXScript/loops-infinite.max

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

Task/Loops-Infinite/MOO/loops-infinite.moo

@@ -0,0 +1,3 @@
+while (1)
+  player:tell("SPAM");
+endwhile

Task/Loops-Infinite/MUMPS/loops-infinite.mumps

@@ -0,0 +1 @@
+ FOR  WRITE "SPAM",!

Task/Loops-Infinite/Make/loops-infinite.make

@@ -0,0 +1,3 @@
+spam:
+   @echo SPAM
+   $(MAKE)

Task/Loops-Infinite/Maple/loops-infinite.maple

@@ -0,0 +1 @@
+> do print(SPAM) end;

Task/Loops-Infinite/Mathematica/loops-infinite.mathematica

@@ -0,0 +1,3 @@
+While[True,
+ Print@"SPAM";
+ ]

Task/Loops-Infinite/Maxima/loops-infinite.maxima

@@ -0,0 +1 @@
+do(disp("SPAM"));

Task/Loops-Infinite/Metafont/loops-infinite.metafont

@@ -0,0 +1 @@
+forever: message "SPAM"; endfor end

Task/Loops-Infinite/Modula-2/loops-infinite.mod2

@@ -0,0 +1,4 @@
+LOOP
+  InOut.WriteString ("SPAM");
+  InOut.WriteLn
+END;

Task/Loops-Infinite/Modula-3/loops-infinite.mod3

@@ -0,0 +1,3 @@
+LOOP
+  IO.Put("SPAM\n");
+END;

Task/Loops-Infinite/PHP/loops-infinite.php

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

Task/Loops-Infinite/Perl/loops-infinite.pl

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

Task/Loops-Infinite/PicoLisp/loops-infinite.l

@@ -0,0 +1 @@
+(loop (prinl "SPAM"))

Task/Loops-Infinite/Prolog/loops-infinite.pro

@@ -0,0 +1 @@
+repeat, write('SPAM'), nl, fail.

Task/Loops-Infinite/Python/loops-infinite.py

@@ -0,0 +1,2 @@
+while 1:
+   print "SPAM"

Task/Loops-Infinite/R/loops-infinite.r

@@ -0,0 +1 @@
+repeat print("SPAM")

Task/Loops-Infinite/REXX/loops-infinite.rexx

@@ -0,0 +1,5 @@
+/*REXX program to display the word      SPAM      forever. */
+
+  do forever
+  say "SPAM"
+  end

Task/Loops-Infinite/Racket/loops-infinite.rkt

@@ -0,0 +1,12 @@
+#lang racket
+
+;; Using recursion
+(define (loop)
+  (displayln "SPAM")
+  (loop))
+
+(loop)
+
+;; Using a for loop
+(for ([i (in-naturals)])
+  (displayln "SPAM"))

Task/Loops-Infinite/Ruby/loops-infinite.rb

@@ -0,0 +1,3 @@
+loop do
+   puts "SPAM"
+end