Slava,
I noticed head? in your latest blog posting:
: head? ( seq begin -- ? )
2dup [ length ] 2apply < [
2drop f
] [
[ length head-slice ] keep sequence=
] if ;
In the second branch of the if, how about trading in the [, ], and keep for a
tuck?
: head? ( seq begin -- ? )
2dup [ length ] 2apply <
[ 2drop f ]
[ tuck length head-slice sequence= ]
if ;
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
