fasta ( n out -- )

Vocabulary

benchmark.fasta

Inputs

n	an object
out	an object

Outputs

None

Definition

USING: io.encodings.ascii io.files kernel locals.backend math ;

IN: benchmark.fasta

: fasta ( n out -- )
    homo-sapiens make-cumulative IUB make-cumulative 6
    load-locals initial-seed load-local
    -5 get-local ascii -6 get-local -2 get-local -1 get-local -4
    get-local -3 get-local [
        5 load-locals -4 get-local 2 *
        ALU "Homo sapiens alu" "ONE" write-repeat-fasta
        initial-seed -4 get-local 3 *
        -3 get-local -2 get-local "IUB ambiguity codes" "TWO"
        write-random-fasta -4 get-local 5 *
        -1 get-local 0 get-local "Homo sapiens frequency"
        "THREE" write-random-fasta drop 5 drop-locals
    ] curry curry curry curry curry with-file-writer
    7 drop-locals ;