http://snippets.dzone.com/posts Mon, 06 Oct 2008 14:50:40 GMT DZone Snippets: XOR code http://snippets.dzone.com/posts/show/5059 <code> <br />NAND = lambda { |i, j| !(i && j) } <br />NOT = lambda { |i| NAND[i, i] } <br />AND = lambda { |i, j| NOT[NAND[i, j]] } <br />OR = lambda { |i, j| NAND[NAND[i, i], NAND[j, j]] } <br />NOR = lambda { |i, j| NOT[OR[i, j]] } <br />XOR = lambda { |i, j| NAND[NAND[i, NAND[i, j]], NAND[j, NAND[i, j]]] } <br />XNOR = lambda { |i, j| NOT[XOR[i, j]] } <br /> <br />XOR[true, true] => false <br />XOR[true, false] => true <br />XOR[false, true] => true <br />XOR[false, false] => false <br /></code> Thu, 31 Jan 2008 03:28:34 GMT http://snippets.dzone.com/posts/show/5059 peter (Peter Cooperx) http://snippets.dzone.com/posts/show/1149 <code> <br />REBOL [] <br /> <br /> <br />do-by-type: func [ <br /> value <br /> actions [block!] <br /> /default <br /> def-action [block!] <br /> /local action <br />][ <br /> either action: select actions type?/word value [ <br /> ;print mold action <br /> do bind/copy action 'value <br /> ][ <br /> if default [do bind/copy def-action 'value] <br /> ] <br />] <br /> <br />to-binary-ex: func [value] [ <br /> do-by-type value [ <br /> binary! [value] <br /> string! [to-binary value] <br /> file! [read/binary value] <br /> ] <br />] <br /> <br />xor-diff: func [ <br /> a [binary! string! file!] <br /> b [binary! string! file!] <br /> /local bin-a bin-b <br />][ <br /> bin-a: to-binary-ex a <br /> bin-b: to-binary-ex b <br /> bin-a xor bin-b <br />] <br /> <br />make-patch: func [ <br /> a [binary! string! file!] <br /> b [binary! string! file!] <br />][ <br /> compress xor-diff a b <br />] <br /> <br />apply-patch: func [ <br /> data [binary! string! file!] <br /> patch [binary! string!] <br /> /local result <br />][ <br /> result: xor-diff data decompress patch <br /> ; If they gave us a string as the source, return a string. <br /> ;?? If they give us a file, should we write back out to it? <br /> either string? data [to-string result][result] <br />] <br /> <br /> <br />a: "Now is the time for all good men to come to the aid of their country..." <br />b: {Now is the time for all good men to come to the aid of their country... <br />whether 'tis nolber to suffer the slings and arrows...} <br />;d1: xor-diff a b <br />p1: make-patch a b <br />bp: apply-patch a p1 <br /> <br /> <br /> <br />change-dir %./test-files <br /> <br />files: sort read %. <br />print mold files <br />print [files/1 files/2] <br />fp-1-2: make-patch files/1 files/2 <br />fp-2-3: make-patch files/2 files/3 <br />fp-3-4: make-patch files/3 files/4 <br />fp-a-b: make-patch files/5 files/6 <br /> <br />pp-a-b: apply-patch files/5 fp-a-b <br /> <br />change-dir %.. <br /> <br /> <br />halt <br /> <br /> <br /></code> Fri, 13 Jan 2006 04:15:52 GMT http://snippets.dzone.com/posts/show/1149 gregg.irwin (Gregg Irwin)