Welcome to the chicken scheme pasting service

Why (fp/ (current-seconds) 1000.0) added by alexshendi on Sun Aug 20 20:17:14 2017

;;;; From extras.scm
;;;; [snip]

;;; Random numbers:

(define (randomize . n)
  (let ((nn (if (null? n)
		(##sys#flo2fix (fp/ (current-seconds) 1000.0)) ; wall clock time
		(car n))))
    (##sys#check-exact nn 'randomize)
    (##core#inline "C_randomize" nn) ) )

(define (random n)
  (##sys#check-exact n 'random)
  (if (eq? n 0)
      0
      (##core#inline "C_random_fixnum" n) ) )

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Type in the text below:
  __                  _           
 / _|_  ___ __  _   _| |__  _   _ 
| |_\ \/ / '_ \| | | | '_ \| | | |
|  _|>  <| | | | |_| | | | | |_| |
|_| /_/\_\_| |_|\__,_|_| |_|\__, |
                            |___/ 
Visually impaired? Let me spell it for you (wav file) download WAV