Metropoli BBS
VIEWER: sam121.c MODE: TEXT (ASCII)
#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Endoper; Eq; Ge; Gt; Le; Litvect;
     Lt; Ne; Quadout; Relative;
     #include "aplinit.h"

     endoper(quadout(relative(eq, /* -----> 0 1 0 */
          litvect("2.0 3.0 4.0"),
          litvect("3.0 3.0 3.0"))));
     endoper(quadout(relative(ge, /* -----> 0 1 1 */
          litvect("2.0 3.0 4.0"),
          litvect("3.0 3.0 3.0"))));
     endoper(quadout(relative(gt, /* -----> 0 0 1 */
          litvect("2.0 3.0 4.0"),
          litvect("3.0 3.0 3.0"))));
     endoper(quadout(relative(le, /* -----> 1 1 0 */
          litvect("2.0 3.0 4.0"),
          litvect("3.0 3.0 3.0"))));
     endoper(quadout(relative(lt, /* -----> 1 0 0 */
          litvect("2.0 3.0 4.0"),
          litvect("3.0 3.0 3.0"))));
     endoper(quadout(relative(ne, /* -----> 1 0 1 */
          litvect("2.0 3.0 4.0"),
          litvect("3.0 3.0 3.0"))));
}
[ RETURN TO DIRECTORY ]