fork(1) download
copy 
  1. (defun radix62 (n)
  2.   (concatenate 'string
  3. 			   (nreverse (loop with char = "0123456789abcdefghijklnmopqrstuvwxyzABCDEFGHIJKLNMOPQRSTUVWXYZ"
  4. 							   with radix = (length char)
  5. 							   for m = n then (floor m radix)
  6. 							   until (zerop m)
  7. 							   collect (elt char (mod m radix))))))
  8.  
  9. (let ((n 18446744073709551615))
  10.   (format t "~d==~a~%" n (radix62 n)))
Success #stdin #stdout 0.02s 10592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
18446744073709551615==lYGhA16ahyf
https://ideone.com/idwzpE
language:
Common Lisp (clisp 2.49.92)
created:
10 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!