Procedure call profile for the cleaned up version of EM-FUN,
as profiled in Larceny 0.32.

36705535 calls to top-level procedures

6967060  19.0  anonymous
2896471   7.9  map-n-vector
2740262   7.5  matrix-ref
2357710   6.4  exp
1957330   5.3  matrix-rows
1565864   4.3  matrix-set!
1371931   3.7  max
1175598   3.2  add-exp
1175598   3.2  floor
1175598   3.2  min
1175598   3.2  model-log-determinant-sigma
1175598   3.2  model-log-pi
1175598   3.2  model-mu
1175598   3.2  model-sigma-inverse
982522   2.7  ieee-log
982522   2.7  log
875508   2.4  matrix-columns
743208   2.0  map-vector
477861   1.3  first
463380   1.3  +
391466   1.1  every-n
391466   1.1  make-matrix
391466   1.1  make-matrix-initial
289409   0.8  %list
289409   0.8  second
195734   0.5  call-with-current-continuation
195733   0.5  clip-eigenvalues
195733   0.5  determinant
195733   0.5  invert-matrix
195733   0.5  invert-matrix!
195733   0.5  jacobi
195733   0.5  jacobi!
195733   0.5  make-model
195733   0.5  matrix-copy
195733   0.5  sum
 92676   0.3  e-step
 92676   0.3  reduce-vector
 92576   0.3  m-step
 41742   0.1  modulo
 27342   0.1  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
  1800   0.0  k*v
   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
   220   0.0  char-numeric?
   200   0.0  map
   200   0.0  map-n
   200   0.0  remove-if-not
   100   0.0  em-clusterer
   100   0.0  ems
    55   0.0  hex-string->number
    55   0.0  string->list
    55   0.0  substring
     1   0.0  em-fun-benchmark
     1   0.0  end-countcalls
     1   0.0  random:initialize
     1   0.0  run-benchmark
     1   0.0  string=?