path: root/challenge-002/alexander-pankoff/haskell/ch-1.hs

module Main where

main :: IO ()
main = interact removeLeadingZeros

removeLeadingZeros :: String -> String
removeLeadingZeros = dropWhile (== '0')