dabd

# cbet freq vs pre flop fold freq
set   autoscale
unset log
unset label
#set size square
set xtics 0,0.1,0.7
set ytics 0,0.1,1
set title "cbet freq vs BB fold freq"
set grid
#show grid

dabd

[P] < 3x 16-30 {JJ,88-99,44,22,AJs,A6s,K9s-KTs,Q7s,J2s,T6s,95s,84s,43s,AQo,A8o-ATo,A4o,KJo+,K8o,K3o-K4o,QTo,Q7o} (29)
[P] < 3x 8-16 {AA,JJ,77,33,ATo,A2o,KQo,K9o-KTo,T7o} (10)
[P] 3bai 0-8 {AQo} (1)
[P] 3bai 16-30 {JJ,55-66,22-33,ATs,A5s,K5s,J7s,AKo,AJo,A9o,A5o} (15)
[P] 3bai 8-16 {TT,66,33,AKo,A9o,A6o,KTo,K8o} (9)
[P] 3bnai 16-30 {KQs,T9s,KQo,KTo} (4)
[P] c3bai 16-30 {88-JJ,44,AJs-AQs,AQo+,ATo,A8o,A6o,KQo} (16)
[P] c3bai 8-16 {JJ,88,33,AQs,ATo,A2o,KQo,K9o} (8)
[P] cmr 0-8 {AKs,Q3s,J6o} (3)
[P] cmr 16-30 {Q9s,Q7s,Q3s-Q4s,T6s,75s,K7o,K3o,QTo,J8o,98o,86o+} (14)

dabd

AcKc,AdKd,AhKh,AsKs,AcKd,AcKh,AcKs,AdKc,AdKh,AdKs,AhKc,AhKd,AhKs,AsKc,AsKd,AsKh,AcQc,AdQd,AhQh,AsQs,AcQd,AcQh,AcQs,AdQc,AdQh,AdQs,AhQc,AhQd,AhQs,AsQc,AsQd,AsQh,AcJc,AdJd,AhJh,AsJs,AcJd,AcJh,AcJs,AdJc,AdJh,AdJs,AhJc,AhJd,AhJs,AsJc,AsJd,AsJh,AcTc,AdTd,AhTh,AsTs,AcTd,AcTh,AcTs,AdTc,AdTh,AdTs,AhTc,AhTd,AhTs,AsTc,AsTd,AsTh,Ac9c,Ad9d,Ah9h,As9s,Ac9d,Ac9h,Ac9s,Ad9c,Ad9h,Ad9s,Ah9c,Ah9d,Ah9s,As9c,As9d,As9h,Ac8c,Ad8d,Ah8h,As8s,KcQc,KdQd,KhQh,KsQs,4c4d,4c4h,4c4s,4d4h,4d4s,4h4s,Ac7c,Ad7d,Ah7h,As7s,Ac8d,Ac8h,Ac8s,Ad8c,Ad8h,Ad8s,Ah8c,Ah8d,Ah8s,As8c,As8d,As8h,KcJc,KdJd,KhJh,KsJs,Ac6c,Ad6d,Ah6h,As6s,KcQd,KcQh,KcQs,KdQc,KdQh,KdQs,KhQc,KhQd,KhQs,KsQc,KsQd,KsQh,3c3d,3c3h,3c3s,3d3h,3d3s,3h3s,Ac5c,Ad5d,Ah5h,As5s,Ac7d,Ac7h,Ac7s,Ad7c,Ad7h,Ad7s,Ah7c,Ah7d,Ah7s,As7c,As7d,As7h,Ac4c,Ad4d,Ah4h,As4s,KcTc,KdTd,KhTh,KsTs,Ac3c,Ad3d,Ah3h,As3s,KcJd,KcJh,KcJs,KdJc,KdJh,KdJs,KhJc,KhJd,KhJs,KsJc,KsJd,KsJh,Ac2c,Ad2d,Ah2h,As2s,2c2d,2c2h,2c2s,2d2h,2d2s,2h2s,Ac6d,Ac6h,Ac6s,Ad6c,Ad6h,Ad6s,Ah6c,Ah6d,Ah6s,As6c,As6d,As6h,Ac5d,Ac5h,Ac5s,Ad5c,Ad5h,Ad5s,Ah5c

dabd

(defn get-hand-ranks
  [h]
  (cond (or (= (count h) 2)
            (re-seq #"^..s" h)
            (re-seq #"..o" h))
        [(first h) (second h)]
        (or (re-seq #".[hcsd].[hcsd]" h)
            (re-seq #".x.x" h)
            (re-seq #".x.y" h))
        [(first h) (nth h 2)]            

dabd

(ns test.core
  (:require [clojure.string :as s]))


(defn expand-interval-test
  [interval v]
  (map (fn [s]
         (cond (re-seq #"^\d+\.?\d*$" s)
               `(<= ~v ~(Float/parseFloat s))
               (re-seq #"^(\d+\.?\d*)-(\d+\.?\d*)$" s)

dabd

let equities_file = "preflop_equities.dat"
let combos_file = "preflop_combos.dat"

let num_hands = 169
let sb_minr_range = Array.make num_hands 0.5
let sb_call_range = Array.make num_hands 0.5
let bb_shove_range = Array.make num_hands 0.5
(* All equities between hand i and j *)
let pf_equities = Array.make_matrix num_hands num_hands 0.0

dabd

let equities_file = "preflop_equities.dat"
let combos_file = "preflop_combos.dat"

let num_hands = 169
let sb_minr_range = Array.make num_hands 0.5
let sb_shove_range = Array.make num_hands 0.5
let sb_call_range = Array.make num_hands 0.5
let bb_call_range = Array.make num_hands 0.5
let bb_shove_range = Array.make num_hands 0.5

dabd

let equities_file = "preflop_equities.dat"
let combos_file = "preflop_combos.dat"

let num_hands = 169
let sb_minr_range = Array.make num_hands 0.5
let sb_call_range = Array.make num_hands 0.5
let bb_shove_range = Array.make num_hands 0.5
(* All equities between hand i and j *)
let pf_equities = Array.make_matrix num_hands num_hands 0.0

dabd

(defn write-my-seq
  [out]
  (spit out (doall (map (fn [xs]
                          (str "a seq" xs))
                        [[1 2 3]]))))

dabd

(defn write-my-seq
  [out]
  (spit out (doall (map (fn [xs]
                          (str "a seq" xs))
                        [[1 2 3]]))))