YAPC::EU 2018 Glasgow Update!

Task/Loops-Do-while/ALGOL-60/loops-do-while.alg

@@ -0,0 +1,10 @@
+'BEGIN' 'COMMENT' Loops DoWhile  - Algol60 - 22/06/2018;
+  'INTEGER' I;
+  I:=0;
+LOOP:
+    I:=I+1;
+    'IF' I=I'/'6*6 'THEN' 'GOTO' LAB;
+    OUTINTEGER(1,I);
+  'GOTO' LOOP;
+LAB:
+'END'

Task/Loops-Do-while/Fortran/loops-do-while-3.f

@@ -0,0 +1,7 @@
+      IVALUE = 0
+   10 CONTINUE
+        IVALUE=IVALUE+1
+        WRITE(6,301) IVALUE
+  301   FORMAT(I5)
+      IF(MOD(IVALUE,6).NE.0) GOTO 10
+      END

Task/Loops-Do-while/Fortran/loops-do-while-4.f

@@ -0,0 +1,7 @@
+      IVALUE = 0
+   10 IVALUE=IVALUE+1
+      WRITE 301,IVALUE
+  301 FORMAT(I5)
+      IF(IVALUE-IVALUE/6*6) 10,20,10
+   20 STOP
+      END

Task/Loops-Do-while/Julia/loops-do-while-1.julia

@@ -4,7 +4,7 @@ julia> i = 0
 julia> while true
            println(i)
            i += 1
-           i % 6 == 0 || break
+           i % 6 == 0 && break
        end
 0
 1

Task/Loops-Do-while/REBOL/loops-do-while.rebol

@@ -1,7 +1,5 @@
 REBOL [
 	Title: "Loop/While"
-	Author: oofoe
-	Date: 2009-12-19
 	URL: http://rosettacode.org/wiki/Loop/Do_While
 ]