util.ml
knights_tour
knights_tour.collections
knights_tour.pentominos
knights_tour.searchspace
1 2 3 let rec with_separator str sep = function | [] -> "" | x::y::ys -> str x ^ sep ^ with_separator str sep (y::ys) | [x] -> str x
1 2 3
let rec with_separator str sep = function | [] -> "" | x::y::ys -> str x ^ sep ^ with_separator str sep (y::ys) | [x] -> str x