tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Binary-digits/ACL2/binary-digits.acl2
+++ b/Task/Binary-digits/ACL2/binary-digits.acl2
@ -0,0 +1,15 @@
+(include-book "arithmetic-3/top" :dir :system)
+
+(defun bin-string-r (x)
+   (if (zp x)
+       ""
+       (string-append
+        (bin-string-r (floor x 2))
+        (if (= 1 (mod x 2))
+            "1"
+            "0"))))
+
+(defun bin-string (x)
+   (if (zp x)
+       "0"
+       (bin-string-r x)))