Emacs Part 39

[0001 名無しさん＠お腹いっぱい。 2011/11/29(火) 17:50:44.24]

前スレ

Emacs Part 38
http://hibari.2ch.net/test/read.cgi/unix/1308635178/

[0739 名無しさん＠お腹いっぱい。 2012/01/17(火) 14:50:18.40]

動けばいいってこと？

(defun random-string (length)
(let ((i length)
(s "0123456789abcdefghijklmnopqrstuvwxyz")
(a '())
n c)
(while (> i 0)
(setq n (random 36))
(setq c (substring s n (1+ n)))
(setq a (cons c a))
(setq i (- i 1)))
(mapconcat 'identity a "")))

[0740 名無しさん＠お腹いっぱい。 2012/01/17(火) 15:05:13.65]

(defun random-string (length)
(let ((s "0123456789abcdefghijklmnopqrstuvwxyz")
a n)
(while (> length 0)
(setq n (random 36))
(setq a (concat a (substring s n (1+ n))))
(setq length (1- length)))
a))

[0741 名無しさん＠お腹いっぱい。 2012/01/17(火) 15:24:40.20]

(defun random-string (length)
(concat (loop with s = "0123456789abcdefghijklmnopqrstuvwxyz"
repeat length
collect (aref s (random 36)))))

[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)))

[0743 名無しさん＠お腹いっぱい。 2012/01/17(火) 15:59:27.93]

(defun random-string (length)
(substring (shuffle-vector "0123456789abcdefghijklmnopqrstuvwxyz")
0 length))

[0744 名無しさん＠お腹いっぱい。 2012/01/17(火) 16:08:57.86]

(defun random-string (length)
  (loop with s = (make-string length 0)
  for i from 0 to (1- length)
  do (aset s i (aref "0123456789abcdefghijklmnopqrstuvwxyz" (random 36)))
  finally return s))