RosettaCodeData/Task/Time-a-function/Common-Lisp/time-a-function-1.lisp

9 lines
251 B
Common Lisp
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
CL-USER> (time (reduce #'+ (make-list 100000 :initial-element 1)))
Evaluation took:
0.151 seconds of real time
0.019035 seconds of user run time
0.01807 seconds of system run time
0 calls to %EVAL
0 page faults and
2,400,256 bytes consed.