fork download 
  1. (format t "internal-time-units-per-second: ~A~%" internal-time-units-per-second)
  2. (defparameter *start-time* (get-internal-real-time))
  3. (sleep 1)
  4. (format t "RUNTIME ~A~%" (/ (- (get-internal-real-time) *start-time*) internal-time-units-per-second))
  5.  
  6.  
Success #stdin #stdout 0.02s 10584KB
comments (?)
stdin 
Standard input is empty
stdout 
internal-time-units-per-second: 1000000
RUNTIME 31269/31250
https://ideone.com/RFK6T
language:
Common Lisp (clisp 2.49.92)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!