Xah Talk Show 2024-01-04 Ep526, Advent of Code, Day 6, Live Coding in WolframLang

xah talk show 2024-01-04 132544 5hdg
xah talk show 2024-01-04 132544 5hdg
xah talk show 2024-01-04 69Wk
xah talk show 2024-01-04 69Wk
(* Advent of Code 2023, Day 6. part 1 *)

input = "Time:      7  15   30
Distance:  9  40  200";

input = ReadString[ "C:/Users/xah/web/xahlee_info/talk_show/i/advent_of_code_2023_day_6_input.txt" ];

Times@@
MapThread[
((Total@ Cases[
IntegerPartitions[#1, {2}],
{a_, b_}/; a*b > #2 :> If[a===b,1,2]
] ) &),
ToExpression[ ((Rest@ StringSplit@#) &) /@ StringSplit[input, "\n"] ]
]

(*
sample input answer
288

user input answer
2612736
*)