Middle three digits: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: Tidied) |
|||
Line 3,090:
mid3 :: Int -> Either String String
mid3 n
| m < 100 = Left "
| even lng = Left "
| otherwise = Right . take 3 $ drop ((lng - 3) `div` 2) s
where
Line 3,140:
100 -> 100
-12345 -> 234
1 -> (
2 -> (
-1 -> (
-10 -> (
2002 -> (
-2002 -> (
0 -> (
=={{header|Icon}} and {{header|Unicon}}==
|