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

benchmark.reverse-complement: more idiomatic, faster.

db4
John Benediktsson 2013-04-07 15:19:58 -07:00
parent 15badfbcd9
commit ed95bcc8b9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,13 +20,12 @@ TR: trans-map ch>upper "ACGTUMRYKVHDB" "TGCAAKYRMBDHV" ;
HINTS: do-line vector string ; HINTS: do-line vector string ;
: (reverse-complement) ( seq -- )
readln [ do-line (reverse-complement) ] [ show-seq ] if* ;
: reverse-complement ( infile outfile -- ) : reverse-complement ( infile outfile -- )
ascii [ ascii [
ascii [ ascii [
500000 <vector> (reverse-complement) 500,000 <vector>
[ do-line ] each-line
show-seq
] with-file-reader ] with-file-reader
] with-file-writer ; ] with-file-writer ;