sorting - Is there a partial sort command for tcl? -

-

as c++'s std::partial_sort do. lsort not powerful enough.

there no built-in equivalent partial_sort. think choices either implement hand in tcl, undermine whatever efficiency sought gain; or write extension exposes partial_sort interpreter. wouldn't difficult -- tcl extensions pretty easy write. here's bit of code whipped should started:

#include <algorithm> #include "tcl.h"  using namespace std;  static int partialsortcommand(clientdata dummy,         tcl_interp *interp,         int objc,         tcl_obj *const objv[]);   extern int partialsort_init(tcl_interp *interp) {     if (tcl_initstubs(interp, "8.0", 0) == null) {         return tcl_error;     }      if (tcl_pkgprovide(interp, "partialsort", "1.0") != tcl_ok) {         return tcl_error;     }      tcl_createobjcommand(interp, "partialsort", partialsortcommand,             (clientdata) null, (tcl_cmddeleteproc *) null);      return tcl_ok; }  bool compareobjs(tcl_obj *a, tcl_obj *b) {     int left, right;     tcl_getintfromobj(0, a, &left);     tcl_getintfromobj(0, b, &right);     return left < right; }  int partialsortcommand(     clientdata dummy,     tcl_interp *interp,     int objc,     tcl_obj *const objv[]) {     if (objc != 5) {         tcl_wrongnumargs(interp, 1, objv, "list start middle end");         return tcl_error;     }      tcl_obj **objs;     int count;      if (tcl_listobjgetelements(interp, objv[1], &count, &objs) != tcl_ok) {         return tcl_error;     }      int start, middle, end;     if (tcl_getintfromobj(interp, objv[2], &start) != tcl_ok) {         return tcl_error;     }      if (tcl_getintfromobj(interp, objv[3], &middle) != tcl_ok) {         return tcl_error;     }      if (tcl_getintfromobj(interp, objv[4], &end) != tcl_ok) {         return tcl_error;     }      partial_sort(&objs[start], &objs[middle], &objs[end], compareobjs);     tcl_setobjresult(interp, tcl_newlistobj(count, objs));     return tcl_ok; }

of course rough cut. handles lists of integers. doesn't in way of error checking. it's bit cavalier respect shared tcl_obj structures. going in right directory.


Comments

Post a Comment

Popular posts from this blog

Javascript line number mapping -

-
magically formatted comments change reported line number of javascript errors in browsers; this: //@line n "f" n line number , f file name. unfortunately, //@line appears ungoogleable. know there documentation on feature, , browsers support it? (i found references here , here .) from can find available in mozilla based browsers. it using js_setoptions command can turn these options on or off depending on values passed. https://developer.mozilla.org/en/js_setoptions
Read more

c# - Is it possible to remove an existing registration from Autofac container builder? -

-
something along lines: builder.registertype<mytype>().as<itype>(); builder.registertype<mytype2>().as<itype>(); builder.deregistertype<mytype>().as<itype>() var container = builder.build(); var types = container.resolve<ienumerable<itype>>(); assert.istrue(types.count == 1); assert.istrue(types[0].gettype == typeof(mytype2)); scenario: go through bunch of assemblies , go register types want make sure have 1 implementation of given type. need before create container. track on own nice if autofac me bit. this cannot done directly using containerbuilder , unless start on new one. mind you, having first built container should able construct new container filtering away unwanted types , reusing registrations first container. this: ... var container = builder.build(); builder = new containerbuilder(); var components = container.componentregistry.registrations .where(cr => cr.activator.limittype != typ...
Read more

php - Mysql PK and FK char(36) vs int(10) -

-
i have read mysql can handle indexes , searches better if tables keys integers rather char(36) uuid's. is worth converting int(10)? note: use 1 server , have have plans use multiple databases concurrently therefore removing 1 of big reasons using uuid. our tables innodb if makes difference. thanks in advance. usually rdbms can handle integer keys pk more efficient, other datatypes. reason how build index column, yes: long dont require string (or other typed) keys, should use integers. however: char(36) , int(10) far away being equal, because int(10) much smaller, char(36). dont know, if require many different keys, should keep in mind. update, complete last paragraph: int(10) 32-bit, char(36) 36 - ^byte^ (= 288-bit). not mean, int consumes less space, means, char(36) has 4 times more different keys.
Read more