Welcome to the CHICKEN Scheme pasting service

Read rational number added by Buglouse on Sat Jul 9 20:00:10 2016

(define (loadavg) ;Read /proc/loadavg;Return list
  (let ((in (open-input-file "/proc/loadavg")))
    (let loop ((ret '()) (i (read in)))
      (if (eof-object? i) (reverse ret)
          (loop (cons i ret) (read in))))))
;From test.scm
(write (loadavg))
=> (2.18 1.84 1.64 1/57 16238)
;From run.scm
(write (loadavg))
=> (2.18 1.84 1.64 0.0175438596491228 16238)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which procedure can be used to check whether its argument is a procedure?
Visually impaired? Let me spell it for you (wav file) download WAV