Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
29
Task/Zig-zag-matrix/ERRE/zig-zag-matrix.erre
Normal file
29
Task/Zig-zag-matrix/ERRE/zig-zag-matrix.erre
Normal file
|
|
@ -0,0 +1,29 @@
|
|||
PROGRAM ZIG_ZAG
|
||||
|
||||
!$DYNAMIC
|
||||
DIM ARRAY%[0,0]
|
||||
|
||||
BEGIN
|
||||
SIZE%=5
|
||||
!$DIM ARRAY%[SIZE%-1,SIZE%-1]
|
||||
|
||||
I%=1
|
||||
J%=1
|
||||
FOR E%=0 TO SIZE%^2-1 DO
|
||||
ARRAY%[I%-1,J%-1]=E%
|
||||
IF ((I%+J%) AND 1)=0 THEN
|
||||
IF J%<SIZE% THEN J%+=1 ELSE I%+=2 END IF
|
||||
IF I%>1 THEN I%-=1 END IF
|
||||
ELSE
|
||||
IF I%<SIZE% THEN I%+=1 ELSE J%+=2 END IF
|
||||
IF J%>1 THEN J%-=1 END IF
|
||||
END IF
|
||||
END FOR
|
||||
|
||||
FOR ROW%=0 TO SIZE%-1 DO
|
||||
FOR COL%=0 TO SIZE%-1 DO
|
||||
WRITE("###";ARRAY%[ROW%,COL%];)
|
||||
END FOR
|
||||
PRINT
|
||||
END FOR
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue