Updated fasta benchmark

2008-02-12 16:09:35 -06:00 · 2008-02-12 16:09:35 -06:00 · e76dfb2881
parent 26cf8eff80
commit e76dfb2881
2 changed files with 1 additions and 416673 deletions
--- a/extra/benchmark/fasta/fasta.factor
+++ b/extra/benchmark/fasta/fasta.factor
@ -65,7 +65,7 @@ HINTS: random fixnum ;
 :: split-lines | n quot |
    n line-length /mod
    [ [ line-length quot call ] times ] dip
-    quot call ; inline
+    dup zero? [ drop ] quot if ; inline

 : write-random-fasta ( seed n chars floats desc id -- seed )
    write-description
--- a/extra/benchmark/reverse-complement/reverse-complement-in.txt
+++ b/extra/benchmark/reverse-complement/reverse-complement-in.txt