haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed BootString error

Browse Source 
darcs-hash:20080120002117-a4fee-6b3d8f1bc4dece6960c9319387f5fccca41620b4
This commit is contained in:
Henning Guenther 2008-01-19 16:21:17 -08:00
parent 8b554f9369
commit 3b9a84b979
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Encoding/BootString.hs
View File

@ -70,7 +70,7 @@ adapt bs delta numpoints firsttime = let
delta2 = delta1 + (delta1 `div` numpoints)
(rd,rk) = head
$ filter ((<=((base bs - tmin bs) * (tmax bs)) `div` 2).fst)
$ iterate (\(d,k) -> (d `div` (base bs - tmin bs),k+1)) (delta2,0)
$ iterate (\(d,k) -> (d `div` (base bs - tmin bs),k+(base bs))) (delta2,0)
in rk + (((base bs - tmin bs +1) * rd) `div` (rd + skew bs))
decodeValue :: BootString -> Int -> Int -> Int -> Int -> [Int] -> (Int,[Int])