marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Add random id generator

Browse source
This commit is contained in:
Marcus Kammer 2024-06-08 21:43:23 +02:00
parent ec139b644c
commit 1212925469
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/handlers/main.lisp
View file

@ -64,4 +64,11 @@
(get-universal-time) (get-universal-time)
(random 1000000)))) (random 1000000))))
(defun generate-random-id ()
(let ((charset "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")
(length 11))
(coerce (loop repeat length
collect (char charset (random (length charset))))
'string)))
(defun string-empty-p (string) (= (length string) 0)) (defun string-empty-p (string) (= (length string) 0))