[Shootout-list] Tcl : k-nucleotide bench

[Daniel South]

Looks like output needs to be subsorted by nucleotide sequence.
Attached is a corrected version.

Daniel South 


begin 666 knucleotide.tcl
M(R$O=7-R+V)I;B]T8VQS: T*#0HC(%1H92!'<F5A="!#;VUP=71E<B!,86YG
M=6%G92!3:&]O=&]U= T*(R!H='1P.B\O<VAO;W1O=70N86QI;W1H+F1E8FEA
M;BYO<F<O#0HC#0HC(&-O;G1R:6)U=&5D(&)Y($1A;FEE;"!3;W5T: T*#0H-
M"G!R;V,@:T9R97%U96YC>2![<R!K(&9R86UE<VEZ97T@>PT*(" @(&=L;V)A
M;"!F<F5Q#0H-"B @("!S970@;B!;<W1R:6YG(&QE;F=T:" D<UT-"B @("!I
M;F-R(&L@+3$-"B @("!I;F-R(&X@+21K#0H@(" @9F]R('MS970@:2!;:6YC
M<B!F<F%M97-I>F4@+3%=?2![)&D@/" D;GT@>VEN8W(@:7T@>PT*"7-E="!C
M(%MS=')I;F<@<F%N9V4@)',@)&D@6VEN8W(@:2 D:UU=#0H):68@>UMC871C
M:"![:6YC<B!F<F5Q*"1C*7U=?2![<V5T(&9R97$H)&,I(#%]#0H@(" @?0T*
M?0T*#0H-"G!R;V,@9G)E<75E;F-Y('MS(&M]('L-"B @("!A<G)A>2!U;G-E
M=" Z.F9R97$-"B @("!S970@<W5M(# -"@T*(" @(&9O<B![<V5T(&D@,'T@
M>R1I(#P@)&M]('M]('MK1G)E<75E;F-Y("1S("1K(%MI;F-R(&E=?0T*(" @
M(&9O<F5A8V@@>V9R86=M96YT(&-O=6YT?2!;87)R87D@9V5T(#HZ9G)E<5T@
M>PT*"6QA<'!E;F0@<V]R=&AE87 @6VQI<W0@)&9R86=M96YT("1C;W5N=%T-
M"@EI;F-R('-U;2 D8V]U;G0-"B @("!]#0H@(" @9F]R96%C:"!I=&5M(%ML
M<V]R=" M:6YT96=E<B M:6YD97@@,2 M9&5C<F5A<VEN9R!;;'-O<G0@)'-O
M<G1H96%P75T@>PT*"7-E="!P97)C96YT(%ME>'!R('MD;W5B;&4H6VQI;F1E
M>" D:71E;2 Q72D@+R D<W5M("H@,3 P?5T-"@EP=71S(%MF;W)M870@(B5S
M("4P+C)F(B!;;&EN9&5X("1I=&5M(#!=("1P97)C96YT70T*(" @('T-"B @
M("!P=71S("(B#0I]#0H-"G!R;V,@8V]U;G0@>W,@9G)A9VUE;G1]('L-"B @
M("!A<G)A>2!U;G-E=" Z.F9R97$-"B @("!S970@8V]U;G0@, T*#0H@(" @
M<V5T(&L@6W-T<FEN9R!L96YG=&@@)&9R86=M96YT70T*(" @(&9O<B![<V5T
M(&D@,'T@>R1I(#P@)&M]('M]('MK1G)E<75E;F-Y("1S("1K(%MI;F-R(&E=
M?0T*(" @(&EF('M;:6YF;R!E>&ES=',@.CIF<F5Q*"1F<F%G;65N="E=?2![
M<V5T(&-O=6YT("0Z.F9R97$H)&9R86=M96YT*7T-"B @("!P=71S("1C;W5N
M=%QT)&9R86=M96YT#0I]#0H-"G!R;V,@;6%I;B![?2![#0H@(" @=VAI;&4@
M>UMG971S('-T9&EN(&QI;F5=("$]("TQ?2![:68@>UMS=')I;F<@;6%T8V@@
M(CY42%)%12HB("1L:6YE77T@8G)E86M]#0H@(" @=VAI;&4@>UMG971S('-T
M9&EN(&QI;F5=("$]("TQ?2![87!P96YD('-E<75E;F-E("1L:6YE?0T*(" @
M('-E="!S97%U96YC92!;<W1R:6YG('1O=7!P97(@)'-E<75E;F-E70T*#0H@
M(" @9G)E<75E;F-Y("1S97%U96YC92 Q#0H@(" @9G)E<75E;F-Y("1S97%U
M96YC92 R#0H-"B @("!C;W5N=" D<V5Q=65N8V4@(D='5"(-"B @("!C;W5N
M=" D<V5Q=65N8V4@(D='5$$B#0H@(" @8V]U;G0@)'-E<75E;F-E(")'1U1!
M5%0B#0H@(" @8V]U;G0@)'-E<75E;F-E(")'1U1!5%145$%!5%0B#0H@(" @
M8V]U;G0@)'-E<75E;F-E(")'1U1!5%145$%!5%14051!1U0B#0I]#0H-"FUA
$:6X-"@``
`
end