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/Forth/gray-code.fth
+++ b/Task/Gray-code/Forth/gray-code.fth
@ -0,0 +1,21 @@
+: >gray ( n -- n ) dup 2/ xor ;
+
+: gray> ( n -- n )
+  0  1 31 lshift  ( g b mask )
+  begin
+    >r
+     2dup 2/ xor
+     r@ and or
+    r> 1 rshift
+    dup 0=
+  until
+  drop nip ;
+
+: test
+  2 base !
+  32 0 do
+    cr i  dup 5 .r ."  ==> "
+    >gray dup 5 .r ."  ==> "
+    gray>     5 .r
+  loop
+  decimal ;