Add day5 in F#
Created by krixano on December 5, 2020
S7KQGPTY6EA4BULFXXKOHCIDJ3BJ62IWXBNJMPPCPMLV3DBUYPTAC Dependencies
In channels
main
Change contents
File addition: day5
[3.230427]File addition: main.fs
[0.7]open System.IOlet readLines (filePath: string) = seq {use sr = new StreamReader (filePath)while not sr.EndOfStream doyield sr.ReadLine()}type Range = { first: int; last: int }let rangeFront (r: Range): Range ={ Range.first = r.first; last = r.first + ((r.last - r.first) / 2) }let rangeBack (r: Range): Range ={ Range.first = r.first + ((r.last - r.first) / 2) + 1; last = r.last }let rangeLower = rangeFrontlet rangeUpper = rangeBacklet calculateSeatId (row: int) (col: int): int =row * 8 + collet rec binarySearch (s: string) (i: int) (final: int) (r: Range): Range =let c = s.[i]let newRange = if (c = 'F' || c = 'L') then (rangeFront r)else (rangeBack r)if i = final then newRangeelse binarySearch s (i + 1) final newRange[<EntryPoint>]let main argv =let lines = readLines "input.txt"let seats: bool array = [| for i in 0..(128 * 8) do false |]let usedSeats = [ for line in lines dolet rowRange = binarySearch line 0 6 { Range.first = 0; last = 127 }let colRange = binarySearch line 7 9 { Range.first = 0; last = 7 }let seatId = calculateSeatId rowRange.first colRange.firstArray.set seats seatId true(seatId) ]let highestSeatId = List.max usedSeatslet part2 = query {for i in 1..seats.Length - 1 dofind (seats.[i - 1] && not seats.[i] && seats.[i + 1])}printf "%d\n%A\n" highestSeatId part20File addition: input.txt
[0.7]BFBBBBFRLLFBFBFFBRLLBBFBBFBLRLBFFFBBFLLRBFFFFBBLRLBFBBFBFRRLFBBFBFBRRRFFBFBFFRLRBBBFFBFLLLBFFBBBBRRLBBFBFFFRRRFBFFFFFRLLBFBFBBFLRLBFBFBFBLRLBFFFBFFLLLBBFBBBFRRLFBFFBBFRRRFFBBBFFRRLBFBBBBBLLLFBFBFFBLLLBBFBFBBLRRBFFFFFBRLLBFBFBBFRLRBBFFBBFRRLFBBBFBBRLLBFFBBFBRRRBFBFBBFLLLBBFFBBBRLRFBFFFFBRRLBFFFBFBRRLFFFBBBBLRRFFBFFBBRRRFFFBFBFRLLFFFBBFFRRLBFFBFBBRRLFBBBFBBLRRBBBFFBBRRRFBFFFFBLLRFFFBFFFLLLBFFFBBBRRLBFFFFBFLRLFFFBFBFRLRBFFBBBFLRLBBBFBFFLRLFBBFBBBLRLFBFFBBBRLLBFBFFFBLRRFBBFFFBLLLBFBFBFFRRRBBFBFBBRRRBFBBBFBRRRFBFBFFFLLRFBBFFBFLRRFBFBBBBLRLBBFFBFBRLLFBFBFBFRRRFFBBBFBRLLBBBFFBBRLLBBFBBFBRRRFFBBFBFLLRFBFBFBFRRLBFFBFBBLLRFFBBFFFLLRBBFFFFFLLLBBFBBBBLLRFBBBBFBRLLBFBBBBBLLRFBBBBFBRRRBFFBFBFLRLFFBFBFBLRRFFBBBFFRLRBBFBBBBRRRFFBBBBFLLLBFBFFBBRLRBFFFBFBLLLBBFFBFBRRLFFBFFBBLRRFFFBBBBLLRBFBBBBFRRLBFBFBBFLLRBBFFFBFRRRBFFBBFFLRLFFBFBBBRRLBFFBFFFRRRBBFBFBBRRLBFBBBFFRLRFFBFFBFLLLFFFBFFBRRRFBFFBBFRLLBBBFBFFLLRFFBBFBFLRRFBFBBBFRLLFBBFFFBLLRFFBFBFFRLLBBFBFFFRRLBFBFBFFLRLBFBBFBFRLLBFFFBBBRLLBFFFFFBRRLFFFFBBBLLLBBFBBBFRRRFBBBFBFLRLBBBFFBFRRLFBBFBBBRLRFBBFFBFLLLBFBFBBBLLLFBFFFFBLLLFFBFFBFRLRFBFFFBFLRLFFBBFFBRRRFBBBFBFRLLBFFBFFBLLRBBFFBBFRLLFFBFBBFLLRBFBBFBFRRRFFBBBFBLLRBBFBFFFRLRBFBBFBFLLLBBBFFFFRRRFBFBFBBRLRBFFFBBBLRLFBBBFFBLRLBFBFBFFLLLFBFBFFFRLLFFBBBBBLRLFFBBBBBRLLFBFBFBFRLLFBBFFBFRRLBFFBBBBRRRBBFFFBFRLRBBFBBFBLLRFFFBFFBRLLBBFFBFFRLRFBBBFFBRLLBBFFFBBRRRFBBFBBFRRLBBFBBFFLRRFFFBFFBLRLBFFBBFBLRRFFBBBBFLRRBBFFFBBRLLFFFBFFBLLLBFFFFBBLLRFFBBFBBLRLFBBFBFBLRRFFFFBBBLRLBFBFBFBRLLFFBFFBBRLLFFFBFBFLLLFBBFFFFRRRFFFBFBBLLRBBFFBFFRRLFFBFBBFRRLBFFBFFFLLLBFFBFFBRLLBBFFBFBRRRBFFBBBBLRLFBFFFBBLLRBBFFFFFLRRFBBBFBFLLRFFBFBBFLLLBFFBFFBRRRBBFFBBBRRRFBFFFBBLRLFBFBFBBLLRBBFFFBBLLLFBBFBFFRRRBFFFBBBRRRFFFFBBBLLRFFBBBFBRLRFBFFBFFRLRFBFBFFFLRLBBFBFFFLLRFFBFFFBLRLFBFFFFFRRLFBBBBBBLRRFBFBBBBRRRFBBBFFBLLLBBFBFFFLLLBFFFBBFRLLFFBBFFFRRLFBFFFFFLRRFFFBFBFRRLBFBBFBFRLRBFBBFFBRLRBBFFBFBLRRBFBBBFFLRLBFFFFBBRLRBBFFBBBLLLBFBFBFBRRLFBFFBFBLRRFFFBFBFRRRBBFFBFFLRRFBBFBFBRLLBFFFFBFLLLFFBBFBBLLLFFBFFFBRRRBFFBFBFRLLFBFFBBFRRLBFFBFFFLRLFBFBBFBLLLBFFBFBBLLLFBFFBFBRRRFFBBFFFLLLBBFBBBBLRRFFBFFFBLLLFBBBFBFLRRBFFBBBBRLLBFBFBBBLRLBBFBBFBLRRFBBBFFFLRLBBFBFBFLLRFFFBFFBLLRFFFBFBFLRLFFBFBBFRLLFBBBBBBLRLFFBFFBBLLLFBBBBBFLRRFBBBFBBRRRBBFBFFBLLRBFBFFBBLRLBFBFFFFLRLBFFFFFBLLLFBFFBBBRRLFFBBBFBRRRBFFFBFFLLRFBBBBFBLLLFBBFFBBRRLBBFFFBBLRRFBFBFBBLRLFBBBFBBLLLFBBFBFFLLLBBFBBFBRRLFBFBFFFLRRBBBFBFFLLLBBFBBFFLLRBBFBFFBRRLFFBFFFFLLLBBFFFBBLRLFBBFBFBLLRFBFBFFBLRRBBFFFFBRRRBFBBBFFRLLBBFBFBFLRRFFBFFBBLRLFFFBBFFRRRFBFBBFBRLLFBBFFBBRRRFBFFBFBLLLFFBFFBBLLRFBBFBFFLRLBFFFFBBLRRFBBFBFBRLRBFFFFBFLRRFFFBBBBLRLFBFFBFFLLLBFBBBBFLRLBFFFBBFLRRBFFFBFFRLRBBFFFFFLLRFFBBBBFRRRBFBFFBFLRRFFBFFFBLRRBBFBBFFRRLFBFBFBBLRRBBFFBBFLRLFBFBBFFLLLBFBFBFFRLLBBFBBBFRLLFFBFBFBLLRFBFBFBFLLRBFBBFFBRRRFFBBBFBLRRFBFBFFFLLLBFFFFFFRRLBFBFFFBRLLFBFFBBBLLRFFFFBBBRLRBFFBBBBLLRFFBFFBFRRRFBFBBBBRRLBFBFBFBLRRFBFBBFFRLLBFFBFBFLLLFBBBFFBRRLBFBFFBBLLLBFBBFBFLRLFBFBFFBRLRBFBFBFFLRRFFBBFFBLRLFFFBBBFRLLBBFFBBFLRRFBFBBFFRRLBFFBFBBLRLFBBBFBFRRLFFBFFBFLLRFBFFFBBRLRBBFFBBBLRRBBFBFBFRLLFBFBBBBLLLBFFFFFFRLLFFBFFFBRLRBFFFFBFRRRBFBFFBBLLRBFFBBBFRRRBFBFFFBRRLFBBBFFFRRRBBFBBBBRRLFBBFFFFRRLFFBFFFFRLRBFFFFFFLLLFFBFBBFLRLFFFBBFBRLLFFFBFBBRRLFBBBBFBLLRFBFFFBFRRLBFFBBBBLRRFBFFFFFLRLFFFBBFFLRRBBFFFFFRLLFBBBFFFLLRBFFBBFBLLRBBFBBBFLRLFBFBFFBRRLBBFFBFBRLRFBFFBFBRRLFFBFFBBRLRFBBBBBFRRRFFBFFFFRRRBFBBBFBLLRFBFBFBFRLRBFBBBFBRLLFBFBBFFLRRBFBFBFBRLRFBFBBBBLRRBFBBFFFLLRBFBFBBFRRLFBFBBFBLLRFFFFBBBRRRBFBBBFBLLLBFBFFFFRRRFBBFFFBRRLFFBFBFBRRRFFBBFBBRLLBFFBFFFRRLBBFFFFFRLRBFFFBBBLRRFFBBFBBRRRFFFBBFBLLRFFBFBFFLRRBBBFFFFLRLFFFBFFBRLRFFFBFFFLRRFFBFBFFLLRFBBBFBBRLRFBBFBBBRLLBBBFFBFRLRFBBBBFBRLRBFBBBBFLRRFBBBFBFRLRFFBFBFFRRLFBBBFFFLRRBFFBBFBRLLFBFFFBBRLLFBFBBBBRLLBBBFFBFRRRBFBBFFBLRLBBBFFFBRLRBBFBBFBRLRBBFBBBBLRLBBFFFBBRLRBFFBBFBLLLBFFBFBFRLRFFBBBBBLLLBFFFFFBLRLBFBBFFBLLLBFFBBFFLRRBFFBBFFRRLBFFFFFFLLRFBBFBBFRLRFBBBBFFRLRBBFFFBFRLLBBBFFFBLLRFFFBBBFRRRBFBBFFBRRLFBBBBFFRLLBFFFFFFRLRFBBFBBFLRRBFBFFFFLLLBFBFFBBRLLBFBBBFBRLRBBFFFFFLRLBFBBFFBRLLBFBFBFBRRRBBBFFBBLLLBBFFFBFLRLFBFFFBBRRLFFBFBBBLRRBFFFBBBRLRBBFBFBBLLLFFBFBFFRRRBFFFFFFRRRFBBBFFBRRRBFBBBBBLRRFBBBFFFRLRBBFBBBFRLRBFFFFFBLLRFBBBBBBLLRFFBFBBBRRRFBFFBBBRLRFBFFBBFLLLBFBBFBFLRRFFFBBFBLRLBBFFFBFLLRBBFBFBBRLLBBFBBFBLLLFFBBBBFRLRBBFFFFFRRRFBBBBBBRRLBFFBBFFRLLFBFBFFBLLRFFBBBBFLLRFFBFBBBRLLBFBBFFFLRRBFFFBBBLLRBFFFBBFLRLBFFBFBFRRLFFBFBFBRRLBBBFFFFLRRFBBFFBBRLRFFBBFBFLRLFFFBBBFLLLFFBFBBFRLRBBBFFFFRLLBFBBBFBRRLFBBBBFBLRLFBBFFBFRRRBFBBBBBRLLBFFBBBFLLLBFFBBBFRRLFBFBBBFLRRBBFBFFBRRRFBFBBFBRLRBFBFFBFRLLFBFBFBBRLLBFBBFBBRRRFFBBFBBLLRFBFBFBFLLLFBFBBBFLLRBFBBBFFRRLBFBFBBFLRRFBFBFBFLRLBFBBFBBLRLBFFFFBBLLLBFFFFBBRRLBFBFBFFRLRBBFFBBBRLLFBFBBFBLRLFBFBBFFLLRBFBBFBBRRLBFFFFFBRLRBBFFFFBLLLFFFBFBBRLRFFBBFFFLRLBFFBBFBRRLFBFBFFBRRRBBFFBFFRRRFBBBFFFRRLBFFBBFBRLRBBBFFBFLRRBBBFFBBRRLFFFBFFFLRLBBFFFFFRRLBBFFBBFLLRFBBFBFFRLLBBFFFFBLRLFFBBBFFRLLBBBFFFFRRLFFBBFBFRRRBFFFFBBRRRFFFBBBBRLLBFBBFFBLLRBBBFFFFLLRBBFFBFFLLLFFBFBFBLLLFFBFFFFLRLFBBFBBBRRLFFFFBBFRRRFBFBFBFLRRFFBFFFFLRRBFBBBFFLLRFBFBFFFRRRBFBBBBFLLLBFFBFFBLLLFBFBFBBLLLFFFBBBFRLRBFFFBFFRRLBFBBFBBLLLFFFBFFFRRRFBFBBBBLLRFFBBFFBRLRFBBBFBFRRRFFBBFFFRLLBBFBFFFRLLBBBFFFBRRRBBFBBBBRLRFBFBFFFRLRFFFFBBBRRLFFBFFFFRLLBFFFBFBRRRFFBBBFFLLRBFFBFFFLRRFFBFBFBLRLFBFFBFFRLLBFBFBBFRRRFBBFBBBLLLFBBBFFBRLRFBFFFBFLRRBFBBFBFLLRFFBBBFBLRLFFBBFBFRRLFBBFBBBLRRFFBBFFBLLLFFFBFBBLRRBFBFFFFLLRBBFFBBFRLRBFBFFFBRRRFBFFFFBRLLFBBBFFFRLLBBFBBFBRLLFFFFBBBLRRBBFBFFFLRLFBBBBBFRRLBFBBBBBRRRBFFBFFBLRRFBBFBBFLRLBFFBBFFRRRFBBBFFFLLLFFFBBBBLLLBBFFBBBLLRBFBBBFFRRRBFBFFFBLRLFBFFBFBLRLFBFFFFFLLLBBBFFBBRLRFBBBBFFLRRBFBBBFBLRLFFFBBBBRLRBFFFBFBLRRFBFFFBFLLRBBBFFFBLRLBFBFFFFRRLBFFFFBBRLLBFFFBFFLRRFBBFFBBLRLFFBBBBBRRLFBBFFFFLRLFFBBFBFRLLFFBFBBBLLLFFBFFBFLRRFBBFFBFRLRFFBBBFBLLLFBBFFBBRLLBFFBFBBRRRBFFFBFFLRLFBFFFBFRLRFBFBBFFRRRFBBFBBFLLRFFBBBBBLLRBBFBFFBRLLBFBBBBBLRLBBFBFFBLRRBFBFBFFLLRBFFBFFFRLLFBFBBFBRRLBBBFFBFLRLBFBFFFBLLLBFBFBBBRRRFFFBBFBLLLFFFBFFFLLRFBFBBBFRLRFBBBBBFLRLBFFFBFFRLLBFBFFBBLRRBFFFBBFLLLFBFFBFBRLLFBBBBBFLLRBFFBBFFRLRFFFBBBFLRLFFFBBFBRLRFFBBFBBLRRFFFFBBBRLLFFFBBFBLRRFFBBBFFLRLFBFFBBBLLLFBFBBFBRRRBFBFBBBLLRBBFFFFBLLRFFBFFBFRRLBFBFFFFRLRBBFBFBFRRLFBBBFBBLRLBBBFFFBRRLBFFBFBFLRRBBFFBFFLRLFBBFFBFLLRFBBFFBFLRLBBFFBFBLRLBFFBFFFRLRFFFBFFFRRLFBBFBFFRRLFBBBFFBLRRFFBBFFFRRRBBFFFBFLRRFBFFBBFRLRFBBBFBBRRLFBBFFFBLRRBBFBBBFLLRBBFBBFFRLLBBFBFBBRLRBFFFFBFRRLBFBFBBBRRLBFBFFBFLRLFFBFBBFLRRBBFBFFFLRRBBFBFBFLLLFBFBBBFRRLBBFFFFBLRRBBFFBFFRLLBBFFFFBRLRFBFFFBFRLLFBFBBBBRLRBBFFBBBLRLBBFBBBBRLLFBFFFFBLRLBFBFBBFRLLFBFFBFFLLRFFFBBFFLLLBFBBFFFRLLBFFFFBFRLRBFBBBBFRRRFBBFFBBLLLFBFFBFBRLRBFFBFBFRRRFBFFFFBLRRBFBBBBFLLRBFFFBFBLRLBBFBFFBLRLFBBBFFBLLRFFBFBBBLLRBBBFFBBLRLBBFFBFFLLRFFBBFFFLRRFBFBFBBRRRBFFFFFBRRRBFBFBFBLLLBFFFBBFRRLFBBBBFFLRLFBBFFFBLRLBFBFFFFLRRBFBBBFFLRRFBBFFFFLLRFBBFBBFRLLFFBFBFBRLLFBFFFBBLRRBBFFBBFRRRBFFBBBFRLRBBFBFFBLLLFFBBFBBRLRFFFBFBFLLRBFBBFFBLRRFFBFFBBRRLBBBFFBBLRRFFBBFFBLLRBFFBBBFRLLFBFBFFFRRLFBBBBFBRRLBFBBBBFRLRBFFBBFFLLLFFBFBBFRRRFBFBFFBLRLFFFBFFBLRRBFFBFFFLLRFBFFBBBRRRFBFFBFBLLRFBFFFBBLLLBBFBFBBLLRFBFBBBFRRRFBFBBFFLRLFBFFFBFLLLFFFBFFBRRLFFFBBBBRRRBBFFBBBRRLFFFBBFBRRRFFBFBFFLRLFFBBBBBLRRFBFBBBFLLLFFBBFFBRLLBFFBFFBRRLBFBBBBBRLRBBFBBBFLLLFFBFFFBLLRFFBFFBFRLLFFFBBBFLLRFFBFBBBRLRBFBFBBBRLLBFFBBBBRLRFBBBBFFRRLFFFBBFFRLRBBFFBFBLLLBBBFFBFLLRFFBBBBFRLLBBFFBFBLLRBFBFBBBRLRFFBFFFFRRLBFBFFFFRLLBBBFFFFLLLBFFBBFFLLRFBBFBFFLLRFFBFBFBRLRFBBBBBFRLLFBBFFFBRLRBBFFFBBLLRBFFBFBBRLRFFFBFBBRLLBFBBFFFRRLBBFBFBFRRRFFFBFBFLRRBFBBFFFLLLBFFFFBFLLRBBBFFFBLRRBFBFBBBLRRBFFFBBFRRRBFBFFBBRRRBBBFFFBRLLFBFFFFFRLRBFFBFFBRLRBBFBBBFLRRBBBFFFBLLLFFFBFFFRLLFBBFBFBLLLBFBBFBBRLLBFBFFBFRRLFBFBFBBRRLBFFBBBBLLLFFFBFBBRRRFFFBBFBRRLFBBBBBBRLRFFBBBBBRLRBFBFBFFRRLFFBBFFBLRRBFFFBFBRLLFBBFBFBLRLFFBFFBFLRLFBFFFFBRRRFFBBFBFRLRFBFFBBBLRLFBFFBBFLLRFFBBFFBRRLBFFFFFBLRRBFBFFFBRLRFFBBBBFLRLBFBFBFBLLRFFFBBBFRRLFBBFBBBLLRFBFFFFFLLRFBBBBBFRLRBFBFFBFRLRBFFBBBFLRRFBFFBFFLRRBBFBFBFLRLFFBFBBBLRLBFBBFFFLRLBFFFBFBRLRFBBFFFFLRRFBBFFFFRLRFBBFFBBLLRFBBBBBBRLLBFBFFBBRRLBBFFFBFRRLBFFBFBBLRRFBFFBBFLRRBBFBBFFRRRBBFBFBFRLRFBFBBFFRLRFFFBBBBRRLBBFFFFBRRLFFBFFFBRLLBFFFBFBLLRBFFBBFBLRLFBBFBBBRRRFBFFBFFRRLFBFFFFFRRRBFFFBBFRLRFFFBFFFRLRFFBBBFBRRLFBBFBFBRRLBFFBFBBRLLBBFFBBFLLLFFFBBFFLRLBFFBBBFLLRFBBFBFFLRRBBFBBFFRLRBFBFFBFLLRFBFFBBBLRRBFBBFBBLRRFFFBFBBLRLBBBFFBFRLLBBFFFBFLLLBFBFFBFRRRFFFBBBFLRRBBFFFBBRRLFFFFBBFRRLFBBFFFBRRRFBBBFBFLLLFBFBBFBLRRFBBBFBBLLRFBFBBBFLRLBBFFFFBRLLFBBBBBBRRRBFBBBFFLLLBBFBFBBLRLBFFFFBFRLLFBFFBFFRRRBBFBBBBLLLBBBFFBBLLRFBBBBFFRRRFBBFBBFRRRFBFFFBBRRRBBFBBFFLRLBBBFFFFRLRFBBBBFBLRRFFBBFBBRRLFFFBBFFLLRBFBBFFFRLRBFFFBBBLLLBFBBFFFRRRFFBFBFFLLLFBBFFFBRLLFFBBFBFLLLFBBFFBFRLLBFBFFBFLLLFBFFFFBRLRFFBBBFFRRRFBBFFBBLRRBFFBFBFLLRFBBBBBFLLLBFFBFFBLRLFFBBBBFRRLBFBBBFBLRRFBBBBFFLLLBBFBFFBRLRBFBBFBBRLRFBBBBFFLLRFBFFFBFRRRFBBBBBBLLLBBFBBFFLLLBFBBFBBLLRFBBFBFFRLRFBBFFFFRLLFBFFBBFLRLFFFBBFFRLLBFBFFFBLLRFFBBBFFLLLFBBFBBFLLLFFBBBBBRRRBFFFBFFRRRFBFFBFFLRLFBBFFFFLLLFFBFFFBRRLBFBBBBBRRLFFBBFFFRLRBFFFFFFLRLFFBBBFFLRRFFFBFBBLLLFFBFFFFLLRFile addition: day5.fsproj
[0.7]<Project Sdk="Microsoft.NET.Sdk"><PropertyGroup><OutputType>Exe</OutputType><TargetFramework>net5.0</TargetFramework></PropertyGroup><ItemGroup><Compile Include="main.fs" /></ItemGroup></Project>Replacement in 2020/fsharp/day1/Program.fs at line 5 [3.230691]
Replacement in 2020/fsharp/day1/Program.fs at line 12 [3.230691]
let part1 (arr: int list) = query {for a in arr dofor b in arr dofind (a + b = 2020)}let part2 (arr: int list) = query {for a in arr dolet part1 (arr: int list) = query {for a in arr dofor b in arr dofind (a + b = 2020)}let part2 (arr: int list) = query {for a in arr doReplacement in 2020/fsharp/day1/Program.fs at line 21 [3.230691]
Replacement in 2020/fsharp/day1/Program.fs at line 26 [3.230691]
let v = part1 arr |> tupleToArray2 |> Array.reduce (*)printfn "%d" vlet v2 = part2 arr |> tupleToArray3 |> Array.reduce (*)printfn "%d" v20let v = part1 arr |> tupleToArray2 |> Array.reduce (*)printfn "%d" vlet v2 = part2 arr |> tupleToArray3 |> Array.reduce (*)printfn "%d" v20