Advent of Code

aoc_05.fs

[<EntryPoint>]
let main argv =
  let parseBoardingPass (boardingPass : string) =
    let bn = boardingPass.Replace('F', '0').Replace('L', '0').Replace('B', '1').Replace('R', '1')
    let sid = System.Convert.ToInt32(bn, 2)
    sid/8, sid%8, sid    

  let testCases =
    [|
      "FBFBBFFRLR", (44 , 5, 357)
      "BFFFBBFRRR", (70 , 7, 567)
      "FFFBBBFRRR", (14 , 7, 119)
      "BBFFBBFRLL", (102, 4, 820)
    |]

  for boardingPass, seating in testCases do
    let s = parseBoardingPass boardingPass
    if s <> seating then
      printfn "Test case failed for '%s' expected %A but got %A" boardingPass seating s

  0