ChrisK schrieb:
Bulat is right about making Block's fields strict.
-- | Get the offsets between entries in a list getSizes :: [Integer] -> [Integer] getSizes (x:y:[]) = [y - x] getSizes (x:y:ys) = (y - x):(getSizes (y:ys))
You should change the first part to add maxSize:
getSizes :: [Integer] -> [Integer] getSizes (x:y:[]) = [y - x,maxSize] getSizes (x:y:ys) = (y - x):(getSizes (y:ys))
This avoids the ugly use of (++) below. Note that appending to a singly linked list is a bad "code smell":
But Chris' version changed semantics. It should be
getSizes :: [Integer] -> [Integer] getSizes (x:y:[]) = [y-x,maxSize-y] getSizes (x:y:ys) = (y-x):getSizes (y:ys)
instead. But
getSizes :: [Integer] -> [Integer] getSizes [x] = [maxSize-x] getSizes (x:y:ys) = (y-x):getSizes (y:ys)
is even better as it doesn't repeat the y-x term. Regards, Martin.