aoc2022day3pt1.hs

import qualified Data.Set as Set
import Data.Char

main = do
  input <- readFile "input.txt"
  print $ fn input

fn :: String -> Int
fn = sum . (fmap procline) . lines 

procline :: String -> Int
procline line = sum $ fmap scorechar $ Set.toList intersection
  where
    left =  Set.fromList $ take ((length line) `div` 2) line
    right =  Set.fromList $ drop ((length line) `div` 2) line
    intersection = Set.intersection left right

scorechar :: Char -> Int
scorechar c = 
  if c >= 'a' 
  then
    (ord c) - (ord 'a') + 1
  else
    (ord c) - (ord 'A') + 27