head	1.1;
access
	monica
	thoth;
symbols;
locks; strict;
comment	@// @;


1.1
date	94.09.07.20.48.19;	author monica;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Initial revision
@
text
@Testing derange

Testing array version of derange function

	derange(<0 1 2 3 4>,{3,2,1,0,3,2,1,0},8)
	 result:<3 2 1 0 3 2 1 0>

	derange(<0 1 2 3 4>,{3,2,1,0,3,2,1,0},3)
	 result:<3 2 1>

	derange(<0 1 2 3 4>,{3,2,1,0,3,2,1,0},1)
	 result:<3>

	derange(<0 1 2 3 4>,{3,2,1,0,3,2,1,0},2)
	 result:<3 2>

	derange(<-2 -1 0 1 2>,{3,2,1,0,3,2,1,0},8)
	 result:<1 0 -1 -2 1 0 -1 -2>

	derange(<-2 -1 0 1 2>,{3,2,1,0,3,2,1,0},3)
	 result:<1 0 -1>

	derange(<-2 -1 0 1 2>,{3,2,1,0,3,2,1,0},1)
	 result:<1>

	derange(<-2 -1 0 1 2>,{3,2,1,0,3,2,1,0},2)
	 result:<1 0>

Testing non-array versions of derange function

	derange(<1>,0)
	 result:<1>

	derange(<1 2>,1)
	 result:<2>

	derange(<-1 0 1>,2)
	 result:<1>

	derange(<-1 0 1 2>,0)
	 result:<-1>

	derange(<-2 -1 0 1 2>,2)
	 result:<0>

	derange(<1 2>,1,1)
	 result:<2 2>

	derange(<-1 0 1 2>,3,0)
	 result:<2 -1>

	derange(<-2 -1 0 1 2>,1,2)
	 result:<-1 0>

	derange(<1>,0)
	 result:<1>

	derange(<1 2>,0)
	 result:<1>

	derange(<-1 0 1>,2)
	 result:<1>

	derange(<-1 0 1 2>,3)
	 result:<2>

	derange(<-2 -1 0 1 2>,3)
	 result:<1>

	derange(<1 2>,1,1)
	 result:<2 2>

	derange(<-1 0 1>,2,1)
	 result:<1 0>

	derange(<-1 0 1 2>,3,3)
	 result:<2 2>

	derange(<-2 -1 0 1 2>,4,3)
	 result:<2 1>

	derange(<1>,0,0)
	 result:<1 1>

	derange(<-1 0 1>,0,2)
	 result:<-1 1>

	derange(<1>,0,0)
	 result:<1 1>

	derange(<>,1)
	 result:throw: fatal Point Index Mismatch at IntPoint.c:537.
<>

	derange(<1>,1)
	 result:throw: fatal Point Index Mismatch at IntPoint.c:537.
<>

	derange(<1 2>,2)
	 result:throw: fatal Point Index Mismatch at IntPoint.c:537.
<>

	derange(<-1 0 1>,3)
	 result:throw: fatal Point Index Mismatch at IntPoint.c:537.
<>

	derange(<-1 0 1 2>,4)
	 result:throw: fatal Point Index Mismatch at IntPoint.c:537.
<>

	derange(<-2 -1 0 1 2>,5)
	 result:throw: fatal Point Index Mismatch at IntPoint.c:537.
<>

	derange(<>,1)
	 result:throw: fatal Point Index Mismatch at DblPoint.c:566.
<>

	derange(<1>,1)
	 result:throw: fatal Point Index Mismatch at DblPoint.c:566.
<>

	derange(<1 2>,2)
	 result:throw: fatal Point Index Mismatch at DblPoint.c:566.
<>

	derange(<-1 0 1>,3)
	 result:throw: fatal Point Index Mismatch at DblPoint.c:566.
<>

	derange(<-1 0 1 2>,4)
	 result:throw: fatal Point Index Mismatch at DblPoint.c:566.
<>

	derange(<-2 -1 0 1 2>,5)
	 result:throw: fatal Point Index Mismatch at DblPoint.c:566.
<>
@
