You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
462 B
Haskell
12 lines
462 B
Haskell
2 years ago
|
module Algo.Common where
|
||
|
|
|
||
|
|
import Types
|
||
|
|
import Heap
|
||
|
|
|
||
|
|
updateHeap :: Time -> Time -> (Heap Unit, Heap Unit) -> (Heap Unit, Heap Unit)
|
||
|
|
updateHeap start_t fin_t (h, nh) = if (div start_t Types.packet_t /= div fin_t Types.packet_t) then
|
||
|
|
let inc_rem x = x {rem_p = rem_p x + 1}
|
||
|
|
restore x h = insert (x {rem_p = 1}) h in
|
||
|
|
(foldr restore (fmap inc_rem h) nh, emptyHeap) -- "bring back" clients without available packets every 20ms
|
||
|
|
else (h, nh)
|