-
Notifications
You must be signed in to change notification settings - Fork 47
Open
Labels
Description
It looks like it might be possible to speed up the from-list
function:
MAGICL> (let* ((n 50000)
(xs (loop :for i :below n :collect (coerce i 'double-float))))
(sb-ext:gc :full t)
(time (magicl:from-list xs (list n) :type 'double-float))
(sb-ext:gc :full t)
(time (magicl:from-array (coerce xs '(array double-float (*))) (list n)))
(values))
Evaluation took:
1.544 seconds of real time
1.544000 seconds of total run time (1.544000 user, 0.000000 system)
100.00% CPU
4,188,179,784 processor cycles
3,578,512 bytes consed
Evaluation took:
0.000 seconds of real time
0.004000 seconds of total run time (0.004000 user, 0.000000 system)
100.00% CPU
1,477,558 processor cycles
400,016 bytes consed