243 lines
21 KiB
Perl
Executable File
243 lines
21 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
my $sum = 0;
|
|
|
|
while(my $line = <DATA>) {
|
|
chomp($line);
|
|
my @digits=split(//, $line);
|
|
my @p;
|
|
my $largest = nextpartR([], \@digits);
|
|
print "Bank largest is $largest\n";
|
|
$sum += $largest;
|
|
}
|
|
print "Sum is $sum\n";
|
|
|
|
|
|
|
|
sub nextpartR {
|
|
my($ref, $remain)=@_;
|
|
|
|
if(@$ref == 12) {
|
|
my $num=join('',@$ref);
|
|
return $num-0;
|
|
} elsif(@$ref + @$remain < 12) {
|
|
return undef;
|
|
}
|
|
|
|
for(my $largest = 9; $largest > 0; $largest--) {
|
|
my @cp = @$remain;
|
|
my $result = 0;
|
|
while(@cp) {
|
|
my $num = shift(@cp);
|
|
next unless($num == $largest);
|
|
my $r = nextpartR([@$ref,$largest], [@cp]);
|
|
if($r > $result) {
|
|
$result = $r;
|
|
}
|
|
}
|
|
return $result if($result>0);
|
|
}
|
|
}
|
|
|
|
__DATA__
|
|
6483266694748235893324353634344523834567333718239477213324541343624714732212276727733744455653544463
|
|
2543337317334342631273222374427553353272735227457653731534224733335623431363332212323533535333423775
|
|
1171775673654754637242647675223455221523371731424421454256532546527447416736647162614542361475612389
|
|
7567565743232354274324358254636933332327665424362432136332633378463931143733733333654177443634254225
|
|
3667833563742535642357424443583444433164255464664643343695632444543476364514454626548444625765354499
|
|
2729241222329123457422528225142242286297497441472728464675615243626217526319294335298622221564523151
|
|
2325333232221221424422233712312233332414242223244343332373222423342332223232222224323113324424134121
|
|
3544334476455533445454545534445436354424551344431543444135385564453544474354339443944434454242338755
|
|
6923523553724555826545455454545465563455525532385543558554555555235643434455534555456645559345424222
|
|
3713331131214132232632357628271236732756335334225557312633533322223433322332227173323322633433254922
|
|
5542244352122346423342223444284353436224323233344224255121322454331242716436354234143274135135334244
|
|
7162743447536295246796527676468385557236589519624462613223526836654621342279883474452325226263273139
|
|
4471332775232839457784856429322785267271415576235256224744379223362354163425322422353251335223748294
|
|
4346211424422222426522412332342223124232433521222212522622224522222322922122242321289322241212612248
|
|
3933333344435332633335343333326333324324321343333324332323334233633323232443433333433133293233343433
|
|
6585685274872474256868558658651539948458889788546584884556944395687334789354443387445242654964945955
|
|
3444423533535542244342273333734333465764442334363243233342554334835822354446554325635232363334544548
|
|
2563356752365526724855523276722277363574179457365743447387745757634578562526634617646444554863768526
|
|
2242522423343223422432453234862232223322221132313423324224232226324222322292214127211224412315341423
|
|
2225142225732522238462261322432443222172541743212222131225232222324223225172352623222125222226242212
|
|
2323363432242323342311333232252133323413248233531234343423351422344524534342435211444332343233439442
|
|
3124262532255282347432332294321135222362424972252223112182152324318322321252222112253222225322411222
|
|
2245334552331524253681344534348345442133513353454238459543534745465382334735454123343442423442443934
|
|
3322422222222223122222222222224221222112222232222222223522323121222213122222121223422232122222131232
|
|
7236535664653565535465635366422265436332242234453634547553232665533563443734353355633544265445562333
|
|
3362228222422133327322222772233322323532313242322212322242351322234225224213233542333144332333732232
|
|
5342533334512341534142525424221433122414422241514334245311143541342335344222332112111535425322226789
|
|
2222243214211225332122232722325213322322423225222332422243224322212131234322342411431242521333111132
|
|
2431332622213122222213323233222342233233313224232242324234213522233121413222432153323432413214232234
|
|
2632254426445554463233675543663354252364264273442465369374465344265346322555224345426232653752624455
|
|
2224252122263212222122242313222322625222114243221342222222324122326121222213253142212212212332122364
|
|
5674534466565636646662676545665534646635666365564665664467564666456654668593362444446744666554554766
|
|
2454222496229621242121264211225262657254244599227752543642596753262384425725522523262558272113785222
|
|
4333432323883373233343244735353323242136522336393337312342133733333737585447336353334312334233239323
|
|
3332433332632332242243333552322345444322433333345334432744333233323424132333334222323463833284523413
|
|
3225241811225112222441225224646162357422421132224244342443617633253321224223252264222625752131322232
|
|
4142322221482422527722132262152123222226422234241226221372232422324226232222221444222443222222442221
|
|
2122112112142212212211232121221222211222212222312234222222211232222222223222222322212322121221222122
|
|
2222222124223222212223224331223222222326242213312222222222212213224221233221321222322222212132351222
|
|
2215272212212212522332314222232521222232222521242222212531222352522312512221122423322312132252251622
|
|
5436526445378684424444568445542446553648689488566256934745476233465425455768458459649634966485652754
|
|
1422422222243422422522234212312441122422233132242233322231331227221441425221242224221242222412312228
|
|
8231222334221221741123232222232152322232315112422323221722322421322352323271121232312214124212232323
|
|
3325242234162322342135122233155454333332422322233455243222233323823223332142212313335332223241223333
|
|
4355434445222544414334245223344754544163753444544243558755432234535445443344142335537441342345446474
|
|
1336312223124525222322223222222213232342243323253221361234446112263212426251322332225112221253222233
|
|
5367888866834536575377596677847443874839579585537663878498345777388579874847657388547557778388818978
|
|
2222213321112122221111232422112222122223221312311222222131322332212322122322131232232132131222232123
|
|
3319333223232123222212223528122362522252273222226227732322322223232422222422522322431371432222222232
|
|
4355789657548436447545456596283356475869755625945566544654679445655355546846875533957745363857553589
|
|
5235225434349223431221222424313242712267423544361221222222432412229272243123723224342524222212632342
|
|
2232231222122221223724222422222125252223122321222232251223222222222224322222453212121222223341222221
|
|
5335333343343333323223232734333333233333332333333333311333333333443133231163334332323332333334323463
|
|
4255625361645633666646124144326161525216345554523444653556146322361311515343261335365113243661233789
|
|
7638667436624684272673416624275555636244728456452876428697425422424259567247763874791543766747372775
|
|
3141123121222122233433211221222322221415211223222232222112221323222222214312412312222222224222232225
|
|
3263325433434645353436644264134498453455335834345444242346367354926234874355635644547423347374434443
|
|
1332323273353313234322223334314333332133731353332373323223327333323323333626322347333682322332333333
|
|
6463656765552554543425465563446455656563555455545563554535554853535655545655553548556745535538457455
|
|
3342333133334332433231323232223333333232392232332442322331233333322132423632422282238312383323333223
|
|
2239121232221122222221642224222152222112223221122212232325422521124212442231223242222313522422121283
|
|
2222162222222172222222221221112262132323112222323212421222222132226231222222212223222222244222123222
|
|
3187737233433234335276133212333147245233337362234333126333243134333353227422213242224252522627332123
|
|
4532432376547655675765547764667466877716765473677694554655366743365573554745575736644564576556965855
|
|
5336333374522244425439832113542436353233123232543534342335224132212125323322653232232223233343633562
|
|
3632763655342634236354433162354345234437531354343564134386374437451476636364473437247454232643345433
|
|
2231322422125242242122214222222172122214222122312252221222122224422124322222221124232222222223323411
|
|
4343242244223252454116323222222111124322221422152322522621242252333283221223253422441354223225232353
|
|
4733234344423243544433655552447441554644654354445433232534534522144534453434484123596594534564235243
|
|
2242324335312322343323333334222223513523322413323133534352324433233334433334523233232323522432213223
|
|
5664154336445666586466665822868667436646448646574566655654531564345646667566564366565356566454565463
|
|
2243624221242162522322171325223532451332126472211123222274224334222223233422226221632322231422123222
|
|
2121232232222332233332222222232212222222112242252122322422123222231132122222112341222122231211212221
|
|
2222222223222113222232322222312221142322223333121222322232313322424222322123223422112223222233222313
|
|
3351253554553235543435435432424433436649153196594374552542143345255545443494452444446455436234367546
|
|
3241224772334661376724457242123523612145222752236442126633762256448232425611684252244225134252684324
|
|
2569464654525636566535646646266655647666486763585683566656464486544667656654644644156667676243666586
|
|
2382324222332222244447232233322572322223243222221422219222231322231222825162123922527332212224313325
|
|
4633421245214332232234444426324243423431225513232342433322223132534212323224133342293321242423313354
|
|
3323223252712538235234333613421472592337232341221333327923237322346131321733378124233222143331214389
|
|
3441456554443634514434423348343244343334414934354346374444442443564645424565443953442444433244236443
|
|
2226222221322152342212272622211121325743254222221223332232112221342243132232216242223232624232232422
|
|
3232342241212243222423423313121222234241243233523322353433163322325322332323213232233223322232321413
|
|
3221652432352232564241242242231524222224261231215352244222532554255152242567243221427245211124252222
|
|
2221222142213111212222222424162222132252224222122225222284322224321162524312222211122221122142222221
|
|
5335313543133432353344723323322346313732352334545142262332335133633433644233333634335235333543323354
|
|
5434564663455635666754354454454453465541545545544555553554533454535435555364353343555566354544455145
|
|
5252551148532423644724269592229555342433225273533524123134724325552532324348213234824252373335427325
|
|
5856686513557539652366563544665675566443674579553566479656787777665534667354446457256657667864556465
|
|
1251222232221231222223222222233222213331222222322211322222212221223222322322222212122222233322212422
|
|
8458546645558756745657566656465566564565865555466745554556556676565786666556555665553658656585655556
|
|
3432323239345643435333333333332353333337432343243633334253752353233342224334553333233313333393533553
|
|
3421422362212422252232633328842222332323633222322233112336322321234523223222522222222424222233334231
|
|
2123625336322625334512112243442224543555521424235253452532153223126465623551122254443224432523453525
|
|
4122221543722232275516326144842223112823224222231222221122124222222262152221411322244125746222356778
|
|
2322422222224122243424226322344835262425252111121223451222223234432162221226222212242213222633127233
|
|
8434432236341443628422391263414236223173333438544421383847216542247624123365692613327333754535435243
|
|
2652624354532763656244344355474341443223256424648253744256344172555215334857439454543663333134287743
|
|
7357546615466634433443573336674233554454227313242344244643244344333737543646731174537524373356531242
|
|
3882559275526542566532556564565255286724325665653727346734533476221733134455246561852322323591516576
|
|
3324342323323336353363233333732313323231313334372252133122122234113412132333334313332222532323223225
|
|
5648657452244467531938536766623967836658674751368875384543688794429466647543224146436626426786644693
|
|
2411225564532222522462422431622243322531264124234153152144352424234215122353341233123232124224322412
|
|
4222244444245423522434212441442345545135432342122442441444525244242542243333244443342525244434443233
|
|
5465435555966664455444553336236556663724633434394665343662439454644352635444663948624664445224246545
|
|
1432453433446393425346434245514432413453343353335242445434336552234231531543533443435374425324412252
|
|
4336572233323134323444342354334334547453436543544333344444244423543543446437732361245333334265334454
|
|
2676766556687553276876274579178576652387264737666476787497543476721452354347415279755657774467276664
|
|
3344333322223432324242213231632223223333213221422323132323234522231323442233323232652233323314343254
|
|
5563746886467958543795793558734554479385547744827467647476986636777562776695684678649689788685475659
|
|
4422233522213432344333343133223123212233443434622344344322413411423122322312245323212232213242242334
|
|
3344622322422423222243244224214432442336424334262521443223343322633135324463233412322314233512534242
|
|
3232321712232121212212223232262552223244112235142362365223332222223233326336552241222145222222346264
|
|
3644565538765869435533562635188694756636566645546767565399364946666665237666774651366664976963675667
|
|
3945556445535346464334234433543343373464435445544534644436433274645292244533433356524354433344444545
|
|
7645578859533418887755944347764436445126484186538387754736853734354838367544543436534748684774783975
|
|
3786228343532223264261123222243523734242633532221216324264146232126342128444245322552455433862432252
|
|
3251222222232911232222524222252222712222233112242222616232212123322221232313232223322352121221323322
|
|
2322412234122243452551332442313522545253525222141114353732322522222362422214234542222221526225248214
|
|
7565676654727668574665556666175766566653667465455626664555633676543465675755666645565566654645555666
|
|
4745721722122215757215622524727444256942348717545353274725745555453234444732572254326652534437222662
|
|
2434234123332521432433543122343412453334142442174323244323362343446443234344334334354343424444332232
|
|
3232225263124251225251532224272298324231133226834123663224252253227733325232824571222312832152243222
|
|
4443433336334445343343443432444434233334443432343675433321474334363243423234444421427442373432424444
|
|
2528622135624531665357334382325366524622274846326245252623632442931344344686553345516652263563563344
|
|
2233212123232112331212212222223222322132233322232222333122212232232213252322223342152221232232153323
|
|
3133337557443333234243434633433322467325333343756334453343333343334453353334535324423334573349344364
|
|
8497925152935233732523223852696633133816242673326874262931173827238284722131232527573292228932314729
|
|
3242443243122343443133222435222312213214254283123234336231616434325123223631342644222542343253421533
|
|
6443257368735277857353954743366633958737346734243626663752259329635337635643425367875165555749634736
|
|
3433332441231132312432441432211144132311432432231312123131111112123341214231141341112433433331156789
|
|
2622332343221232241335222222343332212234322252243322233242346312122233223332323222522223321422422322
|
|
3972265296526213223133522588332357758222292253177621632572233246643332363736661578228493422762563226
|
|
3494543445353433344448833521556833234423324452636533255257543455344342646458333443532535343444535334
|
|
4676538343538565343353455455553967756631663666538333674336345766835335653396563345373429866382636544
|
|
1222122232121223223233122132331222283232113222252242322332231112122222233223213322222122233232223222
|
|
3134225414344236633244332422122644572337356413663633373234446446364474243446624549545245762435276634
|
|
4222142222214222251664242724292122312222212123222222225421642233224112222741229323222124224111122122
|
|
2373328274625382475124241922213111252123435232222322722252219331232224234142526234272123515129242232
|
|
5544543358645255454724445444345446544442344445352244347365654443463433245543454444353535644445224224
|
|
4446655724343346755425544416598555246352254245425544865646452382644844876664355544234743251446442933
|
|
2112222232125222222222321222222125222221332222221122211221222122222223422211322222222222122542221222
|
|
3222323622235231222312323333133223323222322422321333122322213732212322322123221122222212222223232213
|
|
1122224322322232223221622226223121122452222542523122322252222432123323412223212242132353212222222222
|
|
4333425336554443454458124553525366364236624352255426246366354563663525636534335863554452324546366625
|
|
2146233244324244314449343222474432322242443224532323142483226244332354232334122548734374243933442774
|
|
1332324245522322224234221212322221322283263213352122222222223521262222512212512222243231281223322222
|
|
1223143223364224122222353333332422222225222432243232332343223239233333211222333322223223324321124224
|
|
3464487424246534432675344132562554213223266443252443444444574323726424344834421627245244334534456235
|
|
2223221222123311232222721212232421222222242241226222232312215222231223124321332442545132213222223222
|
|
2232342333222225413224224234232122232222332332233823312322233222233423321322333232321622333132226212
|
|
4233234343136422333221334434324433422433423224244234622242332313427433524233223522242345255442443343
|
|
5887315931336232922652422972482265594294593395515537627975525242715825417429226928725375224464921127
|
|
6656885665436489796564766657452646775784788585557613664375576543655367345676363664456676364565656665
|
|
2322423242232241161422432223231221222221621422252222222322338333221232122213331212249343212133328423
|
|
7543345463444634356562266635446632182453232355315333571457578355735657643433234412544433664576626623
|
|
3234222143232332434132232223223222432233233224332212442243323242222433423323322332227222624354421352
|
|
2132422513522232316232332233232532324232635222425433224522251242225332211222621455223212442432451421
|
|
5326232325252326521226524346423521176572132222254322754222123162226227224426253652326256245561222565
|
|
3442424243423144141423336561332225163336641334145422622623522532559424623252225433152324126546235233
|
|
3422321224221314732123313232523126612213222122324334223423342252222433232133212323322223142322221242
|
|
8264442752223446994865726277726727756343878473857483728256427474473632713865355533668957575367786675
|
|
2354836226222532428425542623362343536646226212222532351332434562123232223452424227655641632221762233
|
|
5664534552344446442444537443454546344244645454436456146563415422332464433456443445643424314646346634
|
|
6463565542544255264485555545353644246556635644484654644555446454435673446655443555732565945656567236
|
|
6355655665527692545684584653566652554819768774545765878425567322656664568624656574587564574572366385
|
|
3234635425722737232252335242266522272537232322282236835677286645635172541234473773221373163223424634
|
|
2242354522559228525413357172723135198226136232442322256572434325143963523321922328233243342344645272
|
|
1222322222223222132223222153211223323222212133524121121132122221225322222223345222222325225212222522
|
|
1233232223244415224123423222313272242282263533254422322211232222221522232222232231321222432222132322
|
|
4554634644453466369563686376545543644474635669644434556646363654657434543464664436534656334934456564
|
|
2759365842345327331433223323933692623533364924333372274833594632288683535939326332224122731332325133
|
|
2236245252222212216122226252225422322222929211213522328122221622222332223222211312251262422221363711
|
|
2322219151212838742722222831242221612121221442128322212621262222224222272222212241214121228225222235
|
|
8654666752657568667665843686673568558727666766668546662365484318268665555864884585768766545657476766
|
|
4323662222424553233338223355533524329375214455362223863532553356156646364581336234636322666463164321
|
|
2251222221132121212222222222323221122212227212222112232522512212211125221121232222222222121512222222
|
|
8335363283543566442636253665533444335323131413453535433332353253126334234443246535465333443767534445
|
|
4351244143435244333421443343412434324224347231545244278455457334255232446544244442334345864522323554
|
|
6423477564644426547555464455945555345254457454754445593334544343756445554584764334355754436735534375
|
|
3326244234233341332632432332423551339222222343325373415334342321533123222323332331523632331924343233
|
|
2322222212222425432122222232222221624312222223233121124222221222122333222222334233224222124122222242
|
|
8251448334422852181781163234764634754342482156661134615731214484221431832655823545764714858131321319
|
|
6665545676626665656565454566656674652665656532943465954566556559666556665444696669565976665645666566
|
|
1421443224322321222223232132222322523422273223221226324223622234313152242214232212214122122122223122
|
|
5723366361747394534563454393673232443632544354432566235442477666343636365464734433344454232365277632
|
|
4326724434644345272343434636222544564528544653524234333435432725367686233125243347543233538354734535
|
|
6413258266442636453636253232443235232151532243562512524323414232335225232525322536245321442222433234
|
|
3344315434434335222444645333534323252552525223654424445134123324235475533333754254334434412464433436
|
|
2322363422225726126633232313332242431333635246316294232723332253223524432225353672642232346223452424
|
|
3324142234845637532347244733333464724844532372247332342332534454443223343733332451453641733332337247
|
|
7337536327433333523313232233333335663462235342527341215333333312353133231533355312234437581223433313
|
|
6864534546668468595746496547766759676656466556436588644845499637688686773646793563465569745692643655
|
|
3355252311225229253132526372333323468222222462232352123343323153225532334523432412324422225412324253
|
|
4741456744554566558585637656545845844939484345384344956545565448427473734546453346746455365647546644
|
|
4322411232232333223322333242422422422349221123222244332252135132232321363391342331221133233242112322
|
|
9474349344693856956976575499438338936763458744948576959895532598674748534597986884674856393374467595
|
|
1523633734318365434557152166343555421587416555334154526346464574453744545413624314233574254324333338
|
|
7434822223365329743422655982332652199724488556213687413364776632715225357925244447743972634262467445
|
|
3311715122232222222352222253152252223212121622212222224127222252241242312142212272222325636223122112 |