#!/usr/bin/env stack
-- stack --resolver lts-12.5 script

module Day5B where
import Day5A (calcLength)
import Data.Char

alphabet :: String
alphabet = "abcdefghijklmnopqrstuvwxyz"

caseNEq :: Char -> Char -> Bool
caseNEq x y = toLower x /= toLower y

mapper :: String -> Char -> Int
mapper s x = calcLength "" $ filter (caseNEq x) s

findShortest :: String -> Int
findShortest s = minimum $ map (mapper s) alphabet

main :: IO ()
main = interact $ show . findShortest . filter (/='\n')