Day 9: Adjust comment

This commit is contained in:
shu 2019-12-09 20:42:13 +01:00
parent 12c6450ce8
commit a30619784e

View File

@ -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 wont 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 wont be garbage collected: >4GB RAM usage, god knows
how much with larger tapes (my laptop crashed), now its 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