Show
Ignore:
Timestamp:
09/27/08 10:16:04 (5 years ago)
Author:
mokehehe
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/haskell/nario/Util.hs

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