Skip to content

Instantly share code, notes, and snippets.

@KKostya

KKostya/expected_biased_strategies.re

Last active October 23, 2018 16:11
Show Gist options
  • Save KKostya/b16016210394503cf9bb843024f3f3c4 to your computer and use it in GitHub Desktop.
Save KKostya/b16016210394503cf9bb843024f3f3c4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
expected_biased_strategies.re
let aStayStrategy = (door,choice) =>
switch(door,choice){ | (DoorA,Stay) => 1.0 | _ => 0.0 };
expected_reward(
make_scenario_pmf(pDoorsBiased,aStayStrategy)
);
let cSwapStrategy = (door,choice) =>
switch(door,choice){ | (DoorC,Swap) => 1.0 | _ => 0.0 };
expected_reward(
make_scenario_pmf(pDoorsBiased,cSwapStrategy)
);
Raw
~output
val aStayStrategy : door -> choice -> Q.t = <fun>
- : real = 600000
val cSwapStrategy : door -> choice -> Q.t = <fun>
- : real = 800000
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment