Day 9: Adjust comment
This commit is contained in:
parent
12c6450ce8
commit
a30619784e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user