Commit f19856b0c3765fb3c55c6e806a6506b06ec8433d

Thomas de Grivel 2021-03-02T14:47:08

comments

diff --git a/positional.lisp b/positional.lisp
index bf6c680..df86b46 100644
--- a/positional.lisp
+++ b/positional.lisp
@@ -70,6 +70,8 @@
 #+nil (parse "123")
 #+nil (parse "DEADBEEF" 16)
 #+nil (parse "444" 9)
+#+nil (parse "AA" 11)
+#+nil (parse "AAA" 11)
 
 (defun parse-min-integer-base (input)
   (let ((max 0))
@@ -104,16 +106,16 @@
 #+nil (parse-min-base "012")         ;          5        0
 #+nil (parse-min-base "0123")        ;         27        1     0
 #+nil (parse-min-base "01234")       ;        194        5     0
-#+nil (parse-min-base "342391")
 #+nil (parse-min-base "012345")      ;       1865       27     1   0
 #+nil (parse-min-base "0123456")     ;      22875       27     1   0
+#+nil (parse-min-base "342391")
 #+nil (parse-min-base "01234567")    ;     342391      894     5   0
 #+nil (parse-min-base "4874")
 #+nil (parse-min-base "6053444")
-#+nil (parse-min-base "21908410")
 #+nil (parse-min-base "012345678")   ;    6053444     4874    15   1 0
-#+nil (parse-min-base "2853116705")
 #+nil (parse-min-base "0123456789")  ;  123456789  6053444  4874  15 1 0
+#+nil (parse-min-base "21908410")
+#+nil (parse-min-base "2853116705")
 #+nil (parse-min-base "0123456789A") ; 2853116705 21908410 67149 194 5 0
 
 (defmethod base-positional ((base string) (number integer))