2009-03-13 05:22:16 -04:00
|
|
|
USING: math tools.test classes.algebra words kernel sequences assocs ;
|
2008-10-31 22:07:57 -04:00
|
|
|
IN: classes.predicate
|
|
|
|
|
|
|
|
|
|
PREDICATE: negative < integer 0 < ;
|
|
|
|
|
PREDICATE: positive < integer 0 > ;
|
|
|
|
|
|
2008-11-04 03:17:22 -05:00
|
|
|
[ t ] [ negative integer class< ] unit-test
|
|
|
|
|
[ t ] [ positive integer class< ] unit-test
|
|
|
|
|
[ f ] [ integer negative class< ] unit-test
|
|
|
|
|
[ f ] [ integer positive class< ] unit-test
|
|
|
|
|
[ f ] [ negative negative class< ] unit-test
|
|
|
|
|
[ f ] [ positive negative class< ] unit-test
|
|
|
|
|
|
2008-10-31 22:07:57 -04:00
|
|
|
GENERIC: abs ( n -- n )
|
|
|
|
|
M: integer abs ;
|
|
|
|
|
M: negative abs -1 * ;
|
|
|
|
|
M: positive abs ;
|
|
|
|
|
|
|
|
|
|
[ 10 ] [ -10 abs ] unit-test
|
|
|
|
|
[ 10 ] [ 10 abs ] unit-test
|
2009-03-16 21:49:19 -04:00
|
|
|
[ 0 ] [ 0 abs ] unit-test
|
