fork download
copy 
  1. (let* ((char "0123456789abcdefghijklnmopqrstuvwxyzABCDEFGHIJKLNMOPQRSTUVWXYZ")
  2.        (radix (length char)))
  3.   (defun radix62 (n &optional (ret nil))
  4.     (if (zerop n)
  5. 		(concatenate 'string ret)
  6. 		(radix62 (floor n radix) (cons (elt char (mod n radix)) ret)))))
  7.  
  8. (let ((n 18446744073709551615))
  9.   (format t "~d==~a~%" n (radix62 n)))
Success #stdin #stdout 0.03s 10544KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
18446744073709551615==lYGhA16ahyf
https://ideone.com/OxG8ky
language:
Common Lisp (clisp 2.49.92)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!