Add alternative

This commit is contained in:
Smaug123
2023-12-04 23:46:38 +00:00
parent 65b82a3f74
commit b063bce19a

View File

@@ -1,16 +1,17 @@
namespace AdventOfCode2023
open System
open System.Globalization
[<RequireQualifiedAccess>]
module Day4 =
let inline parseByte (chars : ReadOnlySpan<char>) : byte =
// Byte.Parse (chars, NumberStyles.None, NumberFormatInfo.InvariantInfo)
let mutable answer = 0uy
for c in chars do
answer <- answer * 10uy + (byte c - 48uy)
answer
Byte.Parse (chars, NumberStyles.None, NumberFormatInfo.InvariantInfo)
//let mutable answer = 0uy
//for c in chars do
// answer <- answer * 10uy + (byte c - 48uy)
//answer
let part1 (s : string) =
use lines = StringSplitEnumerator.make '\n' s