Updated fasta benchmark
parent
26cf8eff80
commit
e76dfb2881
|
@ -65,7 +65,7 @@ HINTS: random fixnum ;
|
||||||
:: split-lines | n quot |
|
:: split-lines | n quot |
|
||||||
n line-length /mod
|
n line-length /mod
|
||||||
[ [ line-length quot call ] times ] dip
|
[ [ line-length quot call ] times ] dip
|
||||||
quot call ; inline
|
dup zero? [ drop ] quot if ; inline
|
||||||
|
|
||||||
: write-random-fasta ( seed n chars floats desc id -- seed )
|
: write-random-fasta ( seed n chars floats desc id -- seed )
|
||||||
write-description
|
write-description
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue