暗証番号ジェネレータ

Erlang 30分プログラム

30分プログラム、その760。暗証番号ジェネレータ。
最近、暗証番号を設定する機会が何度かありました。とはいうのもの、ランダムな4桁の数字なんで、そう簡単には思いつけないです。
というわけで暗証番号ジェネレータを作ってみました。
破られやすさとかの話はよく分かりません。そもそも4桁の数字なんてすぐ破れそうですしね。

使い方

23> ansyou:ansyou(4).
"1988"
24> ansyou:ansyou(4).
"3381"
25> ansyou:ansyou(4).
"1119"

ソースコード

-module(ansyou).
-compile([export_all]).

ansyou(N) ->
    ([ $0 + random:uniform(9) || _ <- lists:seq(1,N)]).

参考