diff options
Diffstat (limited to 'frontend/_aconcat.icl')
| -rw-r--r-- | frontend/_aconcat.icl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/frontend/_aconcat.icl b/frontend/_aconcat.icl index 67d7771..1e5dc2c 100644 --- a/frontend/_aconcat.icl +++ b/frontend/_aconcat.icl @@ -44,3 +44,18 @@ where sr=s1+s2 s1=size a s2=length l + +arrayCopyBegin a s + :== copy_elements a r0 0 +where + /*2.0 + r0=_createArray s +0.2*/ +//1.3 + r0=_createArrayc s +//3.1 + copy_elements a1 a2 i + | i<size a2 + # (e,a1) = a1![i] + = copy_elements a1 {a2 & [i]=e} (i+1) + = (a2,a1) |