Cacher is the code snippet organizer for pro developers

let random_then_swap_strategy = (door : door,choice) => 
    switch(door,choice){ | (_,Swap) => Real.(1.0 / 3.0) | _ => 0.0 };
expected_reward(
  make_scenario_pmf(pDoorsEqual,random_then_swap_strategy)
)

val random_then_swap_strategy : door -> choice -> real = <fun>
- : real = 2000000/3