fork download
copy 
  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. (defparameter *delta-t* (- (get-internal-real-time) *start-time*))
  5. (format t "DELTA T: ~A~%" *delta-t*)
  6. (defparameter *delta-t* (* *delta-t* 1.0))
  7. (format t "DELTA T FLOAT: ~A~%" *delta-t*)
  8. (format t "KUKAREKU: ~A~%" (/  *delta-t* internal-time-units-per-second))
  9.  
  10.  
Success #stdin #stdout 0.03s 10592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
internal-time-units-per-second: 1000000
DELTA T: 1000789
DELTA T FLOAT: 1000789.0
KUKAREKU: 1.000789
https://ideone.com/axsM1
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!