mirror of
https://github.com/Smaug123/advent-of-code-2021
synced 2025-10-10 14:28:40 +00:00
15 lines
288 B
Mathematica
15 lines
288 B
Mathematica
(* ::Package:: *)
|
|
|
|
nums=FromDigits/@StringSplit[StringTrim@ReadString[StringJoin[NotebookDirectory[], "/input.txt"]],","];
|
|
|
|
Clear[f];
|
|
f[n_,days_]:=f[n,days]=If[days>n,f[0,days-n],1]
|
|
f[0,days_]:=f[0,days]=f[6,days-1]+f[8,days-1]
|
|
f[k_,0]:=1
|
|
|
|
|
|
f[#,80]&/@nums//Total
|
|
|
|
|
|
f[#,256]&/@nums//Total
|