INCARY
DEF INCARY _A[],_P,_LN,V
DIM P=MIN(MAX(_P,0),LEN(_A)-1)
DIM LN=MIN(_LN,LEN(_A)-P)
IF LN==0 THEN RETURN ENDIF
DIM A[0]:COPY A,_A,P,LN
ARYOP #AOPADD,A,A,V
COPY _A,P,A
END
Doesn't work on strings.- Submitted
- Updated
- Categories
- Keywords
-
DEF INCARY _A[],_P,_LN,V
DIM P=MIN(MAX(_P,0),LEN(_A)-1)
DIM LN=MIN(_LN,LEN(_A)-P)
IF LN==0 THEN RETURN ENDIF
DIM A[0]:COPY A,_A,P,LN
ARYOP #AOPADD,A,A,V
COPY _A,P,A
END
Doesn't work on strings.
DEF ADDARR ARR[],VA,ST,EL DIM A[LEN(ARR)]:FILL A,VA,ST,EL ARYOP #AOPADD,ARR,ARR,A END