make-repeat-fasta ( k: fixnum len: fixnum alu: string -- k': fixnum )

Vocabulary

benchmark.fasta

Inputs

k	a fixnum
len	a fixnum
alu	a string

Outputs

k'

a fixnum

Definition

USING: io math sequences sequences.private typed ;

IN: benchmark.fasta

TYPED:: make-repeat-fasta
    ( k: fixnum len: fixnum alu: string -- k': fixnum )
    alu length :> kn len <iota>
    [ k + kn mod alu nth-unsafe ] "" map-as print k len + ;