Powered by ViewCVS 1.0-dev
| version 1.142, Sat Aug 23 20:16:09 2003 UTC | version 1.143, Mon Sep 1 22:12:46 2003 UTC | ||
|---|---|---|---|
|
|
||
| : | : | ||
| rot 2dup swap - >r min swap -text dup | rot 2dup swap - >r min swap -text dup | ||
| IF rdrop ELSE drop r> sgn THEN ; | IF rdrop ELSE drop r> sgn THEN ; | ||
| : -text ( c_addr1 u c_addr2 -- n ) | |||
| swap bounds | |||
| ?DO dup c@ I c@ = WHILE 1+ LOOP drop 0 | |||
| ELSE c@ I c@ - unloop THEN sgn ; | |||
| : sgn ( n -- -1/0/1 ) | : sgn ( n -- -1/0/1 ) | ||
| dup 0= IF EXIT THEN 0< 2* 1+ ; | dup 0= IF EXIT THEN 0< 2* 1+ ; | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |