Emacs Part 39

[0742 名無しさん＠お腹いっぱい。 2012/01/17(火) 15:40:14.13]

(defun random-string (length)
(let* ((offset (random 36))
(char (substring "0123456789abcdefghijklmnopqrstuvwxyz" offset (1+ offset))))
(if (> length 1)
(concat char (random-string (1- length)))
char)))