Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- rand_string(0,Acc)->Acc;
- rand_string(Len,Acc)->
- Ch = case rand:uniform(2) of
- 1->
- $/+rand:uniform(10);
- _->$@+rand:uniform(26)
- end,
- rand_string(Len-1,[Ch|Acc]).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
