Changeset 20004 for lang/haskell/nario/Util.hs

Timestamp:

09/27/08 10:16:04 (5 years ago)

Author:

mokehehe

Message:

ジャンプの処理
フィールドとの当たり判定

Files:

• lang/haskell/nario/Util.hs (modified) (1 diff)

lang/haskell/nario/Util.hs

@@ -15 +15 @@
 -- もとから範囲外だったときはそれ以上遠ざからないように
 rangeadd x d x0 x1
-        | d > 0         = if x < x1 then min (x + d) x1 else x
-        | d < 0         = if x > x0 then max (x + d) x0 else x
+        | d > 0 && x < x1       = min (x + d) x1
+        | d < 0 && x > x0       = max (x + d) x0
         | otherwise     = x