day3

aoc2022.cabal

@@ -18,7 +18,8 @@ test-suite day01aoctest
   type:                exitcode-stdio-1.0
   hs-source-dirs:      src/day01/test, src/day01
   main-is:             AoCTest.hs
-  other-modules:       Day1Lib
+  other-modules:       
+      Day1Lib
   build-depends:       base
                      , HUnit
                      , split
@@ -65,7 +66,8 @@ test-suite day02aoctest
   type:                exitcode-stdio-1.0
   hs-source-dirs:      src/day02/test, src/day02
   main-is:             AoCTest.hs
-  other-modules:       Day2Lib
+  other-modules:       
+      Day2Lib
   build-depends:       base
                      , HUnit
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
@@ -104,3 +106,29 @@ executable day022
                        -Wmissing-home-modules
                        -Wpartial-fields
                        -Wredundant-constraints
+
+-- Day 3
+
+test-suite day03basictest
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      src/day03/test, src/day03
+  main-is:             Basic.hs
+  other-modules:       
+      Day3Lib
+  build-depends:       base
+                     , HUnit
+                     , split
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  default-language:    Haskell2010
+
+test-suite day03aoctest
+  type:                exitcode-stdio-1.0
+  hs-source-dirs:      src/day03/test, src/day03
+  main-is:             AoCTest.hs
+  other-modules:       
+      Day3Lib
+  build-depends:       base
+                     , HUnit
+                     , split
+  ghc-options:         -threaded -rtsopts -with-rtsopts=-N
+  default-language:    Haskell2010

data/input030.txt

@@ -0,0 +1,6 @@
+vJrwpWtwJgWrhcsFMMfFFhFp
+jqHRNqRjqzjGDLGLrsFMfFZSrLrFZsSL
+PmmdzqPrVvPwwTWBwg
+wMqvLMZHhHMvwLHjbvcjnnSBnvTQFn
+ttgJtRGJQctTZtZT
+CrZsJsPPZsGzwwsLwLmpwMDw

data/input031.txt

