http://snippets.dzone.com/posts Sat, 26 Jul 2008 05:59:38 GMT DZone Snippets: tuple code http://snippets.dzone.com/posts/show/2455 <code> <br />step-tuple: func [ <br /> val [tuple!] <br /> /by step [tuple!] <br />][ <br /> if any [ <br /> 3 <> length? val ; can only step values of 3 segments <br /> val = 255.255.255 <br /> ] [make error! "Can't step tuple value"] <br /> either step [ <br /> either (val + step) <> val [val + step] [ <br /> make error! "Can't step tuple value" <br /> ] <br /> ][ <br /> steps: [0.0.1 0.1.0 1.0.0] <br /> for i 3 1 -1 [ <br /> either val/:i = 255 [val/:i: 0] [ <br /> return val + first steps <br /> ] <br /> steps: next steps <br /> ] <br /> ] <br />] <br />; foreach val [ <br />; 0.0.0 0.0.255 <br />; 0.1.0 0.255.0 0.255.255 <br />; 1.0.0 0.255.255 <br />; 254.255.255 255.255.254 <br />; 255.254.255 254.255.255 <br />; ][ <br />; print [val tab step-tuple val] <br />; ] <br />; print attempt [step-tuple 255.255.255] <br />; print attempt [step-tuple 255.255.255.0] <br /></code> Tue, 22 Aug 2006 01:38:59 GMT http://snippets.dzone.com/posts/show/2455 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/2454 <code> <br />step-version: func [ <br /> val [tuple!] <br /> segment [word!] "'major, 'minor, or 'build" <br /> /local res <br />][ <br /> switch segment [ <br /> build [res: val + 0.0.1] <br /> minor [res: val + 0.1.0 res/3: 0] <br /> major [res: val + 1.0.0 res/2: 0 res/3: 0] <br /> ] <br /> either res > val [res] [none] <br />] <br /> <br />can-step-version?: func [ <br /> val [tuple!] <br /> segment [word!] "'major, 'minor, or 'build" <br />][ <br /> either step-version val segment [true] [false] <br />] <br /> <br />; foreach val [ <br />; 0.0.0 0.0.255 <br />; 0.1.0 0.255.0 0.255.255 <br />; 1.0.0 0.255.255 <br />; 254.255.255 255.255.254 <br />; 255.254.255 254.255.255 <br />; ][ <br />; foreach seg [build minor major] [ <br />; print [val tab seg tab can-step-version? val seg tab attempt [step-version val seg]] <br />; ] <br />; ] <br />; print attempt [step-version 254.255.255 'test] <br />; halt <br /></code> Tue, 22 Aug 2006 01:34:41 GMT http://snippets.dzone.com/posts/show/2454 gregg.irwin (Gregg Irwin) http://snippets.dzone.com/posts/show/646 my version of "named tuple" <br /><code> <br />class OList: <br /> """ <br /> l=[("martin","jean"),("dupond","yves"),("klein","michel")] <br /> or <br /> l=[["martin","jean"],["dupond","yves"],["klein","michel"]] <br /> <br /> ll = OList("nom","prenom")(l) <br /> print ll[2].prenom,"==",ll[2][1],"==",l[2][1] <br /> """ <br /> def __init__(self,*a): <br /> self.__n=list(a) <br /> def __call__(self,liste): <br /> class NList(list): <br /> def __init__(self,n,l): <br /> assert len(l)==len(n), "No match "+str(n)+" and "+str(l) <br /> list.__init__(self,l) <br /> for i in n: <br /> setattr(self,i,l[ n.index(i) ]) <br /> self.__noms = n <br /> def __repr__(self): <br /> m=" ".join(["""%s='%s'""" % (i,str(getattr(self,i))) for i in self.__noms]) <br /> return "<objet %s>" % m <br /> return [ NList(self.__n, i) for i in liste ] <br /></code> Wed, 07 Sep 2005 21:02:41 GMT http://snippets.dzone.com/posts/show/646 manatlan (manatlan)