Add tasks for all the new languages

Task/One-dimensional-cellular-automata/ERRE/one-dimensional-cellular-automata.erre

@@ -0,0 +1,33 @@
+PROGRAM ONEDIM_AUTOMATA
+
+! for rosettacode.org
+!
+
+!VAR I,J,N,W,K
+
+!$DYNAMIC
+DIM X[0],X2[0]
+
+BEGIN
+
+   DATA(20,0,1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,0)
+
+   PRINT(CHR$(12);)
+   N=20      ! number of generation required
+   READ(W)
+   !$DIM X[W+1],X2[W+1]
+   FOR I=1 TO W DO
+      READ(X[I])
+   END FOR
+   FOR K=1 TO N DO
+      PRINT("Generation";K;TAB(16);)
+      FOR J=1 TO W DO
+         IF X[J]=1 THEN PRINT("#";)  ELSE PRINT("_";) END IF
+         IF X[J-1]+X[J]+X[J+1]=2 THEN X2[J]=1 ELSE X2[J]=0 END IF
+      END FOR
+      PRINT
+      FOR J=1 TO W DO
+         X[J]=X2[J]
+      END FOR
+   END FOR
+END PROGRAM