write-repeat-fasta ( n alu desc id -- )

Vocabulary

benchmark.fasta

Inputs

n	an object
alu	an object
desc	an object
id	an object

Outputs

None

Definition

USING: arrays kernel locals.backend ;

IN: benchmark.fasta

: write-repeat-fasta ( n alu desc id -- )
    write-description load-local 0 1array load-local
    0 get-local -1 get-local [
        2 load-locals -1 get-local 0 get-local [
            2 load-locals load-local
            -2 get-local local-value 0 get-local -1 get-local
            make-repeat-fasta -2 get-local set-local-value
            3 drop-locals
        ] curry curry call 2 drop-locals
    ] curry curry n-split-lines 2 drop-locals ;