Procedure call profile for Siskind's original version of EM-FUN, as profiled in Larceny 0.32. 159548771 calls to top-level procedures 51073403 32.0 anonymous 24531124 15.4 for-each-n 11736746 7.4 map-vector 10440182 6.5 map-vector-two 4701192 2.9 - 4081650 2.6 v- 3980393 2.5 reduce-vector 3917060 2.5 * 3401175 2.1 + 2746262 1.7 matrix-ref 2742662 1.7 dot 2357710 1.5 exp 2146782 1.3 map-n-vector 1957330 1.2 v+ 1649259 1.0 matrix-columns 1569464 1.0 matrix-set! 1568264 1.0 matrix-rows 1565864 1.0 outer-product 1534721 1.0 matrix-column-ref 1371931 0.9 k*v 1370131 0.9 k*m 1176198 0.7 model-mu 1175598 0.7 m*v 1175598 0.7 model-log-determinant-sigma 1175598 0.7 model-log-pi 1175598 0.7 model-sigma-inverse 1174398 0.7 self-outer-product 983722 0.6 ieee-log 983722 0.6 log 978665 0.6 m+ 875608 0.5 transpose 815875 0.5 max 783532 0.5 make-matrix-initial 619542 0.4 add-exp 619542 0.4 floor 619542 0.4 min 588999 0.4 for-each-from-a-up-to-b 477861 0.3 first 392666 0.2 make-matrix 391466 0.2 every-n 391466 0.2 m* 289409 0.2 %list 289409 0.2 second 196334 0.1 call-with-current-continuation 196333 0.1 determinant 196333 0.1 invert-matrix 196333 0.1 make-model 195733 0.1 clip-eigenvalues 195733 0.1 jacobi 195733 0.1 sum 195733 0.1 vector->diagonal-matrix 92676 0.1 e-step 92676 0.1 m- 92576 0.1 m-step 41742 0.0 modulo 27342 0.0 logical:ash-4 17271 0.0 logical:logxor 3600 0.0 noise 3600 0.0 rand 3600 0.0 random:chunk 3300 0.0 rest 600 0.0 model-pi 600 0.0 model-sigma 600 0.0 positionv 600 0.0 reduce 600 0.0 vector->list 400 0.0 reverse 300 0.0 em 300 0.0 initial-z 200 0.0 map 200 0.0 map-n 200 0.0 remove-if-not 100 0.0 em-clusterer 100 0.0 ems 1 0.0 em-fun-benchmark 1 0.0 end-countcalls 1 0.0 run-benchmark 1 0.0 string=?