about summary refs log blame commit diff
path: root/emacs/.emacs.d/wpc/random.el
blob: 6ffdbd4de04a644982d4b4489ea57f1f698d59f2 (plain) (tree)
1
2
3
4
5
6
                                                                                  
 
                                              


                                                               






                                                                      



                                                                                










                                                                                
                     



                                                        
                         


                                    
                    

          
                         
                             
                               

                                                                           
                     




                                                                          




                                  
 
                            

                                                             
                                                            

                       














                                                                         


                       
;;; random.el --- Functions for working with randomness -*- lexical-binding: t -*-

;; Author: William Carroll <wpcarro@gmail.com>
;; Version: 0.0.1
;; Package-Requires: ((emacs "24"))
;; Homepage: https://user.git.corp.google.com/wpcarro/briefcase

;;; Commentary:
;; Functions for working with randomness.  Some of this code is not as
;; functional as I'd like from.

;;; Code:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'prelude)
(require 'number)
(require 'math)
(require 'series)
(require 'list)
(require 'set)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun random-int (x)
  "Return a random integer from 0 to `X'."
  (random x))

;; TODO: Make this work with sequences instead of lists.
(defun random-choice (xs)
  "Return a random element of `XS'."
  (let ((ct (list/length xs)))
    (list/get
     (random-int ct)
     xs)))

(defun random-boolean? ()
  "Randonly return t or nil."
  (random-choice (list t nil)))

;; TODO: This may not work if any of these generate numbers like 0, 1, etc.
(defun random-uuid ()
  "Return a generated UUID string."
  (let ((eight  (number/dec (math/triangle-of-power :base 16 :power 8)))
        (four   (number/dec (math/triangle-of-power :base 16 :power 4)))
        (twelve (number/dec (math/triangle-of-power :base 16 :power 12))))
    (format "%x-%x-%x-%x-%x"
            (random-int eight)
            (random-int four)
            (random-int four)
            (random-int four)
            (random-int twelve))))

(defun random-token (length)
  "Return a randomly generated hexadecimal string of LENGTH."
  (->> (series/range 0 (number/dec length))
       (list/map (lambda (_) (format "%x" (random-int 15))))
       (list/join "")))

;; TODO: Support random-sample
;; (defun random-sample (n xs)
;;   "Return a randomly sample of list XS of size N."
;;   (prelude/assert (and (>= n 0) (< n (list/length xs))))
;;   (cl-labels ((do-sample
;;                (n xs y ys)
;;                (if (= n (set/count ys))
;;                    (->> ys
;;                         set/to-list
;;                         (list/map (lambda (i)
;;                                     (list/get i xs))))
;;                  (if (set/contains? y ys)
;;                      (do-sample n xs (random-int (list/length xs)) ys)
;;                    (do-sample n xs y (set/add y ys))))))
;;     (do-sample n xs (random-int (list/length xs)) (set/new))))

(provide 'random)
;;; random.el ends here