Metropoli BBS
VIEWER: sam012.c MODE: TEXT (ASCII)
#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Chrvect; Drop; Drop2; Endoper; Iscalar; Litvect;
     Quadout; Reshape;
     #include "aplinit.h"

     endoper(quadout(drop(iscalar(2),chrvect("abcde"))));
     endoper(quadout(drop2(
          iscalar(1), /* Number of items to drop. */
          reshape(litvect("3 4"),chrvect("foldbeatrode")),
          iscalar(2)))); /* Axis. */
}

[ RETURN TO DIRECTORY ]