From 794e0d2b6a7c8b15a302b0bb26c9d0d342d38a61 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 26 Jan 2022 09:53:02 +0000 Subject: =?UTF-8?q?Implement=20monadic=20=E2=89=A1=20(depth)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- apl9.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'apl9.h') 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 *); -- cgit v1.2.3