langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Gray-code/PowerBASIC/gray-code.powerbasic
+++ b/Task/Gray-code/PowerBASIC/gray-code.powerbasic
@ -0,0 +1,18 @@
+function gray%(byval n%)
+  gray%=n% xor (n%\2)
+end function
+
+function igray%(byval n%)
+  r%=0
+  while n%>0
+    r%=r% xor n%
+    shift right n%,1
+  wend
+  igray%=r%
+end function
+
+print "   N  GRAY   INV"
+for n%=0 to 31
+  g%=gray%(n%)
+  print bin$(n%);" ";bin$(g%);" ";bin$(igray%(g%))
+next