@@ -0,0 +1,300 @@
+VdzVHmNpdVmBBCpmQLTNfTtMhMJnhFhTTf
+FgqsZbqDDFqRrhhJnsnLMTfhJG
+bRRRPrRRwSwbDqgjvDZbRbQzpzmQVWCzzBdvQBFCzlWV
+GcDdRdvhRssRhGDdShCRtqWjlQzqWgqzNfNjfQWWjt
+mwwnnPFwmVrPmJmzfNzqCjQCbgVlgC
+nPnHHLrHwmJTrCTJpThBscBSdSLGZvZBvRhZ
+RVQQcVlcSRclfZCCCnMJJTSTnC
+NdHwjdwjbBBZrrZrbJDZJJ
+wmhjGGBGwwmjtjtdPlfRcpVQlhRppVJF
+pplbNBPPrppllrFNbpvppSTcwqcWFhTTShhJDTchqd
+RGzRfLjjmZmfmwLftTWhStStJWTdWmDm
+nfsMjQssnpPvNnrPrw
+SjjBgllzlQjBZvlBBgcFbgJHsMhJqbMHPggJbM
+hRLRVDdRRWnJqnnHTqMCnH
+GRfLddRRpVhNVrWSjwQQzSzcGSBQSc
+qMwNqqBdQdnTVBBVVhMVnVFzTHPggTPjGRDzvPTjjmvPDj
+sbSrWJpStrtPtRPttzmmDD
+pfbJJcbsrcLpWLllsnFmcqcwQncnQQqVNQ
+RBTWCMwCwdZThPZcZZ
+pVmVpHLFFFHHVgVmvNmHSQNvddlPPzZJMPcdhclhjczLdZMP
+vnnNnFStGMRDwWnn
+fWDdJTpDJzdBBBdmDSbSRHRwPqbPbHgSbz
+slQtQvNsMVvrrgPRgRglnhwWPH
+sGMMQFrsjvNMfWmdpfFDFZBf
+vnMRMWCMJwWWwwWPjmSdVmLdzvVbLrhL
+HsNfDHQlZpNqfQzbLbrqhjLmVdjd
+dfDZQsNpstHHHptZDDtZWgngtgBMPMMRwCPtBBGW
+HwQwwbwFNWHwHBVFQFLQzRznZnSzcjjjpPbcPpSP
+vTfTJsCmsftJZmTSSdPvzdjRSvPdjd
+TrGtTJfmGDfDhrhJJJsqrZhDBFLHHLLQWFwwlWBVBBVwgLFD
+FFTJRLccQgmTbSsbGm
+PBPPqCvCwqwhQQVhQngmVmSgglmGnHbnmb
+zqthvtQPBfCCzPwQPtwQzPwNLfNRFNLdLRLFRFFNLFdFdW
+nszjQnsPwjznzCCrhJqvjqhmBv
+tFWdHGWFGtctlNNpZBBhmqTrrbWqvTBT
+dlFtcpHDVVVHFdNGHGpGfQgsPDzSMsQwwPwgLLBQ
+TzQqTJGvnnSzqrWTnvfbbcflQcVltfcCMPVM
+jFjNZFFJLpFwmBwblcpptcVtfbbVlR
+jmmJdBBLNdGDWDDrdzqn
+pzddqQmGgbqgGpbJmmdnLZDCRZnZvFlLRZLSlLRT
+rVwchcBBMwVBHhHTZCTSGSCRTZlTDr
+HtccPfjfBhMtVBGHWpNqJdJdpjNJppWz
+WThTWWhtPbZRvvWbbvRTSRMjVRLLgFssgLpVsfSF
+JdwrlJcCwfzdqwwjsjzpLMgVsMFgML
+lQrwHNGJHClvTmfhBmPQmt
+lbRLhcLRpLJzgdGddF
+qvhwqDDCVtBDVhfMVGFnzGGzTBnGzGGgFg
+VjCwCWCMtjVDtChvQhtffcSmHpNWrrcHZHHZpplWbp
+DJVDVdvpmZdPgrCbgbgCJC
+lzczcWwwznGhBgPSvTlCrNgqNC
+wGzzQhzGGsBBGRBcQwGwnwjmmRHpRfmmMpppMjjHDvLL
+HJjJQWjFmmWtFmJTMchghhDwNMhVMWML
+SznPSRfRSSPdrrPSShbDVhbLPwcwGGwVNh
+ddRfzdRrCrRsZDSnFjspvFvqFqFqTvJt
+lflfjQfjvljfbfMLTTDCmHNLNVbL
+HSJnRrrJZJssnGRrnsrcqqRnDCLBMhVCTLVLhVNVJBBBhhBm
+SsrGGqqnSsWSnnqWHSrPfzftvFdvWlwfQgQwWvzz
+nQlsGnFGwwqNJWmJJjpplt
+HMTLPTRdvsTCCThDCZdLdLDNNpJBWJbjJMpBmbtNptBWmm
+DLCzPzTzZDdLdGSGfSGrsnQGzr
+LNPPLHNPHQNQSBFDWDPgggFv
+hszfWCWJhrBMsSSBgvFD
+GGZjfmJTjmZfrJrZrZJRGwNQnlLNHWjLVjlwdVNHpV
+BdNVdTcGVclmTwrTnwPwrHCr
+zttBWzfLsCggHPwDrf
+szsWSMbWzzbqBbzJjtjsvMzzvdmdVpGllpcRNZZhmRpZcGGc
+CjdbMmmmZFnzzgHlttGBVqtBGtsldG
+LvPPWNcFSSRslWhBsllT
+ppccvLPpcSNwLLwrDNNpLvwJHCMDmbCJbFzgmZZmFgbgnM
+TTNRwZqhcTTjsNTTsmrJlvrmmmqqHSrlJH
+fLQCCdtcfCDDVbVVQdFbQbdJHMHrJHrHnMllHdMHPrMdln
+WfQLQWWDbwRTWcRssN
+HQGQWHPDHNjMNQGNWNTWCvZllzqFZqzvvzhCtvFj
+DfgwdgfcFpchztvt
+sRggdwwVdgmnSTnnDBPBNWLn
+WbCZCfTVTTJjSwGdWNDGGw
+MMRqggMsqhlmlhrssHgRnRmRvdzdczvdNGNLzScGDrNzrLNc
+lRqsnRhmqqQnQpgQMlgDqRfBTJVFbJZQtBCbZQJVZFFb
+JnhQcCnmLDsmgmgr
+bbMZppRFGGRPfBMMRGMZssTTrLlLfsLlVLdsLsdn
+GZGSpPGMZtGGPFFRGBCwhvwjjcnJctvQcvHq
+vvrPrHZMGJNRMnqn
+BVChWWcDVWsBwCWwGrJNhRLJJnJtLqnq
+cjDfcfpWWsfWccBsHgPgrPTdpZbbgggv
+GshtVtVtjSCVtVvVGtlVvFZLMvLRZmHmZwbLwZdLdZmR
+JWzNDQzjcgJgQBJgzgMwLLHZZcdPwRLwRdHZ
+QWTppBWfDrrNBTTfffhFCpVSjnhCGsFtsqSl
+nmbCnzHHNzCjCJHJNSCWHLBLrvBrrSGRBDhrDRLrGL
+TVtPllwcgdmTRhLQTQhT
+fdFtccFcpPmggfdfNzHzCMsbCnWnJs
+fMgddvjgRRvjvjVJVdTlZGGtGnrlnqTccNjl
+HHSFSWSmmpbBpZlGncrNGbNtrn
+WDWBDDBDBDCwPBWBDWNQDgzvVvLRvsVLRwvwdJVLwL
+ZSmmvcpsmcJmJvqgBZgZqqtCtZjl
+WhDwhFSDgtBFjnFg
+rTrSTLWTTHNMNwNrMVddwNNhsmJGQcRsRcJGsJzQJsrzPsPm
+GBtLmPsCQqsGqgghZHDzzgLbFz
+zjjVTzTlRjRJfznrvrfpnNhFSghbbNFgHrbHZbDHbH
+vpfcTJVpcVlfcQPMPCGzCBsd
+HMhZNffcPZfNMrzjjFdGcJDjvJ
+VSBVVLlSQQmTVSWpSQzDrHzTTvDvFjFdGGzT
+mQSplVHWbHLSgWQnShNwsZMZPfbsNCRNCt
+MMqvDzLwZzlMqQfdGWPfgPffPglH
+ShTcJshsrRdnrdfrrfHp
+VVRtFhsCJVJVvwQqDdbDQd
+dmnNMlFNvmvljnbpMWNDFQvfQJJGvfPCfHGgQQgcJg
+bRVzLBSSTRBRBBrwTrVtRwCfcGHcsJgJgzgGsggHCzcC
+ZbtVTTrrqrSSVwhqqwBRwFWMDFNdjdZpWjdDDppjMW
+MTzqtbLtwFzJgbHgfbdWWH
+VMNBjNVjvNfhhhhfNPhP
+jmGMvlDZZnVMtzlwzqqCpwFt
+PpzGspGmpPsFLrTnTLzzBg
+QCWvfjfWjRPFZgrvqrBvTg
+wwNRCNQQVNRWjNWfQbHCCClHGDGJdGhpdhtPGhltDlJD
+dhbpGzhllzGlPvnzNcvtNVnc
+gcFMsTJDMMwrZqfjjqvvfnPtqJ
+sWRWTRFwrTgLDDFWgMsTlpSlpbSCdWWdcbmpChGd
+QccdFFFcFbcQPQPHMgpPMp
+NJlNSSMLDfJfmlSqHZRNpRqNBRPRPq
+LlMmJfvDVVTJSmVMscsCFtvwcjWjrjCj
+NVVMGWFSMRVGWSthwhTJWzcJCcJsTs
+jqRLqlfRZcmjcCzT
+rlRRrdrflpdvPbHpflfPlfDBgBMQpGVQMgpVDGMggBDV
+VwRhccRsnQStRhtGQVQVsmjgDgqJdggDjqLDgJlLzmLl
+BWFZpWHBNCBCNBzBNvWBpzHZqqlMqgNdlllDdqDgJDLlfDdd
+pFbTrrrBzbzTtSwStQnnsrVn
+DRfFbFqzbddfPFtsJnJRsnClJRsn
+cgjgQgWvSLVQgmWWgWVjVSSSBTltThLnqJssnTCZsTThntZT
+qjwpSrmWgcSrGMfdFDFdwHFd
+RWjDDWDjDNjjgDtSRRgjcjzFpnzwdFbFNdbFbpnldwFF
+vQfPfTQJbZdThTzL
+PrBQJQsfQqrrbfmPqMBfJbggjRVgWjttsHRSgRctDjSs
+NgqNWqqWWdnJdqpBNFtCmJGCDHttDGDsHsHm
+BjvzhRLTrTBQhTMQRjRRcjPGtmDCZZDZSCmmMSSZmVmSSt
+vQzRvRzQcPcvfQzRnddppFgnFfWwBFlb
+nnPvfvgrtPDHgvvGTRRRPZQGpGCLLV
+FlBsBdbllFdfWpbGMCVMZLVbZQ
+lhchNcqFsJBlBszztvwHjvzgrzmzffgH
+zZhdjTpJJpjmmpPZhvqnnZHqZcggvgMbgv
+tFpFQFSFtBGlFNwFfNMnHfbHcnvcvcfvcqrM
+GBFlNLSNVGVSSGtQSLLBBlNtphDdzpmmPmTPhRmdzdVCCDdR
+rpRCCDLpmnCdJCjn
+vMhSFvgsMGLmnmWMmm
+wVqFFvwvPPHhFhhgHPwHshpqrDDzqlfRbpftRLblrllr
+CRNDzdJCVDWzVgDjdjzRJzWRMTbHsMNZNbZMMbsfhTtMTLMB
+wSlwQcSpqPpcqcqFSqpwslsTfZtLhtlthtBHtTMZ
+SPGFGFFmpcPGDrWDmjDJVffR
+dsmdtJthJphWqHRPnRRsvvnnfR
+cDBMDDDlBZglDZTMDfzVvNRrvNPVHzRRTV
+PGMCCDClBDDbbFqmmhqQdpWGmmWp
+BJjcGhcvCnBdGHsmHSzZDzSDMHmRMQ
+qLWPLVrTwWlwwwrfrFfGDNmDQRMbQMzzmmbQLNMM
+rVWrFlGqlqwVwVGgWGphnvgBBsnvsjdBnCBnBg
+sNNsfBsmcGmgNTcHHSpnTWHnpV
+QlrhlrlMglhDQrdFblvFtMdnDWwSHDWWwnTSjLwVDSwwwT
+QtdMvltZhbFlPPZbQtQthZQdqCsJJGzBqqCBmCNCqgRCBsfP
+SZnQnnHRWRQRVjHnqlJTQPfdlqfJftqG
+pDzmbDBFbBLvvzttfdlTTl
+gsDLLpcmsSZVwlnRsV
+LHsWjwjWqCLsqCHcLsjdLqcdbpMGZPPtBhthbZBpBhMllwPG
+VFnVbbvJSfbgphSpGlhRBBSP
+JrrTgmFgzvNbrmNnmnvzgTLjCQWDLDCsTjssjqcHLc
+QmwwqTqsrdqNNqgtvnVDVcGNNtvv
+WBFBpzzjSJBJzJbfntgPzVzcvPnzDf
+HcpbHZJBFpjpcSZrZsdRQZrCwrwd
+JqmLmbtTWThBTWvWGVSrrVDsSGSG
+wwzRzNjNNbsPVPds
+jfgQRZwpQclQfffHgpRpwpfTcqtLLqCbbFFFLmbmTTBnFB
+fGpcccNNqcctqGMprvMPmbbzFSflSRzPBBlBbS
+JCjnjTZTTGPSGmTFPb
+ZWHhJjHLDVDgHLLDGjnhctsstwqctNwWqNwwQrtv
+sDwQhcwhBDDwrhGsQnRBQHHMHHMNJMZFCFRbCRftMM
+zjjlmjqfdTqlWdzTqmLzlzVjNCHJNHNFMFtbJNZgVNMMCCtN
+vPTfLmPTLWBsPDnSscnS
+ngznwDPPTzhPPDCTQnTTDQBQqHNNrHFVppbbjRFFqFhHqRqr
+tZJtcGsGtLLcctRqVBbbqrspbHNq
+BmZSvGBMdWPzMPgnnz
+MpNWPVNWWZWVVNZHVcvJjgBjJMStMJSjjg
+rzdCzrCTTLRCslvJDSjjdScgDm
+RLhCQzqTCssThRQzRzwGQrrCFffbfWppNpWNWVcHqZbHpVPp
+zQzCVWdSSjCdjpchWcGftflGZcgG
+RwnJTJwmvFHTBFmtBccZZfBGMstllM
+wwvvHRwqDnHFrmqnrSbQVVQfSbqQjbqjbQ
+ttDftStSlftPgSHmJbFwnMnFwzbrLHMMzz
+GqTBqhBqBvppBvMMTznrCbCnLwfr
+RBjjpZZvvZqGcNhjjpNmDPfDcsgfDfgScsQQQg
+rsSFccvBHppHPsvQrSHSprFjnbLGdbzLfbGLLtLjjzLzvl
+JWWJhmwwTDTGtnzlhdbtLG
+CWNqWRNCwnCJVppQFFFFNrgHBB
+MSRVnMjnVRVnPlcsrtMtschgDl
+NWHBwJBwBBQCHHqwWQGBNgdrFFtsthcqdltdDsqttq
+CCTTGCNCCBfNJNNWbGGnvVzDSRfDRSZvLPSzRn
+MpRfjRjWpZzzzRzZSpjzZjTCQcGdHLWNGqdBdcBWWBLccn
+lrbrsPQDPQglDtwggcLCqnCdNNdHBLsqNd
+blwbJggvgbwlvQbvtgwmvVwRfTzfMMjFVfSFjZjMTSTSzj
+ttSGjHWVrwWrWWvhzvhmhDfR
+qMBdNNsccQgfDRzRmqlhRl
+gQJdfJPdQBsMggMjPrTCLjrGrCrtVT
+tGFdlwDwGFdNtStghWWdQFSnTVfCfZhrfVTVCVprnRRhVn
+cLsBPQJsQPmbmPHTnRRnHprCVfns
+MjmvPqqQjPbQzjLwwDWDSlzSlGSgwl
+NSCpFgfbscbZZZwrtgPZJT
+zGCQlVGmmQGVqqJwGtHZGrPHHRTH
+qQvVmvzmqCdhhjzCQLjljLQMnMDSFWcSfnMfpbfnNcFFbFDN
+zFgqjQBmWNlWlfHrHdLc
+wnbCpSSZZTJSJSnmdrtHfGtftlcpltpH
+ZSwhVPPJgNVmNFzs
+WNVJthVHRRfLqpqN
+gdCGcCgJBCrgScRLzbjQQLfRRR
+SCFdGSFvlhTJsnvW
+FFZwFZZwRmFFhHtNLNLGRtsqjLMt
+gbDnnrMbMCffMPbPLNjGNlcppNtspp
+rgbzrzDrgVgnrBzFWMWmWBwHWHShSB
+zjRVjDqzRjvSBnBGGsfsrFsV
+fLccLLZpJMctwJWWWJWpJGCwFwsgnngFBPsCnnTBPT
+LbJlZNWMtpMlHRNHzdfSDfdj
+VGbbnJGSTsVTssTTnVVWMtfBBmvftRHfHBMJJfZp
+ghqtrzgPrjdzQCjmZMHfRHZHBmQmmB
+gltFtDqFVlTVWlTl
+HqNqZDTvNvVTLPSTvzfrfHfdndffwnbdnwrH
+MpSJlFcMJmcpFlmClcMcRnWbWtthrnfwnCGrrWfrwC
+RjcJJmSFMRQpMRFjMNVvTZjNPPvLTBPBBB
+MzClDtlzJzFzNGGm
+bjcLRHlTBsFJGmRm
+HcPSSfTSpLZLbSwtrtvMnlDCDPCl
+gWWgQJCsVhgRLCWsdjpmcBHvfvrrnvCvBB
+TqDtztqtStlbNTPtllqZpvmcFHjNjvjNvHvmrrmj
+ztPPGZqTPSbJgchGgwRQgQ
+wVrdtTqtCCvbNgbNTTDN
+mhGzWhGzMGWGrRmbFLBHZRNHNvZvgB
+hhGhShpnsSrqVCVSSj
+HnlbmGnlHZHnlBcjgwfDVfwLsGLGLDgR
+WhWMWTvQPWPLDMFRCDMsVD
+QdzJQPSPZqJnJRnZ
+TTjTjFBcRBGjwsDTBLmrCftfRVrrCftCVNRP
+WnqbJWnnQJhSqVfVPfDnggfrVN
+hSlDMllvhbQqllZlSWQdSQTBjsFHBjTwGdHBTBszLzcc
+rNWqWDLZWcqFqLLLgQQJnndnQdNzzJVMzd
+cPtsPvChtRsGswHPGbwcPcdVnpzvnmBmVvJBJdJVJdzn
+PfRfRGtsHsSRftbbbbHhwCCsjZgSTgSZWDTcgDZjLqgqFWLq
+BNzPnPJNNMwHJRhBGRWRdjFQddFlFjWd
+npbZrgnLSCSrWFjjdlZGlcDF
+gqtmmngSbmgHJqfqzNBHBJ
+stgzttBPRRRdpSVVpdpS
+WJFcLQmJZHcCFLJmcZLMfbpGSWMNpGftSSpMrb
+mcvvQvHmtLCJmHZQHZHCDHJJnjqPjjPzwvwhnwPqTjPBzPnB
+DDmbbPqgFSbSQPtPQJttrltJ
+CRfcnZWmRRhJNVtsVnQlsp
+fcBvWvWzcZWCzTTCTTvccFMBHGDdSwGFFbqwFSGSmF
+tCRBPCPRjzsJszBmtjmCvSpHcppJpvZdHHHcHZJG
+qbrlLnWlQDQDNvmHHHHcrZZvdm
+nmnWnnWmgQsCFzFCRVCg
+sHMHCDZfcwMcRcLMcZDCRCHMPdJqgjvVdvqgdgfdJbQgvWQb
+FFhTzmzGrnmtjTBjBBprrmFtqGgQqvVdPbbgqQQWJvvWJQqV
+TrNjrnFSlwNZNlNL
+JQGdsdzSzsdFQFSdssnndNlZjNPTJZNljVjTPhVPhT
+GgGLfRmHGLhNVjjNTLhV
+HvGvwpbHHRwpBrvBgSSzSFndtzndCrsFMd
+DptFshMrhDhDwmPPhwSNhmmS
+RLdcdRvBjnvRVcvlcLbCcbCwwpGBwSmfZqqPPPPwzmfqZq
+VlRLvVjCJLnlpvvRdllLcJJWDHgMMHDDHtWFFDDQgH
+SsSdrndpDlCdLftd
+VGPVJgmQrVGHHZfwLlfCTmfwlDlT
+PcJHcGgcWWbJpjRrphRbFpRn
+PdPSMHMLzPPSShBdffMMzMRHQQrpppcqTCQQpCccTGTRCnCQ
+vsbWmFbmJmZFFsmsbfpGVrGnWrrpVpnnVcTV
+JZslstfZNNSSPdlSMwlM
+bLLzRzZLbRqJJrDGGVZdwssDvGQw
+FCtNJlTFtmPfldSvDvQFVVsjSv
+PmCPHBhhPpWLWgzgHJ
+qwmwFHCgPgPPqPwMCrHHFBVVRBttVRRffVfmsjVNNB
+WSvcSnvbSWbhcbjlQbvlSQhlfBGcspVVsVGfVscpzpNcpBtN
+hJSLhlvlTjPFHMLCCq
+bggDpTggncGVVWbQcG
+sRvSwwwFBSpFzvRvMFZqmPmMVqmcmPPVqhqqWq
+SRBBrFZZwrddBFRjlptnLgDnTggdtd
+PPfMcZMflbMQcMllPVfTVMwjWWmZvpWWpWhhjjpdWWww
+sDQNnzsnQgDNsFzFqtGjGmWWSpWrGhdpvphdSW
+nNQNqLBHLqzDnHgnVJfPJPCRBbfCcJlT
+fppppWsjcSDPjjDpGhgwbfTgHTCbHJwbHbTR
+rLBdQnvMNMmFPbLqHqTqgLHCgL
+nrFznvMNMQdttrBcScsDstWcPGtWSc
+lclnRSDnGZtvSwnZDZzhLffqdsCNwTBCBBdNsd
+mPjmjmrFFpmQjMJQjlNdlhCsCLsTlNLs
+ggmrHHVVQVPJpWrgpWScRvzZzGGRnZvlgzZn
+GjGJGQJGcMTVfFDQzNVQzP
+mHqdbmmdnJqVzVhRVNzPbR
+wStmHJsJsLZLjTvM
+QssMbVGdMQjZPjwVwHVZPZClllvgSgvlTgwwSSCgSCtC
+WmmFBmJrcFRBFrJJBFchzWCStgCTgvhvTlfsNqfTlvTv
+sFzzssDLzrBPjDVVddHMQD
+fztDZSGrNrlnbnPTgFFpln
+jvvQMMcLcjJmQwHdJvjQJnnbTbRFRphnnpsWgmFRPR
+vTLHHCQLHBBjJCSZrVCZtSfSfrft
+gHfHffHLjwHrRjLrLRZVMnTdTBsNTBwTVBsBnN
+DWPhqhhDhvSGvWPzSzMBQBQVMMBBmvssvQvQ
+CDGbqCDbChSbWGrHcHRgbcVcfrLJ
+frlTLmtllbbbdpJS
+qFjhzjThjHTFGHTjqhhjMzBhVpVpdbBnSJQRpBnVVdbRRQJd
+vjWPWjWPPPWgwmfCrNvTvZ

