benchmark.knucleotide: small performance improvement from using virtual sequences
parent
b87171ff00
commit
008ec8f40f
|
@ -14,7 +14,7 @@ IN: benchmark.knucleotide
|
||||||
CHAR: \n swap remove >upper ;
|
CHAR: \n swap remove >upper ;
|
||||||
|
|
||||||
: handle-table ( inputs n -- )
|
: handle-table ( inputs n -- )
|
||||||
clump
|
<clumps>
|
||||||
[ histogram >alist sort-values reverse ] [ length ] bi
|
[ histogram >alist sort-values reverse ] [ length ] bi
|
||||||
'[
|
'[
|
||||||
[ first write bl ]
|
[ first write bl ]
|
||||||
|
@ -22,7 +22,7 @@ IN: benchmark.knucleotide
|
||||||
] each ;
|
] each ;
|
||||||
|
|
||||||
: handle-n ( input x -- )
|
: handle-n ( input x -- )
|
||||||
[ nip ] [ length clump histogram ] 2bi at 0 or "%d\t" printf ;
|
[ nip ] [ length <clumps> histogram ] 2bi at 0 or "%d\t" printf ;
|
||||||
|
|
||||||
: process-input ( input -- )
|
: process-input ( input -- )
|
||||||
[ 1 handle-table nl ]
|
[ 1 handle-table nl ]
|
||||||
|
|
Loading…
Reference in New Issue