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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/benchmark/fasta/fasta.factor
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 n 2 * ALU "Homo sapiens alu" "ONE" write-repeat-fasta
initial-seed initial-seed
n 3 * homo-sapiens-chars homo-sapiens-floats n 3 * homo-sapiens-chars homo-sapiens-floats
"IUB ambiguity codes" "TWO" write-random-fasta "IUB ambiguity codes" "TWO" write-random-fasta
n 5 * IUB-chars IUB-floats n 5 * IUB-chars IUB-floats
"Homo sapiens frequency" "THREE" write-random-fasta "Homo sapiens frequency" "THREE" write-random-fasta
drop drop
] with-file-writer ] with-file-writer
] ; ] ;