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

Timestamp:

09/28/08 10:42:38 (3 months ago)

Author:

mokehehe

Message:

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

Files:

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

lang/haskell/nario/Util.hs

@@ -11 +11 @@
 
 -- ユーティリティ関数
+
+-- 符号を返す
+sgn x
+        | x > 0         = 1
+        | x < 0         = -1
+        | otherwise     = 0
 
 -- x に d を加算した結果が x0～x1 の範囲内を超えないようにする