benchmark.fasta: formatting fix

db4
Slava Pestov 2010-04-19 01:13:49 -05:00
parent 2eda6fc6aa
commit f0543e6bdd
1 changed files with 3 additions and 0 deletions

View File

@ -91,10 +91,13 @@ TYPED:: make-repeat-fasta ( k: fixnum len: fixnum alu: string -- k': fixnum )
n 2 * ALU "Homo sapiens alu" "ONE" write-repeat-fasta
initial-seed
n 3 * homo-sapiens-chars homo-sapiens-floats
"IUB ambiguity codes" "TWO" write-random-fasta
n 5 * IUB-chars IUB-floats
"Homo sapiens frequency" "THREE" write-random-fasta
drop
] with-file-writer
] ;