day 3, add [un]curry and swap to utils
This commit is contained in:
parent
efde27f8c8
commit
883d16a3a3
4 changed files with 366 additions and 0 deletions
4
bin/d3/dune
Normal file
4
bin/d3/dune
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
(executable
|
||||
(public_name d3)
|
||||
(name main)
|
||||
(libraries core utils))
|
||||
300
bin/d3/input.txt
Normal file
300
bin/d3/input.txt
Normal file
|
|
@ -0,0 +1,300 @@
|
|||
dtddvvhwttHJhwdhJPddhwJGppmGjgpQgTjQplQpTljwpg
|
||||
BfzSzRSVVMVNRMDDNBSNSnfBmbrglGQbmNpQggFjpgpbQlQb
|
||||
ZSBffLnVZdCCPJjhhL
|
||||
RGCZpWWWFlHQQbgvFssg
|
||||
jLnMzjnrnjjNjhrjdwbHscsVVgDVQPvPwh
|
||||
nfJnLMLzjJMtnjNnnBbZtBWBqqbTTTBRpT
|
||||
nddlhBtqTBqTVSlBtmCmVcRVmZggfWbcZc
|
||||
jDjvPrPSNPwrDNRWbbgWCjRRCcWm
|
||||
DzDwSpFrvrvFPQLzQnsqztBthTJnGJqlsJ
|
||||
gssGmzwgRgsNmTsqgDnDJnbDHHhhzFdDDh
|
||||
WQVFjMWrVQrVvVVjVctSSLSMZhnJZPBnbdnhbnHZZBDJBh
|
||||
VCtcccVQLrfvrSlGmfTfNgfmlFgm
|
||||
DsmfsBbNNZhDWsbmWmNbbPDHLFjcctjjGcnZGzncnctcGH
|
||||
SwVQJrjVwpgSVRpjpVRrlTMCFFCLCFFcHzzGMcHrtHHH
|
||||
ppVwTwSwpwvSlSlJTjVVbPhsvvBssWsNfsqWPvWs
|
||||
BJwqwJtqqDDDrGDnPFzPFfpphD
|
||||
TgZscCHQLSHgZcfMzpjFFjzsshfj
|
||||
LcNlTVQCCVLLZTLNvpRtpvBBvRJmNB
|
||||
bDBGQBBCTTNPGPPwPzcHfVHrDtLWLVrWVjjHWr
|
||||
gpssqqsqlMFfLZQWftjVpr
|
||||
lvqqFMRlFcQvbzCNCG
|
||||
fhhMDdPhWMJMWvhhSfwRSGlzFbSFNlzw
|
||||
LcqTCqcgZqjTggVjcwbFRwbDBTzbRGRwTS
|
||||
cHLpZgnCHpQsDdsmQp
|
||||
jwStJjJhtgJStpgwJMggQWqQTNTfNTWfbNNMCCNG
|
||||
zRZnFPRZPVncPGVFRlRmGHCTqfCCPCHHfLfbTQCbTq
|
||||
lnVmFZRZDnRVBFZcrZlhjpggvppthGhphpwprS
|
||||
lcttSptHHllQbMcsrltSQGpvNBzpgWBBBDDGWzvgLz
|
||||
PdjPVRFhFqFjRRCjzvRWnWLBLgbBBLzg
|
||||
hhCCFbPTmjPdhZjhPhZCmTjjMsrJSfHrcmHJrHHmlcJSsmft
|
||||
WhWnLZSSnSzQQhfLLNSfmDHrCFDDHtpjGGtTGQCG
|
||||
gJbJBcMVwJlRRdbwvwJBVtjdtHHTmptpHTCtTFrFCp
|
||||
JwwgvRMJlvJwgqgvqRMcnWWhLPzzsqfnZWnfWWnj
|
||||
zdwTSvzHMvVSzDCtZhtGmbTGhm
|
||||
lcBHfFjjgtsmDCgshD
|
||||
cJPBnqNFnLfHJFPqljclqJzQvSSVWvSnMwvSzSWWdMWM
|
||||
pNJMcZrsZDLDcbcccMpQffHqvgdwdFFmdmqwvqmgmzsw
|
||||
hhnWjTTStRCGSMgvvgvdqvdFjvVz
|
||||
hCTSWhPGttTCGBWMRlTCMSnPBDJpbDfDpNpbbNJfJDJbpJpN
|
||||
lbcQcSNFchhQNqHLLqhLqrMpqM
|
||||
WfsnsszPWfBBVpHdprrpdnGL
|
||||
WTzWfwjtTBzwwBDzmfSSQmmbFZcpQNcbZZbv
|
||||
PwSJSlmtPPgwgmHhPPvRvGHLRLQRBQGCQVGb
|
||||
rnsFDnnfGGRWQRnW
|
||||
dfTTfTFdfrfFFFzQFPJPSSlhqtllNPzgwS
|
||||
MMbTFZrcrGZMDqNStWScDtzS
|
||||
dvWmhQggQvCnfnqPqDnDjnfP
|
||||
lgvdvLClWCQlgdhlrMBBHpGlwbHHGH
|
||||
CQHgQpPdCQpsCpzRwSVRSzRZwZ
|
||||
JbNBbcbrJvbJnqVznwwTzrzz
|
||||
wNbfLvvfDNNBHPFLhddFsQss
|
||||
VVzqvwzpqvzqNVVHGNqjHpNfSQDWdWwJdPWrWccdQrWrrDdd
|
||||
nLcbtBRtBhcnWSJQlJSgll
|
||||
tFbLLLRRhMtsBMtRCRsLCMBVjjvHTNjHHjzcvFFppGHzTT
|
||||
QCPrPWNPlWjGGZqGmvdPGd
|
||||
JgpHpSfphhfpVmBSgnTvdtddGvZVdvddDv
|
||||
LhphBfHpSwSwfHcMgfpmBWWWbsNCjFWsljNbbjlLjb
|
||||
QJmQbRmdfmdSQRQZSJltTltNvTrtDtrlftDD
|
||||
wpZcHVwwMgBpWMVgWpHLphztDvvGvDPlnGvDLlNrDPnNPl
|
||||
McgWFWHHHzVpMgZQFqbjsdjqqRCq
|
||||
JPhLFfMJDLQnjNCvWWpdjjdM
|
||||
crSwnwVnwSRBcNBNjjWCdC
|
||||
GlbTGbsSzrtbmbfhnJQP
|
||||
fDLSWVDRHHfVWHgPcZlDlZbbQhBcZQbb
|
||||
jrmFmprTpFztmddjdjrpvBQlQZGhQbTsQbGcQbcbQs
|
||||
nvqdpmjFnwpLSWlfnVNnWl
|
||||
nZBRbBJzznNNCnJZwnBSCJMcpcTpcwhcqhmsmWMwFWLL
|
||||
jQfvjgtfvPlHHqWpvWThpWqWch
|
||||
VljjjgjQjrTDlDgrHtVCbnJZzNzNbnRNNJZrJR
|
||||
MQtJnttlMLlJQsNhQrVVrFVWRRbbVFdJDD
|
||||
vGjvzmjzgHqSjjSzmSGHTWbfDFWrbFzFfdDVrfRWDb
|
||||
qPRqvTSPggqGgHCmllnCNLtnhcnnsnnw
|
||||
zrlZsQMFrsgQFMMjMCbjVDCTCW
|
||||
NqHNRdBppcJJcTpdmRfHThpdDWDtvbWVtbLjWbttWqqCCbLt
|
||||
mhJpJHTJmBhcJhwhgwzsQwSSlzQQzGlZ
|
||||
TvsszlvnzRRVTqzVrqrjjZGPfQPFqPqG
|
||||
mcNhDNchppWmWSNhdSmSCQNjPFjrfGjrgPFCrgFPgPgrLf
|
||||
SDddWpdMWSwNDmMNwlJRQwJlsVRRvzlsHt
|
||||
DTtggjsFFFTlPJhvctBqBqSRmSMBSRnmnRcm
|
||||
fGfwZdrbHVLdbGdHHwwQGVwBBCMMfvCNRNSMMMSRBmmRCN
|
||||
dGZzGHGVVbvHvHwbzpGbHLrwFDDFTtsglhFspgJshslTDJjT
|
||||
CbzspssWwCPcvvplrfqfDCJrDqdllB
|
||||
LjttnjNTNGgQQJdBrffTwB
|
||||
nVtLSgggjFwtMczhvzpZbSZW
|
||||
HCzCHHvWthWFHhssWCVmnqZrnqVrmrmgnbrqmN
|
||||
wPPGBjQQGwGbSlSLwgnpnrBZnBBmnMNnMN
|
||||
jTTbJlJjPPLPGHHTthhhHcFWTT
|
||||
qRdvvPDrCpzPHzcdrrcRqtbJJgjhgtWjJgbWJtgCFb
|
||||
GTwGwNscLllGTZmGSTZGlSBMnhggjbgtgbtbsgWFFMhbMF
|
||||
ZSQBSmlmzcrdQRqz
|
||||
cSpTRphwwghRfgSScqPpnDqDCjDjJJJJDvDLCvvn
|
||||
BVmmQFQBQVNBVmsWlbQFGBBlCHTJznzHLHvvCnjjNLHJDLHD
|
||||
MFsZZMbBGblbQTmQsFsQMMfPcPcwSpwtStgPphZtctPc
|
||||
QZbbZBdjPBjbQQbZnSSltlfwWvlvwNtNjwFMMN
|
||||
DLVqTJqpSVtfsptwfWpv
|
||||
rcRRVVTSbPQBPrBZ
|
||||
tjSgSjLFSnVjDWRsQj
|
||||
lcdqhfFpqZGpZqznrVRWPrnWRVBsVG
|
||||
FHddNNNHwTHMHvvS
|
||||
qCSDSQlwBHNbgJrHnLJH
|
||||
GRpRpRfnmRWWVWgVrF
|
||||
jhdZjpnvGfTZZQPlCtqQQSsS
|
||||
FMZSGWWBrZjMBZMrBWMGjjZDnCRqpgPnbRwPbFnvvqFnDR
|
||||
QHcpfVVslfdVlQclcctqRgqgbsCwbCwPCCCPwD
|
||||
NLHfLhclmmhdfNNpfQMBmZWBrJMmZWBzMrjj
|
||||
pBMpRgBMQwzRthmzLC
|
||||
HPcJvrvDbjvrFDcvWrHfHfWHmdddtdTLztmtdtfllmNdNhNz
|
||||
DvPFDvnPJLngQsggMGGQ
|
||||
BbcFHvbhhDbbTSvZmwwgJPPlDlZldd
|
||||
prCrNLMNgWWJBdrJ
|
||||
fQMLCfLLtpqsNNMnnfBhcBSVGbhhhcqVbcjc
|
||||
ZchcZZjmmNpgmJtgmM
|
||||
RLrHllWrQZQGlBpbGFGFFM
|
||||
RQnLHrqPLnZHzqjfVPcvVTfCvPTC
|
||||
fMtwjfMwrbjfGrtrpPGrwpNNVNVqcbdVqHZTFNbcHSNL
|
||||
mgzvDnJmnJhFJHSTNqZLHncHLS
|
||||
vRzhzslJFhRffPPQMjGtGl
|
||||
VMMNjWppQVwzNWrZdrrtMCMZCtMT
|
||||
ngDScLcvPPgDPDGhGDPGSHVbHTHmZtTSrBHZbZBmBb
|
||||
LhlglLghnVlplswJjs
|
||||
bGJQZZTQQLJJbQZlTZLjCGQTsDhWFhmshhvjWVFVVrgtDsst
|
||||
NScqwHcwwnnzBwqPqqsmVNhgsDDVtsghrFFg
|
||||
pcrcwnpcffrcBzfbCRLpRLMMRlRLQl
|
||||
hzCzCzpRgCzzzCctNsNWNqsZqZhPqNPb
|
||||
TdBwmdrrrDmvwTvqNsSRssPlsWsq
|
||||
FDBRRHDMTmBfmrmngnpjGgVptMgLCp
|
||||
ZPLLnSPMFGvFZMSvHhDhqHfqvfqbDW
|
||||
GgcppCgBcrQBBgplrVddhDqqqfdHgWdfqb
|
||||
CcCjQszmGBQjrcCwCmCccPwPTPnMPTnMJSMMRZSPJL
|
||||
LcVVcqqSHRLzRnCfNnGzNW
|
||||
LZPPdljlCggMjgNM
|
||||
PTvwlPtwtlJvZTQvbcHppFLHVVTcFssF
|
||||
fpWzvzNgWJBVfBJzWzBVJNzWbZcbHhlbthjlrrPrjZZPHZhJ
|
||||
hRDmGCFDwQnStncrjnccHcMP
|
||||
GmmsGRmFTsFwSCsRQDsCSqqpfvfgzddWggvqdpfBWzVh
|
||||
wjRBFljJGDFwwlGGpBSjGDtwTVtTgHHHsHHsVTVzsHqq
|
||||
CPLNPdbWvbMWbcmvPNdLVqtsHqgCqHChZhhsVsHt
|
||||
PWcPfPvmvNQbbWdWpJjJBDptGnDFjftn
|
||||
mFFmJpDMmmnJFjWDVclsSpcflSsQwSsc
|
||||
HrjNNjHNfVwLNSSl
|
||||
tdZbhjHZHPbdCTvbbhhrGbbHMFmRMvnRRFmmvJMDmgJDJMnq
|
||||
szJZhshbsfZJjbttchPctdTnWnRWVWMMnBdLRpMnBz
|
||||
SrNwvDSwrCmnVRvjpWLBBn
|
||||
ggGmgNFrgSDwmNgrCmtPsZPsjQGsqPcsqqJP
|
||||
gjSWSjJSWrWzppzW
|
||||
MCMzHNGNqHfscsFtrtwscVcr
|
||||
qGHNGNHLCnLmTCHfMMmNTzzldzgJlJZZgJljgTdD
|
||||
QGTQtQzTmdTsGTLcdFTGzdtBBjtwvBBJDvDMHJgjJvww
|
||||
lPlqsZWnDJjZvZgV
|
||||
ShCfCRnWGFsRRRrF
|
||||
lwGtndCrrmGCwdmhzQrBzrHvLVggPgHv
|
||||
fjMjDZJqSDJfJqDNDjJffjZLHPHHFvVFzHBLgLFpFpBSgL
|
||||
MsTZWRNZfJZZqMGVGhhlhhccRnhC
|
||||
MMvncqvcHcSnsdzzgvdfQjpljpQVTdDQDRTRlVpQ
|
||||
wLCrNtBFFHHThRlH
|
||||
bPJtHmCWssqgGPvq
|
||||
LvTLsmDWvTWqTsmqjRTmjwgdwgnMHMMFgdtHmBmFVn
|
||||
rlSCJzCSfpGGlhznQdnwFhtHgBFwtV
|
||||
SGZJJSSrVfCbGJLjPsWbvjRsPTqR
|
||||
pNqVVDCMVMBpqJVdMNHrccGHrtNtTFFFrQ
|
||||
hwmllWbvvbnPvbSvtrFhhJzzHztcTztT
|
||||
WSnbnPbbbvlWlRvnsqqMgLRMjLgVLCJdRV
|
||||
GphVTGVMtQwtJmtCJP
|
||||
FRRsBBsFqRNZNNrgqBdRfCZvbmPgmQzJQPnmJbJmQPJPPmwj
|
||||
RNqsFrRfZZsZWvNqWRFvrBZvWhhCGVplhlWTlTpSCLpMhWMD
|
||||
RZRjgbZHjjhsSnRsZstDRStsTVpFhBqFphMqPPpTFQVMPFTM
|
||||
zrcGJwNNdwJrfNdJWvGdJzdTlTFlqTVPFTVFPPBpqNTbBP
|
||||
WwLdLGfrRLStCZbD
|
||||
mrmTqJWTvDDppTDb
|
||||
DGzBfCzNDzdMwnLlbn
|
||||
FVZPFZFFZPgjmWZsDtsq
|
||||
TpnFTnFRCgRgldMRnDnRcrcdbdPBHbtPqbVcccrH
|
||||
WNWLfQQmfhhSNwmrcbSVqPtbZDZcPb
|
||||
LQhwLQvQvNfJhJRDMGFRlCMDMD
|
||||
vLFTDmjVvLgnNHPphN
|
||||
lMClGCmsRdCnPzCccngCpz
|
||||
dlGZwRsRrRwswGsdSbbZSbVDrVBmDWWWFJrTrFvFTmqV
|
||||
SGsZRqGLWLLtZRHRRcLHGTlJjzgJpjzTpNTNJNWpTm
|
||||
MPMPvFFvFBrPPDPMQMPChjgpNpSNTmmmpNlTDljlTz
|
||||
vnhrvMvnhSRqqLqnfn
|
||||
mGFrlBmFQNQFljhqqqqbmHMsTPRbWWCsLMWRsb
|
||||
wnwtvpwVzDVpvzzwZppnctMLtMPWWCstTsWTsTLffRRW
|
||||
vwDJgZnvZJFqgLBFGqgl
|
||||
QdGltnWNWqTdqQWvWsMJcrTcFcrgshJRMs
|
||||
BzPLCDPzzzzCCLLfCBzfSDmLMrDJMglrcRbbhRsFhMrRJcsM
|
||||
fjSzwwHfSzPzfCVBHlpdjGnZqnZptqQWjGvG
|
||||
VbJZbgVzvzmhQpQWpQzhDp
|
||||
tHPPcGcFBlCctCGtGcBBNlDLMGfMLwWfwwqMLLJwQWwp
|
||||
dCHTPTPJdTBFPdrZjgsjrjnmdgms
|
||||
JJpBvJQBZVvcFqqnsWdWvjsn
|
||||
DCfbDbTtbgfCSHqqNdFMPhPDFnPPDWsPjM
|
||||
bTmzTNCTNmfqTgJQcpLrpZLzVlVL
|
||||
dtTLntTjzTftnmwnqGGQHNmm
|
||||
SWbShCPMBgBRRFSFtRZZmm
|
||||
DlJPCJCgPWhttzpvdjcpVl
|
||||
WdzsNvWMzNsMHWddWCVffqmSmScLPvLPgLgLPplrrPmL
|
||||
BtnzbnBhbwttwtZlmmlgcwSrLgmmpm
|
||||
bFhQtbGBTnjBBbjTtFBbVDzddDDfjdDDqNWVjWHj
|
||||
ppmtpgLLZLCbMQvQQThdtrvPhV
|
||||
BBlHBwHRjHqBzzbHHqjjQdDQTDhPQDvnQlrQDQvr
|
||||
HGjFzwHNczbzRFcGzHGFSJSpspsmpssMLLSZCppmfs
|
||||
MpGrMMMcTsHMVHcvbwwmmcRSmDmDmv
|
||||
zCNptqCBQQLCNLCzbfvSvbSzSDRDSmSv
|
||||
CNNqNgNQJNgQtCqLlllZdZhTrThsnHpVVssPTsGP
|
||||
jhSGcShDrLcLLFcw
|
||||
MVzQvQNZVLHvHPdhLW
|
||||
qzhhQlVbgqjmSjJDsgmR
|
||||
CFzSPCgcsVVzFgzSCsBJwjdwJtNllnwglJlp
|
||||
QrvbqWvvLbmvDMMmbdwFWpNNwwwwptjJWn
|
||||
RZRZZqvvvDbDHCRTGchHFSGG
|
||||
SszgPSPPVltDlqtz
|
||||
WfTdTBdQdFnWBBBhBhNjVJtpNsVlDDDHHJWp
|
||||
hQhrLFsBwdQPggbRgPwRMg
|
||||
frRppMMDMpDnJfprnZhrrhpzWgvvGCvvFzWFvzvVVWFGJB
|
||||
TcmLwTsccqwqbPwsdwqdTPSvBvzzztvggVvQCGWQCLBvCv
|
||||
sswNjscwmqjwSssjdZNMfHHlHhfrnrgnfR
|
||||
JpBJBdmdzZzzpngmbCnlqnNbNM
|
||||
MMTHGccLTLvwRMlRnnQnbblnRnSs
|
||||
vVGtvMcjLVGHfHDrPPWZppBpJpfZZZ
|
||||
FGJtlttPdPtGFldlPRGpJTVzSBSSggHgJjVmBMHjJm
|
||||
rhbvqrQLrWqrWLLfqbjjgNmVNSgzTmNgNS
|
||||
hsffZQqnqCfZzlPPGlRlcwDs
|
||||
HDDdZpcFwHFRFcZqDctpRDHpwTCVwjrBTQTBLBLBJJBjjQTJ
|
||||
ldlMzhlPshPbLrrVrQQCMQjB
|
||||
glzNfWlvbHqSdNNNcF
|
||||
jZCMtnZZHCZwBWMwCwtMmfPFfvHDvzHFLPmFDfvh
|
||||
RcrQdRRdGTzGvDGmfgjh
|
||||
TsQscdQsQNTNqQQpRrRVCCBMMJJWMMVNVjnNJM
|
||||
zVPWhVzLzWBWHZnlqBllqlpRbGNdffscGNdbDRnNSfcG
|
||||
MtvSFQQwMcpsGRNGFR
|
||||
vvTwJJSgmCSMmjVPPJWWhzllWLVV
|
||||
RjdfnJfmbVvVJVFQcs
|
||||
rZDZGBBZVvLZLHFW
|
||||
qPzTDPlVrjNgfCdmPd
|
||||
bcjmQPrnbmVmsLVrLrjmcHGRWlZHHRwHpZRHWWwH
|
||||
nFhqzFqJzDJfvfSFqFfGHWZZHGRJRWHZWdpWwZ
|
||||
hBCtDSSFCTqCCFzSnzMrLNmrMNPTNMQPMmNL
|
||||
qvNBSJVDJGGVSJbVDDVhDbbqPjpWpWzWrnpWvvWPMjnWnpWz
|
||||
mlTltwcwMWTPfNTN
|
||||
CtCwFmCgmcmlRFmFCtRCHgmDJsbBhVqsbBHVDbNHDHJqqb
|
||||
csBFBsLrBGBWcgLcBvRgpRhbwRwlbQwbwQgD
|
||||
DCqmDmtTRtRlhdlh
|
||||
qnCmTNPmmCnSSzmzNzGLzLccGDBzGrBLvvcW
|
||||
FjfBjHnHzPFwhvFFqh
|
||||
bjRpGsNsPqQvPclb
|
||||
NWGGWGrrZVZjsCLmDMMgzgrSnzSm
|
||||
MDgmmsNCmZMWmHCZLrvnLBBjPLVlPVbW
|
||||
zcJGQwJdFRnrBVzqzvPr
|
||||
hTQwhJwcfTFddFdGSfcRQQGFsggsgsHHnSmgsgsmgCnHNZpC
|
||||
BPfwzfsgsvfszvBRbQpttRVpJbJpVg
|
||||
LhTmHLbmbcFTFrWCbFqhFHLHVRpVtQpZVVDVprnDMJtJQnVZ
|
||||
TGWWbTFFGTqlHhqhSdNdNfNSldjjBfjv
|
||||
zCzpWTccHlWcPzMljMttbJfjmlfm
|
||||
DqqQVZZqVsqJnbbnmjbJJQ
|
||||
ZRmDZsSgVmGLsVqsLDFvrcccHrcTWCgWHBCHcCWp
|
||||
cvGlQMtQlPtQWWMlcGsrFwFdbgdbdGGDCDCwdd
|
||||
VChVZNBVjTTfhNTFgzrzrJgSdzgzwf
|
||||
THThZTqZRHZRqNVZNTVLjRCMmQsntQctMnsPmMmMcWtLMQ
|
||||
pNRHrbNlNnRLNpMMMTrcGcGTcccz
|
||||
ZttBmsJmZdjsvTTvvdBMjDhfMGWGDfDfcScjfD
|
||||
CmtTtwvtCsgllNHPPFbLpC
|
||||
NpQcvwwRHvdfRvQsNfBQNvfRhVmVMqsZMmMshjMMtWZtMmrm
|
||||
CGHbSSzFLSSHzTnbLnCWMrtWMtjnZMhZrqZtqW
|
||||
FzCPPzLbPgFJbHSPldNRpgNfvvccgvwf
|
||||
nSjpnnhNchMQZMSScnshshncJCGwHGClwmHPZlJPTVZCwHJf
|
||||
LvtzBTgLWgLPlPwHPLPJ
|
||||
dTBDqRqFzzhQFhshhNhM
|
||||
HjjdPsjnllHsbnnDnbTBzLBFBZLLpRFRcCHRFz
|
||||
wqqWwQhQQMCQffqqhtwMGhpZFRRZvzWzFvBvpvmcRvZm
|
||||
fGfghtNhthqJrQqMqMMSgDdbPjbssDbdSnjCdd
|
||||
cqPwJJnnffBFqSfJFnDDPVplLdglGgLVjzGLdVSzVt
|
||||
WHRTWNHsQTNbzsbCbTsvWrWtjlgVdLgLdvdgvmLjpGlgtm
|
||||
ZMQrTbNHZNsHHrQCZrNDFzhwnMJcfnDhJPPPFh
|
||||
LRCFbjNjbCZDmtmqmRRmLtFJBgWBBpvJMwBJvGjBBvMBgw
|
||||
TTrlfHzccVllZhdQgdGMJWvgWgBndwpG
|
||||
fVSshSVlsfslhsSHHSZtZZNmNFmtmbFCDF
|
||||
SPGCBPDMtbcbCtchSMccDTTrrrTFTrsrMTWHTHFVWF
|
||||
JmnzqVmmwwfpJpmdHRTRsdsTrFdrQp
|
||||
LqwLgzJgnjqLwgGcVbtjDGjcVbhv
|
||||
PQcMvrvMsvmdSPPVccmSJcSpGBWWWbBHfWWnfttJWnWJpJ
|
||||
wDzqhjzmqRzDRwqDzNDbWtjWBBBtGbtHpHnnBf
|
||||
zglRhDqqDZgRNmZQVCdcCPQvvdZv
|
||||
RpVjRgvFjGBNWtBWFDtt
|
||||
dcqQwlqMMsCLLfbgQmtD
|
||||
snlgzsggTzSTSJTr
|
||||
dLHhDdtlMngFcFsFLFzzsj
|
||||
vWRGGRVrrWvvGQQJBRsmQzmsqnffqcNfNcfz
|
||||
vSRVJBVBwTvWTnHphTgDgtMpDl
|
||||
bvvGnnJbfPmfdgJJSVtwwCpTScVfNpSC
|
||||
sjsZWDqBqqMRZsDjbWMVwtwNNcNtScRHpRRttp
|
||||
hzhDqqWDzZzDZzZLQPJPdPnPvlrbGdlnFQ
|
||||
PwWHTwzFvNHsNzmmMwzNWGQrCqCFjpZbpnGqrqnpbr
|
||||
gRVRgJRJlDLSJddDccQVrtZnCqjndnrZdnqnqpdq
|
||||
chhgSSJfQhRRcSSSSBLVfzmzHTNzMNsTNWHMMvMP
|
||||
lftqSpBSvhlDBDlhBSczQGmcFMcMVVFMmGFWsm
|
||||
rHLHTNdggsLLnwLHbTTgdrTMPPmMGWZGQQMzQVQFZQGM
|
||||
gbJnrHHjnbrgLrRrHpBJvSBDDsfJsDtstq
|
||||
dBTtFLTtVmpdLhMprSRSWMRSMR
|
||||
QvJvQbjbCgCQRBhzzRsNWNBC
|
||||
bjgGqQGbQnjGQgnQgbGgjJnDLHLdfPVtdDmLZdBFVVZttdTf
|
||||
47
bin/d3/main.ml
Normal file
47
bin/d3/main.ml
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
let split s =
|
||||
let half = (String.length s) / 2 in
|
||||
(String.sub s 0 half, String.sub s half half)
|
||||
|
||||
let find_duplicates s1 s2 =
|
||||
String.to_seq s1
|
||||
|> Seq.filter (fun c -> String.contains s2 c)
|
||||
|> Seq.fold_left
|
||||
(fun acc c -> if String.contains acc c then acc else acc ^ String.make 1 c)
|
||||
""
|
||||
|
||||
let priority item =
|
||||
let num = int_of_char item in
|
||||
if num > 96 then num - 96
|
||||
else num - 38
|
||||
|
||||
let find_duplicates3 s1 s2 s3 =
|
||||
find_duplicates s1 (find_duplicates s2 s3)
|
||||
|
||||
let get_duplicate dup =
|
||||
try Some(String.get dup 0 |> priority)
|
||||
with Failure _ -> None
|
||||
|
||||
open Utils
|
||||
|
||||
let part1 l = l
|
||||
|> List.filter_map (fun s ->
|
||||
split s
|
||||
|> uncurry find_duplicates
|
||||
|> get_duplicate)
|
||||
|> List.fold_left (+) 0 ;;
|
||||
|
||||
let triplets l =
|
||||
let rec aux res = function
|
||||
| [] | [_] | _ :: _ :: []-> res
|
||||
| elv1 :: elv2 :: elv3 :: tail -> aux ((elv1, elv2, elv3) :: res) tail in
|
||||
aux [] l ;;
|
||||
|
||||
let part2 l = l
|
||||
|> triplets
|
||||
|> List.filter_map (fun triplet ->
|
||||
(uncurry3 find_duplicates3) triplet
|
||||
|> get_duplicate)
|
||||
|> List.fold_left (+) 0 ;;
|
||||
|
||||
"\n1: " ^ string_of_int (read_file "bin/d3/input.txt" |> part1) ^
|
||||
"\n2: " ^ string_of_int (read_file "bin/d3/input.txt" |> part2) |> print_endline
|
||||
15
lib/utils.ml
15
lib/utils.ml
|
|
@ -9,3 +9,18 @@ let read_file name =
|
|||
| None -> close_in ic; acc in
|
||||
aux []
|
||||
|
||||
module CS = Set.Make(Char);;
|
||||
|
||||
let set_of_string str =
|
||||
let rec aux s i st =
|
||||
if i < 0 then st
|
||||
else aux s (i - 1) (CS.add s.[i] st) in
|
||||
aux str ((String.length str) - 1) CS.empty
|
||||
|
||||
let map_pair f (a, b) = (f a, f b)
|
||||
|
||||
let curry f x y = f (x, y)
|
||||
let uncurry f (x, y) = f x y
|
||||
let uncurry3 f (x, y, z) = f x y z
|
||||
|
||||
let swap x y = y x
|
||||
|
|
|
|||
Loading…
Reference in a new issue