basketball.scala

def basketball(unseenShots: Int) = {
  def prob(outcomes: List[Boolean]) = 1.0 * outcomes.count(m => m) / outcomes.size
  val outcomes = always(List(true, false)).markov(unseenShots+1)(outcomes => tf(prob(outcomes)).map(b => b::outcomes)).given(_.head)
  val lastShot = for {
    outcome <- outcomes
    shot <- tf(prob(outcome))
  } yield shot
  lastShot.pr(a => a)
}