A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Gray-code/Factor/gray-code-1.factor
+++ b/Task/Gray-code/Factor/gray-code-1.factor
@ -0,0 +1,16 @@
+USING: math.ranges locals ;
+IN: rosetta-gray
+
+: gray-encode ( n -- n' ) dup -1 shift bitxor ;
+
+:: gray-decode ( n! -- n' )
+   n :> p!
+   [ n -1 shift dup n! 0 = not ] [
+     p n bitxor p!
+   ] while
+   p ;
+
+: main ( -- )
+  -1 32 [a,b] [ dup [ >bin ] [ gray-encode ] bi [ >bin ] [ gray-decode ] bi 4array . ] each ;
+
+MAIN: main