! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: io io.files io.files.temp io.streams.duplex kernel
-sequences sequences.private strings vectors words memoize
-splitting grouping hints tr continuations io.encodings.ascii
-ascii ;
+USING: ascii grouping hints io io.encodings.ascii io.files
+io.files.temp kernel sequences strings tr vectors ;
IN: benchmark.reverse-complement
TR: trans-map ch>upper "ACGTUMRYKVHDB" "TGCAAKYRMBDHV" ;
: do-line ( seq line -- seq )
dup first ">;" member-eq?
- [ over show-seq print dup delete-all ] [ over push ] if ;
+ [ over show-seq print dup delete-all ] [ suffix! ] if ;
HINTS: do-line vector string ;