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

Timestamp:

10/07/08 20:42:00 (3 months ago)

Author:

mokehehe

Message:

ソース整理

Files:

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

lang/haskell/nario/Util.hs

@@ -7 +7 @@
 replace ls i v = take i ls ++ [v] ++ drop  (i + 1) ls
 
--- 符号を返す
+-- けつの n 個取り出し
+lastN n xs = loop n [] xs
+        where
+                loop _ acc [] = acc
+                loop 0 acc (x:xs) = loop 0 (tail acc ++ [x]) xs
+                loop n acc (x:xs) = loop (n-1) (acc ++ [x]) xs
+
+-- 数値の符号を返す
 sgn x
         | x > 0         = 1
         | x < 0         = -1
         | otherwise     = 0
+
+-- １０進数 n 桁文字列を返す
+deciWide n c = lastN n . (replicate n c ++) . show
 
 -- x に d を加算した結果が x0～x1 の範囲内を超えないようにする