Module Qlearn

type ('state, 'action) t
val make : ?rate:float -> ?discount:float -> ?explore:float -> ?seed:int -> unit -> ('state, 'action) t
val value : ('state, 'action) t -> 'state -> 'action -> float
val best : ('state, 'action) t -> 'state -> 'action list -> 'action option
val choose : ('state, 'action) t -> 'state -> 'action list -> 'action option
val learn : ('state, 'action) t -> state:'state -> action:'action -> reward:float -> next:'state -> next_actions:'action list -> unit
type ('state, 'action) world = {
  1. actions : 'state -> 'action list;
  2. step : 'state -> 'action -> 'state * float;
  3. over : 'state -> bool;
}
val episode : ?limit:int -> ('state, 'action) t -> ('state, 'action) world -> 'state -> float
val greedy_run : ?limit:int -> ('state, 'action) t -> ('state, 'action) world -> 'state -> float * 'state list
val known : ('state, 'action) t -> int
val values : ('state, 'action) t -> 'state -> 'action list -> ('action * float) list