Another update from ingydotnet^djgoku

Task/Loops-Infinite/ALGOL-W/loops-infinite.alg

@@ -0,0 +1,3 @@
+begin
+    for i := 1 step 0 until 2 do write( "SPAM" )
+end.

Task/Loops-Infinite/ARM-Assembly/loops-infinite.arm

@@ -0,0 +1,11 @@
+.global main
+
+main:
+
+loop:
+    ldr r0, =message
+    bl printf
+    b loop
+
+message:
+    .asciz "SPAM\n"

Task/Loops-Infinite/DCL/loops-infinite.dcl

@@ -0,0 +1,3 @@
+$ loop:
+$  write sys$output "SPAM"
+$  goto loop

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

@@ -1,3 +1,7 @@
-open console
+open monad io
 
-loop () = writen "SPAM" $ loop!
+loop () = do
+  putStrLn "SPAM"
+  loop ()
+
+loop () ::: IO

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

@@ -1,5 +1,10 @@
-open console list
+open monad io
 
-loop () = writen "SPAM" :: (& loop!)
+xs = "SPAM"::xs
 
-take 10 <| loop! //prints SPAM only first 10 times
+takeit 0 _ = do return ()
+takeit num (x::xs) = do
+  putStrLn x
+  takeit (num - 1) xs
+
+_ = takeit 10 xs ::: IO

Task/Loops-Infinite/Elixir/loops-infinite-1.elixir

@@ -0,0 +1,8 @@
+defmodule Loops do
+  def infinite do
+    IO.puts "SPAM"
+    infinite
+  end
+end
+
+Loops.infinite

Task/Loops-Infinite/Elixir/loops-infinite-2.elixir

@@ -0,0 +1 @@
+Stream.cycle(["SPAM"]) |> Enum.each(&IO.puts &1)

Task/Loops-Infinite/Julia/loops-infinite.julia

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

Task/Loops-Infinite/Pure-Data/loops-infinite.pure

@@ -0,0 +1,8 @@
+#N canvas 426 88 450 300 10;
+#X obj 17 75 print;
+#X msg 17 55 SPAM;
+#X obj 17 35 metro 1;
+#X msg 17 15 1;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;

Task/Loops-Infinite/Rust/loops-infinite.rust

@@ -1,5 +1,5 @@
 fn main() {
-	loop {
-		println!("SPAM");
-	}
+    loop {
+        println!("SPAM");
+    }
 }

Task/Loops-Infinite/Scilab/loops-infinite.scilab

@@ -0,0 +1,3 @@
+while %T
+    printf("SPAM\n")
+end

Task/Loops-Infinite/Self/loops-infinite.self

@@ -0,0 +1 @@
+['SPAM' printLine] loop