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:
 _          _             
| |__   ___| |___   ______
| '_ \ / _ \ __\ \ / /_  /
| | | |  __/ |_ \ V / / / 
|_| |_|\___|\__| \_/ /___|
                          
Visually impaired? Let me spell it for you (wav file) download WAV