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
31
Task/Array-concatenation/ERRE/array-concatenation.erre
Normal file
31
Task/Array-concatenation/ERRE/array-concatenation.erre
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
PROGRAM ARRAY_CONCAT
|
||||
|
||||
DIM A[5],B[5],C[10]
|
||||
|
||||
!
|
||||
! for rosettacode.org
|
||||
!
|
||||
|
||||
BEGIN
|
||||
DATA(1,2,3,4,5)
|
||||
DATA(6,7,8,9,0)
|
||||
|
||||
FOR I=1 TO 5 DO ! read array A[.]
|
||||
READ(A[I])
|
||||
END FOR
|
||||
FOR I=1 TO 5 DO ! read array B[.]
|
||||
READ(B[I])
|
||||
END FOR
|
||||
|
||||
FOR I=1 TO 10 DO ! append B[.] to A[.]
|
||||
IF I>5 THEN
|
||||
C[I]=B[I-5]
|
||||
ELSE
|
||||
C[I]=A[I]
|
||||
END IF
|
||||
PRINT(C[I];) ! print single C value
|
||||
END FOR
|
||||
|
||||
PRINT
|
||||
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue