trackCost :: (Default (a Double), CostStep a) => Int -> a Double -> [Double]
trackCost iterations a = iterate (apply iterations simStep) a &> simCost
trackCost :: (Default (a Double), CostStep a) => Int -> a Double -> [Double]
trackCost iterations a = iterate (apply iterations simStep) a &> simCost
trackCost iterations a = iterate (apply iterations simStep) a &> simCost