day3

2 years ago · 7058b3ffd2
parent c3d62c3c5e
commit 7058b3ffd2
6 changed files with 420 additions and 3 deletions
--- a/aoc2022.cabal
+++ b/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
@ -103,4 +105,30 @@ executable day022
                       -Wmissing-export-lists
                       -Wmissing-home-modules
                       -Wpartial-fields
-                       -Wredundant-constraints
+                       -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
--- a/data/input030.txt
+++ b/data/input030.txt
@ -0,0 +1,6 @@
 vJrwpWtwJgWrhcsFMMfFFhFp
 jqHRNqRjqzjGDLGLrsFMfFZSrLrFZsSL
 PmmdzqPrVvPwwTWBwg
 wMqvLMZHhHMvwLHjbvcjnnSBnvTQFn
 ttgJtRGJQctTZtZT
 CrZsJsPPZsGzwwsLwLmpwMDw
--- a/data/input031.txt
+++ b/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
--- a/src/day03/Day3Lib.hs
+++ b/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
--- a/src/day03/test/AoCTest.hs
+++ 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 ()
--- a/src/day03/test/Basic.hs
+++ b/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 ()