commit a5eb8e8a08568cfbad6415643307fa2b83d30a7c (patch) parent 8500c8a46fe77c06d2a0295e845c4ca7a987e6f9 Author: Alex Karle <alex@alexkarle.com> Date: Sat, 3 Dec 2022 00:41:29 -0500 Add day3 pt 1 Diffstat:
| A | 2022/03/input | | | 300 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| A | 2022/03/sample | | | 6 | ++++++ |
| A | 2022/03/sol.scm | | | 42 | ++++++++++++++++++++++++++++++++++++++++++ |
3 files changed, 348 insertions(+), 0 deletions(-)
diff --git a/2022/03/input b/2022/03/input @@ -0,0 +1,300 @@ +QLFdFCdlLcVqdvFLnFLSSShZwptfHHhfZZZpSwfmHp +rTJRjjbJTgzDJjdsRsfwtfNwtfmZpZNhmmzt +bMdJjsjglnVMFCCc +BZvZMBBBMTtZTgcCPdgtgQCrrV +VspNDDpsGDGnRmRpRplQdrrPcPCjgDCcPQCQQj +RVnsmspnpwFRlHGRwHHlnRSThSSvBTbFTZMqTMZMTZFh +ttffrVJWtWpgtQnZGVnNSLTHSZ +jRsjjmhdRcjcRsFcdwGLMZSnHMTSMNZN +RjczlvjhPCcPjcvRpbglWplJBblqrGgq +NwCWwdNQNDCwGpWNQwmJtZgPZrdJgLZcPhLddr +blqpnFTqrLbcLPtV +MnjqSSpqlFRvSqNDGHvWHQDwfWmm +jfLljlQhDLmlrMJQtJTJrQqQ +NpBbjjsdMCgCCMrb +dwspwGnSHHGsGzDDlFDjVWjfZWnP +wQhTZwvpZFZdqWLnnwSrWC +mfDmMFlDcPLdgDSCLCqg +PmzclsMclMlFsHHsJZFHpT +LfLJWNdJnBLfhndfWdZqcgDZgSqgCCSSSLDF +bQVQmrrjPqQDZSZBCQ +RRtGjVmRsPbPrrnNNpNHHnBnpHns +PfbGNwGBwNcPTbGNQFBVjsjztVztVjHV +hrdCJhmlJhZrLDRmghrmDrzqFsbgtbHqnznzznQtbjtz +WdZdDJCDmrJmLZrLDLDZlClcSccwSPbNPfSNWfGNNWMGNc +QwrnTSgqgFShSdfHPdbS +BGdjmMmZMvfhvCZZPf +BzGmzVGGGzmzGpVBtdnQqqdTQQDDqrpR +PPRPwLQlLtbPmbwgJhrSssNlhhrgsZ +fFTdFvTMNfzVnFqdnjgSSjjsSjhghpJs +dvczcFzNTWVWMFLcLbQQwmbHLCLL +HhLLDfMmTjsjmLmhsmmfZMjGtpGJtdcvnCWtZJcWGddttW +gwrwwgzwgDpJddrJDr +SBwBBbgVsVmRRhDM +SZdmfdZRTQZTQgHVVGGRqZdVCjCcNCNcJRWcCBbJjCPCsNsc +FnhzMMhDDFlzlnvpwMLrMDCsbcjNJbcJbBcBfPhCNbWj +wzwnpDDnLvFnLlttLrzGgTVGQqZtTqSqSdfZTg +FJJWWWrCGWdmzFlTVqqlMhmvVlNh +btpgtfjZjjhgggrNMThl +DpwpfRZDZwwfwjsnjfsZnnnwGcCRCHcCCCLGHLWcrcFCWCHW +ljHHHBtjQthchhZpqqNt +FTmJnPFwzlJPmzTgTgbFwJbMCpbMchhhqbhWCDMDhZcppM +JwlFGwVGnFFGBGjdSsfdsG +QsvpGhjGgswvjjwjjjvPpThJfLZCCLCSSLbFLStCFCSgtH +mDrzdzMqqnMrDMmZnqnzNVRCStlCHFSCtJqlCLFCFLfJfJ +mBDzNRWBDDMBpGsZcGZWGjPp +SlLQhQsvvttFlWsWcfHHMTJfwSHwTfTf +VZmmrRDRfpTHJcRf +jzBnDDgjPchWlsQsBW +LTLVdTSLNTLnTSnrWvdwswsfmJwmwGsffH +FbgCbRRppCpPbgMcZvCcGftGGltwHwGtplQQsfJw +CRBMCvZZRgMgBbDCPcDrjLzWLVrSSzShSSNrBS +hVJJjhjRVRZjQvDfBstsBVNBdwstHsld +pCTCcMqCThTFLFFPWcWSPHtwwdmcBHHmNtHdmwmwBl +rMTCCWPLLPCMFhDnDrjzRrfDJD +pqMpCvMchvFNWSBdVNqQ +zDRJJDGJJtNtmGRRWVdFWWVdSfjb +DDJLmnJmzwGmGLTPhTCNpgcrpv +cpPpbPWVprWcbJrrwpCwwdWrvNNFRqzNnChgqFzFnZvqFlzq +fTtHLfSHSsNDGLSmsLvnhFqzhzlzDhhvRlFz +mSMLHTQTmHMSfBSMTPdBJJNNVddrVrbjbJ +zpCpBTnFgFbncznbblzdhRswdlJsLllJdw +QqqmtWVPWvHDVmqDhjsljwRhlZldhRMQ +tWSHDmVfmrtPHVgGRRbgTRpSgpTc +ssTbzFRtPRwTFZtvbPRMhndBqMMvMBHJnnHMMd +WQVWzlGWVBqqdMQJMq +pVSpSSgLfjDzWrLGWWjDzzfLtbRFFNtPZRssspsNRZcRsNZb +jnPzzGlnnznWnzhvGnnpVFrZmVFcgjrrmZRFtj +fsbgTdwdqBbfwCptVtdZRcrRCp +gsMbgfHsBSwsGhhJWMLnWPPJ +bpmbJpNbbbNGGmRJzJTsfdsvsNdglfhssCvC +hWLwQjZjLhjHFFBLZldvvflrvtfjCrfjlT +QWVQZZFDcDJJhJJc +RmRghgRlNgfGGRmdGqhsgsZFZZpBvHpZppHcgH +tbLCDLnLtSbbbjtPtMLtDPTvHHBpcHcsHvTcHsmZcF +rSLrMJzDznzGmhNlVwdrRr +vWjljMWcnSSpjmzbJVzJrTCmtGJV +NZDDQLRqPJrPzrprTC +gqDqqwpdHWhlgnjH +ccptcpstDvbNvHbLNRZZ +dFjhdnjQFJlFCQSjgngJPJgWWrRNWNRtNCzrVbRzNVzZZL +PhThFSPPSpsmTcqMwt +cLcLlMhGMGcpGzslHFHFvnHlBDvWbT +VHdQwqPJdPwjJPdPQRrmjjjQnTFrbvNWFFffDvbvvNDvbBNN +RwRJCHmmdQJZZLzGphcCtz +hVvFVjvjVWmFRQVZqTpqtwQpwpqZfp +gvDlSBDJSlPLcLdDwzwtptqTTTzwcCCt +JgrJGbLgvnWsmvVr +rwmqqRqrnHQGmnjCCqCzdBzCBJBz +hFLgbWWPWmvtLhPtgpcdjJdcBJdpJjDsgp +lvfhSSPWtTNTTZZmfr +bHDDssRHsjNMbJjJLQJsbTtGvSCzCGQCTzGvSqSBzT +mmVrwhmmpfPStnTSBnhStG +pcwrptZcgFcmpgHRDjjZlDJsjbbD +JJRrmFqJMdFFJMjjJcqGgzSCSHSCscPCHPHGZc +VWpWptnvSmpPGCHC +vQnDLBmbntvLBbnlldTQFlJlFFrNRd +LPDftnHFQfwmBcBGmc +CVqRsdqvdrlsCVsNvqwwSpTNSSDSDDBBTTSN +lqlDRddjbblRbRqrlRRjsbvghHHnPQWjHWQWZHPHWZhFnP +bwQsDcgsJqcsDpcQRQnpqtVSVvgSMMMfMvfVBVfdvM +CGZFrHHPrTZNGGZZHmCZHlVfjfzjSfzBtBBNSBVjvntf +ChrCCLGrTlhJnhDncRbp +nmFnhfTQjSzfjddZWsRRRFRFGl +HDgCwgtQbZlHsrqHHr +cJPCgCCPbpbgDMPvMQnjmnhTfmzLpQQmjz +QFHSQdNMCSgcSgFtttPNFJpCpnTjZlbblpppZplZjz +LqLsWMRRfrrWMmMGpbTnbppbZnTjpnmm +fWBrMqWsGswGfGRMMwrLgtPPdNFBQPHNHNPPcFPP +dngbSppJSSppbVMZQQMjqfQQgwcl +TWmSWtvCRCWjwfjqQqMstq +FhFvRzSTNmhHnVPhGhBJdBpB +gcHPgzGmPPwTsSTsbwbdWD +QjBLLfVhhBqqBFQLrLjVFlNpNDtsSWTDdNptdbqbdS +jCMFLVjFBFjJJLFFMVBFrLnvPzHRmHPGnGWWcCvzHRZm +PDPqWWjhPpPbCsjwjTVbLT +SrtCttGRMddSVwHFSs +JtfvttmrGMRRJzJCqhqqqWQZhCNgJZ +ChrCVFQCVQlwQNwpQcmmcjmWBmddghjjdW +sbDTZStTqqfSBggPmWjWWNsL +THqqSHDTtZTDTHZZbHTzRzFvlFCVprFprQVnCzNppQrz +PdfWCwMWjPSrdgCMnnlGsGQvvpJZvFGnps +DmBhVBLbbVqVBzTRLBRzzTLNNpRQNNZQZppZvlQpZvllvF +zVDtVHBbbTbzDbrjgWjMPtMWPMlj +JLsTTNDsgTMNvDQpLpGpLGNJShrfzCFnSnSrnfzCfTFhWrfw +ZcqrRddHZZVRfzWnVWCzWFnn +tZHZtrHHPdRtdHlcccQggsplpJDNvMGNGMss +cMCLfStfMTCjPMPcGzjftMbgsRNmRgmmGsmnJbNJbghJ +QHVVWrFFWZNShHSgbSJm +qZwwrrpqpZpZFvqrQdFlQVSwLBMBfTTLTjLBCcdTMzMftPPB +SwsdBTvgvJLPNptpCpCmBDtn +wffrzwGFWFNZWpjWZnNm +zrfflbRwJPhbPbsS +HjHHRtwjnjRblQRttHwQGvGWNNBWvqGzfTvfNN +FmScCcrsdVZrpBrVcCVFzffvzzmWGLWgqWqgGWzW +SFVSDDBdsdDSJhnjJltJbPtHRM +FjGFVqWrzQFlQrZzGQzFLTvfwwTgMnvcnbRMLRdnfb +CCttSNsSnRfgncSg +CNspmDBPtPmJJNBJPNpDhQZVzQlhqrGZflfVjQFrQj +dNNdHWcmdmPPptmmWHpPTFFjJPGrQsVsPQGGGJVDrVVGrS +MhZlZhlgflgfnfDtjbjJGbtnVtGS +LtZqlzhzqMZWHHLwdHmFWp +llNRlfwWRwwLlwFNNgRrVCBjdjCVdjpWjtVWCD +HTQqzPqzQPmhhmSPznSsssJtdnMZddtMCjprtMjCnBVnjZ +PzHQmqsGSJPSmQqPbfwNcgNbNgNfBGwR +lPdzlZPzQzMZQGQrTZvvpjHTTpfsTTZb +zRShhtWRnqnqSNRnDTTHvfNJspNsLpTsjL +hBVncVtDSnhDnDBBtGrlzwmmMlGmVrMdrP +HPTZVHVPlHDPlfgnjJFdJdjPjSPqCS +hLRRBhwGhqbtmsRSSSjjdMJjnJGSMj +QrQtqrRrcQDgVglc +ZTwbbZdchZZjmVWHTrHWBVJtBB +glslCDqLLDfGRqlsgLssfrCHBHFHmrHBBppFmCJWWp +fRzvvvgGgNSNvmQbSQ +qPGGPwCTqTzHCvPGqWdLFLssLpstLLspvd +njJchhcbjbDrbcLNlLrpWWrLLHgp +DQhMMMJQMQJnVbbnRHSMPwZmGZPZRTRCwTZmZGwz +zzGNfPbcgdPqLrqvWWVzMq +DGmJtnJTJRhhJMhCQqCLCLrrLM +ZnHDtSZlTBHnBdccGSfGcwjjdb +FpZDpQZDvMwZpCCMdCBPpJGPPLgJGGLffJJL +jlbswNrlPPJJfGlf +bnNwqbHnNwRSrqhbdCcmHddQzddFDdvZ +gbQQQngWPVVtvvPQNVNvWWSHGwDsCCmDtHSlmrssDmHs +fqhMLFFMMZqZMRZqMjRMqLJSCdFlrrldsDrCsDSSHHGCSC +MJRZLZLGMcTqczjNPzNnzPvWBVgNnP +gqdbBffTvlRHbwLl +nMMQJQpGdsFpQsJzNMRLLDlmLLmjFFmLjDRF +pzGMnVcMBfTdtBBV +WSbfmrrrrWdbWmdfDSSStmHjtMtvCLVnqBHCVGtVGnMM +lRcgFRZhJgnMLjvGgv +lcvwTcFTplvwphzcTTJTbsdsPSPDdbmzmDSWPsSm +bbdTjTQTQMsZNqqhJrZslg +jFGVjwfCPVGfwjCVqWhWZFgqWrglllNN +PjfSPzRBjCCfSBCGBLznTndHcdMLbMmmdT +wSVMJSVccdGwGnsgbVTTbRsCRNgN +rHjhHLmrhPJrqjNTRDgBbbRRRs +zqmPPqqpPLzltrMdJcZpfdpGWWJJ +ZhrBBJGrgJhGHttGGVPPcPPF +cnzLqNssfRnpfWqsLfcfWQNMbMVPDtnDtbHFtMbPtVPFFM +jfqzCCLsWQLcjgldjmljmgTd +wghGSSGZPVwgqtwtwCCtFFMM +BvbspnBznvvWHWHHHbCQptQFQlFcqMClqLLq +JWzzsJHWzfWjJrvMBWHBBGDmVDrVhZmmgSPSmZVVrh +ccRMJRsjjgJgcPCSCCVCwsSWVNzp +WQQqnmrBWtqWqdSbVwwBSpbbCSBB +QvDqmqqmgWPWjPvW +msqpjDWspRWwvFvDWWhnbbJfPzFQblJJPlnz +gGGrMTgLVBsBBLdsVTrSCBffHQfdHhnbPPPPffndlbzh +ZCVsCGSScsLZpwNpqmZRqW +PPsGmJPVPQPZmsQCVPJPnPCMDcTcdqDDTqvFhvnTjRDTDchq +BdrtzNBLHStHrdrlwfNThvFhcvbDccThjbFBqq +SSgdHNfSHHgzLHtLNWSPQQPMQVpmmppVCmQZCW +pPssrWWLdndHPJdd +QNQFTLNBFTzzgjfGTjffFNZjCSGnHDnSDJHnDScttDCcDnmd +FVzVLZwZZgswqqrbphbR +VpWCZjCwWnppZpqnhNjjNZjFLtLzQJHdHLQRzWLRzRztHJ +DMGPmPMgTSmsgQzRFbdHRLJgdn +csDMPMGDDvMSSPnDTvrDChhwljlqNNjchNCjNVcf +WpGGmbSGpVWWpjMMTNdfCFNdFfRNwNSF +JsQztzrvrJqsTTRbbvFBhhhv +cLrDqLccsLqbDHGpZWDHgjGlZW +QGMQJMmsJmMCmmqjsRvLvvdgvgVvDVdD +BDcrcNbNppwTpzRdvvchhFvfFv +plBBwWrbpQHDjGmGJl +mzFlTdmSDzrPvCJqqDVVNC +hfRmhgjRhnfwnRHcnhGGvPJQPvvfLfQvNLGv +BhhnjMgRWghpwjRWMRjrZzdbSbsdstTrltdmMs +bLLnbqjpvplnDvNlqpqBWJZSdPJCNdJJThhSPhTd +HFwHHQMMFHGzGwRPPJPTWthTZtJSQr +mfWMHFHWHmgmFcwGwwpbDljqjBDcDnLcVnlb +wBrWBwSWRJMBwdZnPQPgFnwGVF +fLjfbsvDDfvvqqGqZGqmPQgqTGGG +vZLsjzjjZCzJWRNSBR +jTRbRHHqPqTRBHqdjhgvgghhZQdDvvgvhC +WLWWzzFszsmNFGWSFmMrpghCtZvhlQNDgQCDgctC +FJsLsSrDmsFSDLWrzJmmMsGqjRBVbJTBVPVBbBqRjPBjHn +QbwwnDDQDcDfSbDbfhhrvrCtJMvJSCvvJh +FWRjjLjmdZWdWNBFNWNlNQQrMGvvMGgssGvQRvrMJs +BjWdlBpmdmBWFWdpWfPfpVnVwfHpqPQDbq +SqrvlMldqvSWdGPTGzWpWpzpHP +tRwmhtbsRRFsLwGGTVDHppTNdbVp +FRCRQdCFtCLmBhCcmmQdhFdCvnfjffjZlZnjSnvfcSrrgMgn +GQQtNJQWWcqPPhMMtwqD +WpWLlBWZCvhjwMMZqDDP +WgvmLVmHCbpppLgdllHddvCmFGzGnfsJJQJsJncSsccFVffF +HcSsSlTTvvPPWWNMWWgPTPPbGbbrwJQbrrDphrHJJRpRhp +ztfLqqzmRwDGlLDb +fdVtmqjdZBmSvjsPSWlTgv +DPvDhhMRRMhRNDLPMNsbwHwrjgnddqddrWdPtHzr +pcBGSpcVBfJWCcmJGGwHtzgrrtwqzdrtrngG +mllBlBZmMlQWRbQv +SGZBSFMZllJWmzvfpp +NTqbNrhHNHWgNqHrNhNQbbjHJLcnfnzLLnLmfcfccJcfQLcL +HggbTNRRTHqqbVSGMSZVWDMDwVPs +SBsSlvbPlFPvRlbPsMFZLgVLrLsJVgzrCJfVCH +jcNddNdGzZrVgNVJ +tTGwdcmWGdtwQmwmwZdwSlhBPbhPTBFRhlhSMFMR +RzStzTzzvvQvSHVvhVgBqMMFqhPM +ddlLLwNVLWLjbbLrjrbWrwmlhcFmBGgFMMPgBcGBBqPhggMs +dLwdVCVWWdfNwNwLrWrbfbJNptzDDHRnHptHtznHTppnQCtR +RzcfMBHLzpDQFmnDSWNB +dbqjtjVqJZZGjPGJCPGbPndNNDglrmQmNSDgSlSSng +hjCTqhCJbhVCGNvMcfvhfRLhvchz +sDDqDMtqshJhPvhhCpSCCWlZHSWp +bffRcbBGGTwGfGfbNjgSHZSgWwplHCClZZ +RTQBbcnbRNmGbGTQLbmbJVqLllsDVMsPDVVvttMd +nbLBjnqwgfRRBgBwnllbLlwScvPdZPcScZPcdFZJPvZPvcMZ +tChQpphHrrHztssZdcDJcPZcMvWv +hpTHVMQMtQtVpzBfwjfRnfwfnjVl +ljJlvvJQlrlcJcWpPzgthnPnzMgpgSpC +smtmZBmHZTVttHmqFqmzCSZSdndzShPNgPShgP +bVqFHLqLqfHHFwbBLHcwDQrDrtjlQvGjlRQQ +pwhVsPvVVCFtmhPhzqGqqZMZvGTTTMlGWM +drrrrDfDRrNQdQdrRrBdjGWqWqWlGlGtlGbGZGBTLc +tSDfgnHrdDtVSPSshJCSPh +WlWlDqhglLhsdgrcbFdJJpPpdBbB +ZQZvSvzRMSzjZjvZmMMpbFPQFVBrVbPcpbJFLB +SwGZmjvCRSMRjMzZvRnstHftNfswHsflLhNWHf +jsprCvGRQrtjCsQrGsrzvGHhgmHVmHZgggmMGVmhMbHm +FFFdDSdwSffJWqqMzzMmDVbZ +LLcdcfcfPwwBzdTTdtvlsrjCtvPvprnsjR +MvtSqNSWMzjwzFTD +ZRPlcRpQszNgszNwVT +bcZcrcPlcPLLLZllPlbcbLSBfWCvHvWWNSmSqNqfWN +rNdZpMGnddgggwHwzRPCzDDD +vcvhcTLhZLhLPCPHPDPPVvzH +LTmBmthWBchWLttttFJFLlFnGJNsfpdjNsnMnMpnpZdssn +ZHWFCvqBDdqqqCTDHHBWrgppTMhhVpspMPQcSgQVPS +jblbGffntRwltfMQVrrQscphfg +ztJrGtbwGztbmtzzRGnRznWNNCWmHHdFHdFNWWHHqCqZ +WGWSSZvVvqmrmzPm +NgjtwFFlwDsFghNsMtlcjljcPqrQHcZzQznpQQprnqqzHQ +tgMCwNhtgbdLZRbZCT +PQSPQrSGZnGnVFhpVhRRlvLvBDRV +tjctcjTMMpDTvFTlRD +JCftsccFCcmsJJGZGGmPHnQrGwGS +TrjRFFRnpnRCHNFSjSRrffJvJfzqQBsjqQqzzffd +ZtlgMDhZhgmGDLVZLlGtLPqdQQvvfBJJqzzBPdMzdd +VlLDgLLDWtGZwgtRNTNrFTqCwqHTrr +LpcDFDMMPjMLLjpcDGCHgHssGHWnbCBWBHvm +QfZhrhVVdZThlZlfVvVzZrTbgQnBHsCCHgJBsCsJBHmBmn +wwtvfZztlTVlhtrzzlLNpFFRjMPDpRcPFwRj +VzZhhQHQJJWJSSFWDGclbmNPgglPgVGc +ddBTqCjjBCcrqrCRrwGPGmmDGmbpBGNpNNgg +CRMjwsjwsLdLRrQFJSvMFMWZcHFW +JgJJPvtrhRPQQzSRMQFFSF +BLqsjsdLsMBqblnsGbBqVqdwSQSCSWwNFwczQWCNNwNCHn +ljqbpLbbdDlbDbqDDVtMttTTgpJJgThhJrJr +nflndmjbSnlTQGwvWGPHGRGj +NtstcMcDJMvwgHfFvDgR +qqqpLrMsLLqLNNnzbrdlbZSrznfz +ttZCCFjNjnPVCFQPPFbbStrzqzqrrrcwtmJJ +gTTMRMTWsTGGTddHTTbBzBLSmqbbJGzGmqqb +HpgpMTvRhHHTRDhMsHdHDRhjJlVPJjNFJnnFpQQVfPCjnP +VqJVQPpjQqPBbHwldmLfVVmd +tMGvrzzDGCDDddwLbgLvLwcm +TWDWCzTZDGMZtzWWtsFhbRRqRQRjhbNQBBTh +zgLgLHnnzCCvnsHSsZBZBsTRdD +rslllhJjcQNNGjpWJlSRTRdwBVSSNTPVSdPB +jGrGqjJfqccrfqGcGplrJpFvzggqmCtMzmsMnvMvvCgm diff --git a/2022/03/sample b/2022/03/sample @@ -0,0 +1,6 @@ +vJrwpWtwJgWrhcsFMMfFFhFp +jqHRNqRjqzjGDLGLrsFMfFZSrLrFZsSL +PmmdzqPrVvPwwTWBwg +wMqvLMZHhHMvwLHjbvcjnnSBnvTQFn +ttgJtRGJQctTZtZT +CrZsJsPPZsGzwwsLwLmpwMDw diff --git a/2022/03/sol.scm b/2022/03/sol.scm @@ -0,0 +1,42 @@ +#!/usr/local/bin/chicken-csi -ss +(import (chicken io)) + +(define (prio c) + (if (char-upper-case? c) + (- (char->integer c) 38) ; #\A -> 65 - 38 = 27 + (- (char->integer c) 96))) ; \#a -> 97 - 96 = 1 + +(define (append-if-absent x lst) + (if (member x lst) + lst + (cons x lst))) + +(define (bisect lst) + (let ((len (length lst))) + (define (bi lst a b) + (cond ((null? lst) + (list a b)) + ((> (length lst) (/ len 2)) + (bi (cdr lst) (append-if-absent (car lst) a) b)) + (else + (bi (cdr lst) a (append-if-absent (car lst) b))))) + (bi lst '() '()))) + +(define (score-pack pk) + (let* ((parts (bisect pk)) + (l (car parts)) + (r (cadr parts))) + (apply + + (map + (lambda (x) + (if (member x r) (prio x) 0)) + l)))) + +(define (main args) + (let* ((lines (read-lines)) + (packs (map string->list lines)) + (scores (map score-pack packs))) + (print (car packs)) + (print (bisect (car packs))) + (print (score-pack (car packs))) + (print (apply + scores))))