Implement dyadic ⌷, monadic ⍋ and monadic ⍒

1 files changed, 4 insertions, 1 deletions

diff --git a/apl9.h b/apl9.h
index 2320bb2..24ddc01 100644
--- a/apl9.h
+++ b/apl9.h
@@ -169,7 +169,7 @@ int scalarextend(Array *, Array *, Array **, Array **);
 int commontype(Array *, Array *, Array **, Array **, int);
 Array *arrayitem(Array *, int);
 Array *simplifyarray(Array *);
-int comparearray(Array *, Array *);
+int comparearray(Array *, Array *, int);
 
 /* eval.c */
 Datum *eval(Statement *);
@@ -198,6 +198,8 @@ Array *fnSame(Array *);
 Array *fnTally(Array *);
 Array *fnEnclose(Array *);
 Array *fnNest(Array *);
+Array *fnGradeUp(Array *);
+Array *fnGradeDown(Array *);
 Array *fnIndexGenerator(Array *);
 Array *fnRavel(Array *);
 Array *fnTable(Array *);
@@ -216,6 +218,7 @@ Array *fnLogarithm(Array *, Array *);
 Array *fnLeft(Array *, Array *);
 Array *fnRight(Array *, Array *);
 Array *fnMatch(Array *, Array *);
+Array *fnIndex(Array *, Array *);
 Array *fnCatenateFirst(Array *, Array *);
 Array *fnReshape(Array *, Array *);