Non-decimal radices/Convert: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed an HTML tag.) |
|||
Line 652: | Line 652: | ||
<lang lisp>(parse-integer "1a" :radix 16) ; returns multiple values: 26, 2 |
<lang lisp>(parse-integer "1a" :radix 16) ; returns multiple values: 26, 2 |
||
(write-to-string 26 :base 16) ; also "1A"</lang> |
(write-to-string 26 :base 16) ; also "1A"</lang> |
||
Alternative implementation using FORMAT's ~R directive and #nR reader macro |
|||
<lang lisp>(defun decimal-to-base-n (number &key (base 16)) |
|||
(format nil (format nil "~~~dr" base) number)) |
|||
(defun base-n-to-decimal (number &key (base 16)) |
|||
(read-from-string (format nil "#~dr~d" base number)))</lang> |
|||
=={{header|D}}== |
=={{header|D}}== |