Skip to content

Instantly share code, notes, and snippets.

@KKostya

KKostya/random_then_stwap_strategy.re

Last active October 23, 2018 12:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save KKostya/409a67c87f1a1bfae9e36eeb23012948 to your computer and use it in GitHub Desktop.
Save KKostya/409a67c87f1a1bfae9e36eeb23012948 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
random_then_stwap_strategy.re
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)
)
Raw
~output
val random_then_swap_strategy : door -> choice -> real = <fun>
- : real = 2000000/3
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment