summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
81cc4bf)
---------------------------------
Tiny H98 fix to numericEnumFromThenTo
---------------------------------
This was a late fix to the H98 report: it only affects
[a,b..c]
where a=b, which isn't exactly common
numericEnumFromThenTo e1 e2 e3 = takeWhile pred (numericEnumFromThen e1 e2)
where
mid = (e2 - e1) / 2
numericEnumFromThenTo e1 e2 e3 = takeWhile pred (numericEnumFromThen e1 e2)
where
mid = (e2 - e1) / 2
- pred | e2 > e1 = (<= e3 + mid)
+ pred | e2 >= e1 = (<= e3 + mid)
| otherwise = (>= e3 + mid)
\end{code}
| otherwise = (>= e3 + mid)
\end{code}