Tweak reverse-complement a bit so that a member? test is open-coded

2007-12-08 17:47:39 -05:00 · 2007-12-08 17:47:39 -05:00 · d19082dca7
parent 741c5966fd
commit d19082dca7
1 changed files with 2 additions and 0 deletions
--- a/extra/benchmark/reverse-complement/reverse-complement.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement.factor
@ -26,6 +26,8 @@ HINTS: do-trans-map string ;
        over push
    ] if ;

+HINTS: do-line vector string ;
+
 : (reverse-complement) ( seq -- )
    readln [ do-line (reverse-complement) ] [ show-seq ] if* ;