Slava, : shorter? ( a b -- ? ) [ length ] 2apply < ;
: head? ( seq begin -- ? ) 2dup shorter? [ 2drop f ] [ tuck length head-slice sequence= ] if ; I think 'shorter?' is a generally useful factor. Same for the corresponding 'longer?'. Ed ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
