Show
Ignore:
Timestamp:
09/28/08 10:42:38 (3 months ago)
Author:
mokehehe
Message:

横移動、ジャンプの当たり判定

Files:
1 modified

Legend:

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

    r20045 r20086  
    1111 
    1212-- ユーティリティ関数 
     13 
     14-- 符号を返す 
     15sgn x 
     16        | x > 0         = 1 
     17        | x < 0         = -1 
     18        | otherwise     = 0 
    1319 
    1420-- x に d を加算した結果が x0~x1 の範囲内を超えないようにする