「ランダム文字列」をGaucheで解いてみる

お題：ランダム文字列 - No Programming, No Lifeを書いてみる。
すっきり。#[\w]は文字集合、\wは単語を構成する文字の集合でa-zA-Z_。#[a-zA-Z0-9_]でもいいかな。
char-set->stringで文字集合を文字列に変換するためにsrfi-14
文字列をshuffleでシャッフルするのにgauche.sequence
16文字抜き打すのにsrfi-13のstring-takeを使っています。

追記

さっき

(use gauche.sequence)
(use srfi-13)
(use srfi-14)
(string-take (shuffle (char-set->string #[a-zA-Z0-9_])) 16)

こんなの書いてましたが誤りです。これだと同じ文字が2連続しない。ランダムではない。恥ずかしい。
これでどうだ!

(use gauche.sequence)
(use srfi-14)
(use srfi-42)
(string-ec (: i 16) (~ (shuffle (char-set->string #[a-zA-Z0-9_])) 0))

また追記

実行時間をはかろうとしてtimeしたら

gosh> (time (length '(1 2 3)))

    
ERROR: failed to link /usr/local/Cellar/gauche/0.9.2/lib/gauche-0.9/0.9.2/i386-apple-darwin11.0.1/gauche--auxsys.so dynamically: dlopen(/usr/local/Cellar/gauche/0.9.2/lib/gauche-0.9/0.9.2/i386-apple-darwin11.0.1/gauche--auxsys.so, 10): Symbol not found: _environ
      Referenced from: /usr/local/Cellar/gauche/0.9.2/lib/gauche-0.9/0.9.2/i386-apple-darwin11.0.1/gauche--auxsys.so
  Expected in: flat namespace
 in /usr/local/Cellar/gauche/0.9.2/lib/gauche-0.9/0.9.2/i386-apple-darwin11.0.1/gauche--auxsys.so
Stack Trace:
_______________________________________
  0  (sys-times)
        [unknown location]

こんな表示が。
後でググろう…

さっきのだと遅いかな、と思って書き直してみた



    
実行時間をはかる。
    前のをちょっと変えたのをa.scmと今のをb.scmに書いて実行する


    
前の
    a.scm
(use gauche.sequence)
(use srfi-14)
(use srfi-42)
(dotimes (n 1000)
  (let ((src (char-set->string #[a-zA-Z0-9_])))
    (string-ec (: i 16) (~ (shuffle src) 0))))
$ time gosh a.scm

real	0m1.475s
user	0m1.463s
sys	0m0.010s



    
今の
    b.scm
(use srfi-14)
(use srfi-27)
(use srfi-42)
(dotimes (n 1000)
  (let* ((src (char-set->string #[a-zA-Z0-9_]))
         (src-len (string-length src)))
    (string-ec (: i 16) (~ src  (random-integer src-len)))))
$ time gosh b.scm

real	0m0.105s
user	0m0.098s
sys	0m0.006s
もっといい方法があるに違いない。