;; https://datatracker.ietf.org/doc/html/rfc9562
;; xxxxxxxx-xxxx-4xxx-9xxx-xxxxxxxxxxxx
(fn uuid4 []
  (local hex [:0 :1 :2 :3 :4 :5 :6 :7 :8 :9 :A :B :C :D :E :F])
  (fn hex-count [l] (faccumulate [n "" i 1 l] (.. n (. hex (math.random 16)))))
  (.. (hex-count 8) "-" (hex-count 4) "-4" (hex-count 3) "-9" (hex-count 3) "-"
      (hex-count 12)))

Generated by alexjgriffith using scpaste at Sun May 12 12:56:08 2024. EDT. (original)