namespace eval ::algos { variable list {} }

foreach file [glob src/algos/*.tcl] {
  source $file
}

foreach algo [namespace children ::algos] {
  lappend ::algos::list [lindex [split $algo :] end]
}