Cleanup

2025-01-06 01:05:56 +00:00
parent e5cbac480e
commit c20486fc34
6 changed files with 19 additions and 94 deletions
@@ -15,10 +15,6 @@ leftPad :: Int -> a -> [a] -> [a]
 {-# INLINE leftPad #-}
 leftPad i x xs = reverse $ take i $ reverse (take i xs) ++ repeat x

--fourCharInt :: Int -> String
--fourCharInt x
--    | x < 10000 = leftPad 4 ' ' $ show x
-
 rightPad :: Int -> a -> [a] -> [a]
 {-# INLINE rightPad #-}
 rightPad i x xs = take i $ xs ++ repeat x