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

benchmark.reverse-complement: Fix usage of <groups>.

db4
Doug Coleman 2013-03-23 13:04:03 -07:00
parent e68f41041f
commit a55a367bf3
1 changed files with 1 additions and 1 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

@ -12,7 +12,7 @@ TR: trans-map ch>upper "ACGTUMRYKVHDB" "TGCAAKYRMBDHV" ;
concat reverse! dup trans-map-fast ; concat reverse! dup trans-map-fast ;
: show-seq ( seq -- ) : show-seq ( seq -- )
translate-seq 60 <groups> [ print ] each ; translate-seq 60 group [ print ] each ;
: do-line ( seq line -- seq ) : do-line ( seq line -- seq )
dup first ">;" member-eq? dup first ">;" member-eq?