getFinal.sml

fun getFinal init res =   
    let
        fun helper total bet n =
            case n+1 > size res of
                 true => total
               | _ => if String.sub (res, n) = #"L"
                      then helper (total-bet) (bet*2) (n+1)
                      else helper (total+bet) 1 (n+1) 
    in
        helper init 1 0
    end