diff options
| author | martinw | 2000-06-09 14:07:38 +0000 |
|---|---|---|
| committer | martinw | 2000-06-09 14:07:38 +0000 |
| commit | 8cee3ea989bfd17b42642f13d09d390da34ada7c (patch) | |
| tree | ac5ff70561dbc701f692e134bf2051373adca1db /frontend/_aconcat.dcl | |
| parent | predef.icl: StdDynamics has become StdDynamic (diff) | |
Added preprocessor directives, so that one and the same source can be
compiled with Clean 1.3 and Clean 2.0
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@155 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/_aconcat.dcl')
| -rw-r--r-- | frontend/_aconcat.dcl | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/frontend/_aconcat.dcl b/frontend/_aconcat.dcl index 789a975..487f1f3 100644 --- a/frontend/_aconcat.dcl +++ b/frontend/_aconcat.dcl @@ -7,8 +7,12 @@ arrayConcat a1 a2 where r2={r1 & [i+s1]=a2.[i] \\ i<-[0..s2-1]} r1={r0 & [i]=a1.[i] \\ i<-[0..s1-1]} -// r0=_createArray (s1+s2) // 2.0 +/*2.0 + r0=_createArray (s1+s2) +0.2*/ +//1.3 r0=_createArrayc (s1+s2) +//3.1 s1=size a1 s2=size a2 @@ -17,20 +21,26 @@ arrayPlusList a l where r2={r1 & [i+s1]=e \\ i<-[0..s2-1] & e<-l} r1={r0 & [i]=a.[i] \\ i<-[0..s1-1]} -// r0=_createArray (s1+s2) // 2.0 +/*2.0 + r0=_createArray (s1+s2) +0.2*/ +//1.3 r0=_createArrayc (s1+s2) +//3.1 s1=size a s2=length l - arrayPlusRevList a l :==r2 where r2={r1 & [sr-i]=e \\ i<-[1..s2] & e<-l} r1={r0 & [i]=a.[i] \\ i<-[0..s1-1]} -// r0=_createArray sr // 2.0 +/*2.0 + r0=_createArray sr // 2.0 +0.2*/ +//1.3 r0=_createArrayc sr +//3.1 sr=s1+s2 s1=size a s2=length l - |