steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

release
Slava Pestov 2007-12-08 17:47:39 -05:00
parent 741c5966fd
commit d19082dca7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/reverse-complement/reverse-complement.factor
View File

@ -26,6 +26,8 @@ HINTS: do-trans-map string ;
over push over push
] if ; ] if ;
HINTS: do-line vector string ;
: (reverse-complement) ( seq -- ) : (reverse-complement) ( seq -- )
readln [ do-line (reverse-complement) ] [ show-seq ] if* ; readln [ do-line (reverse-complement) ] [ show-seq ] if* ;