Implement monadic ≡ (depth)

1 files changed, 2 insertions, 0 deletions

diff --git a/apl9.h b/apl9.h
index 9004636..c56f356 100644
--- a/apl9.h
+++ b/apl9.h
@@ -236,6 +236,7 @@ Array *simplifyarray(Array *);
 int comparearray(Array *, Array *, int);
 Array *fillelement(Array *);
 uvlong arrayspaceused(Array *);
+int arraydepth(Array *, int *);
 
 /* eval.c */
 Datum *eval(Statement *, int);
@@ -292,6 +293,7 @@ Array *fnMagnitude(Array *);
 Array *fnCeiling(Array *);
 Array *fnFloor(Array *);
 Array *fnSame(Array *);
+Array *fnDepth(Array *);
 Array *fnTally(Array *);
 Array *fnMix(Array *);
 Array *fnSplit(Array *);