@@ -33,9 +33,12 @@ -import(random). v4() -> - v4(random:uniform(math:pow(2, 48)) - 1, random:uniform(math:pow(2, 12)) - 1, random:uniform(math:pow(2, 32)) - 1, random:uniform(math:pow(2, 30)) - 1). -v4(R1, R2, R3, R4) -> + R1 = random:uniform(round(math:pow(2, 48))) - 1, + R2 = random:uniform(round(math:pow(2, 12))) - 1, + R3 = random:uniform(round(math:pow(2, 32))) - 1, + R4 = random:uniform(round(math:pow(2, 30))) - 1, <<R1:48, 4:4, R2:12, 2:2, R3:32, R4: 30>>. + to_string(U) -> lists:flatten(io_lib:format("~8.16.0b-~4.16.0b-~4.16.0b-~2.16.0b~2.16.0b-~12.16.0b", get_parts(U))). uuid.erl 8f39b27ea0958e4a86136d2f0b70074bf9b1c27a wildchild alexander.uvarov@gmail.com http://github.com/wildchild/erlang-uuid/commit/1df563281bde3ccd0f10d420e1e615f5e3669899 1df563281bde3ccd0f10d420e1e615f5e3669899 2009-09-19T09:42:46-07:00 2009-09-19T09:42:46-07:00 Round value before passing it to random number generator aadb9937ed9d894d49ccc70a4ca575c69bd9cba3 wildchild alexander.uvarov@gmail.com