package knights_tour

  1. Overview
  2. Docs
package knights_tour
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file util.ml

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