diff --git a/2019/day9/day9.hs b/2019/day9/day9.hs index 8920cb5..8a76648 100644 --- a/2019/day9/day9.hs +++ b/2019/day9/day9.hs @@ -63,9 +63,9 @@ step opvec ((t,p,rbase),input,output) = case op of where (op,m) = getOpModes opvec params = paramChange m rbase opvec t tm_binop x = new_tm t ((params ! 0) `x` (params ! 1)) - {-without the following DeepSeq call, thunks build up eternally - and the vectors won’t be garbage collected: >4GB RAM usage, - god knows how much with large vectors, now ~20mB-} + {-without the following DeepSeq call, thunks build up eternally and + the vectors won’t be garbage collected: >4GB RAM usage, god knows + how much with larger tapes (my laptop crashed), now it’s a cozy ~20mB-} new_tm t x = DeepSeq.force (t // [(target, x)],p,rbase) target = fromInteger $ case m !! (length params -1) of Relative -> V.last opvec + rbase