このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1363522503/91
#  Youtubeみたいなランダムでユニークなn文字数の文字列を作る方法を教えてください 

'Youtubeみたいなランダムでユニークなn文字数の文字列を作る'(_n,_文字列) :-
        'ランダムでユニークなn文字数の文字コードならびを作る'(_n,[],Chars),
        atom_codes(_文字列,Code).

'ランダムでユニークなn文字数の文字コードならびを作る'(0,L,L).
'ランダムでユニークなn文字数の文字コードならびを作る'(M,L1,L) :-
        ユニークな文字コードを選択する(L1,Code),
        M_1 is M - 1,
        'ランダムでユニークなn文字数の文字コードならびを作る'(M_1,[Code|L1],L).

ユニークな文字を選択する(L,Code) :-
        Code is random(75) + 48,
        アルファベットの範囲(Code),
        \+(member(Code,L)),!.
ユニークな文字を選択する(L,Code) :-
        ユニークな文字を選択する(L,Code).

アルファベットの範囲(Code) :-
        between(48,57,Code).
アルファベットの範囲(Code) :-
        between(65,90,Code).
アルファベットの範囲(Code) :-
        between(97,122,Code).