steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.knucleotide: small performance improvement from using virtual sequences

release
Slava Pestov 2010-04-14 21:50:00 -07:00
parent b87171ff00
commit 008ec8f40f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/knucleotide/knucleotide.factor
View File

@ -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 ]