src/day03/Day3Lib.hs

@@ -0,0 +1,23 @@
+module Day3Lib
+  ( score,
+    --
+    processInput1,
+    processInput2,
+  )
+where
+
+import Data.Char (isLower, ord)
+import Data.List (intersect)
+import Data.List.Split (chunksOf)
+
+score c = if isLower c then ord c - ord 'a' + 1 else ord c - ord 'A' + 27
+
+-- ###################
+
+processInput1 = sum . (map processLine1) . lines
+
+processLine1 r = score . head $ intersect (take ((length r) `div` 2) r) (drop ((length r) `div` 2) r)
+
+processInput2 = sum . (map processChunk2) . (chunksOf 3) . lines
+
+processChunk2 [a, b, c] = score . head . (intersect c) $ intersect a b

src/day03/test/AoCTest.hs

@@ -0,0 +1,41 @@
+import Day3Lib (processInput1, processInput2)
+import System.IO
+import Test.HUnit
+
+testCases1 =
+  [ ("data/input030.txt", 157),
+    ("data/input031.txt", 8153)
+  ]
+
+testCase1 (file, result) = do
+  withFile
+    file
+    ReadMode
+    ( \handle -> do
+        contents <- hGetContents handle
+        assertEqual "input test" result $ processInput1 contents
+    )
+
+testCases2 =
+  [ ("data/input030.txt", 70),
+    ("data/input031.txt", 2342)
+  ]
+
+testCase2 (file, result) = do
+  withFile
+    file
+    ReadMode
+    ( \handle -> do
+        contents <- hGetContents handle
+        assertEqual "input test" result $ processInput2 contents
+    )
+
+tests =
+  TestList $
+    [TestCase (testCase1 c) | c <- testCases1]
+      ++ [TestCase (testCase2 c) | c <- testCases2]
+
+main :: IO ()
+main = do
+  runTestTT tests
+  return ()

src/day03/test/Basic.hs

@@ -0,0 +1,19 @@
+import Day3Lib
+import Test.HUnit
+
+ta = TestCase (assertEqual "a" 1 $ score 'a')
+
+tz = TestCase (assertEqual "z" 26 $ score 'z')
+
+tA = TestCase (assertEqual "A" 27 $ score 'A')
+
+tZ = TestCase (assertEqual "Z" 52 $ score 'Z')
+
+tests =
+  TestList $
+    [ta, tz, tA, tZ]
+
+main :: IO ()
+main = do
+  runTestTT tests
+  return ()