let set_path s = s.path <- ((get_path_opt_alg s.path_opt_alg) s.cave ((get_pathfinding s.alg s.cave) s.src s.dst (get_dist_alg s.dist_alg)))