2024-19 in haskell
This commit is contained in:
parent
dba0d99aa7
commit
cc7e97348b
GPG key ID:
F92E51B86E07177E
4 changed files with 502 additions and 0 deletions
10
2024/19-Linen_Layout/example
Normal file
10
2024/19-Linen_Layout/example
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
r, wr, b, g, bwu, rb, gb, br
|
||||
|
||||
brwrr
|
||||
bggr
|
||||
gbbr
|
||||
rrbgbr
|
||||
ubwu
|
||||
bwurrg
|
||||
brgr
|
||||
bbrgwb
|
||||
42
2024/19-Linen_Layout/first.hs
Normal file
42
2024/19-Linen_Layout/first.hs
Normal file
|
|
@ -0,0 +1,42 @@
|
|||
-- requires cabal install --lib megaparsec parser-combinators heap vector
|
||||
module Main (main) where
|
||||
|
||||
import Control.Monad (void, when)
|
||||
import Data.Functor
|
||||
import qualified Data.List as L
|
||||
import Data.Maybe
|
||||
import Data.Void (Void)
|
||||
import Text.Megaparsec
|
||||
import Text.Megaparsec.Char
|
||||
|
||||
exampleExpectedOutput = 6
|
||||
|
||||
type Input = ([String], [String]) -- patterns, designs
|
||||
|
||||
type Parser = Parsec Void String
|
||||
|
||||
parseInput' :: Parser Input
|
||||
parseInput' = (,) <$> some (some letterChar <* optional (string ", ")) <* eol <* eol
|
||||
<*> some (some letterChar <* eol) <* eof
|
||||
|
||||
parseInput :: String -> IO Input
|
||||
parseInput filename = do
|
||||
input <- readFile filename
|
||||
case runParser parseInput' filename input of
|
||||
Left bundle -> error $ errorBundlePretty bundle
|
||||
Right input' -> return input'
|
||||
|
||||
compute :: Input -> Int
|
||||
compute (stripes, designs) = length . filter id $ map compute' designs
|
||||
where
|
||||
compute' :: String -> Bool
|
||||
compute' [] = True
|
||||
compute' design = or $ map compute' $ catMaybes $ map (\s -> L.stripPrefix s design) stripes
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
example <- parseInput "example"
|
||||
let exampleOutput = compute example
|
||||
when (exampleOutput /= exampleExpectedOutput) (error $ "example failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
|
||||
input <- parseInput "input"
|
||||
print $ compute input
|
||||
402
2024/19-Linen_Layout/input
Normal file
402
2024/19-Linen_Layout/input
Normal file
|
|
@ -0,0 +1,402 @@
|
|||
wubr, uwbu, ugwru, wwgrgwbu, brwwuuwb, wgu, rw, rgb, ugr, gwuurww, rrb, ugwg, wwgb, rwr, wuw, wwbb, wwgrwuw, gruggu, ggb, wrrgww, gwuu, bwb, wbbubwb, urwgggg, bubwu, wbb, rurrgwgg, rub, urr, uwrgrgwu, gwgb, wbwb, gur, brw, bg, gugrwb, ub, ugwgu, wubbg, bubgrw, wgb, wgruu, bgg, bbuubbr, rbbw, ww, grgrb, urw, rug, wbwrgw, brr, bbgrguw, rwb, bbguu, gwbbg, bubg, wwuwwb, urggwu, bbwg, bbbwbbr, wwb, brgwbuw, wwrr, bwu, urbu, wguuw, grb, urbrbbu, rwg, urguw, wbg, uuru, uburw, bbbwrb, urwbur, guu, rbg, gwgwwrr, rbwu, r, wbw, gb, wgwg, ubw, bb, rbgru, rrbuwg, uwb, wuub, uurrub, wuu, bub, uwww, wug, grwguwu, bwgggbrw, uwu, wb, rrbgwubw, wubu, urbrg, wrbw, gruw, rrgwg, bbrub, ugu, gbu, gburu, wgbru, ubwu, brggw, wurr, bgwwgu, wggw, ugbgur, gwruww, wuwww, rbbbrug, wgw, gggu, rgrww, wgwwrg, wuugbw, rggb, brurrg, rbuu, ruu, wrrb, wwwb, gbguuuu, ruubur, gbwrw, gbgu, rbw, ubbb, wr, buwug, grw, wrbu, guwwwur, guw, urggurbu, uwg, grrwwwr, gbb, ruuw, ugww, guurw, grguu, gwrwrr, uwrwr, ubrb, wrrw, burbru, gugg, ubg, rwbu, rruwbru, ugbwu, gbr, ggwwg, rubbugg, wuwb, rrgw, rrbuu, rggbu, gbguu, ggr, wwwbgu, gbrw, bbbug, wrwwbb, wrg, buu, gwub, brrgugw, brg, rwggg, wuuuuugb, guwu, wgbbb, urur, wrr, wugwggu, uubgg, gbg, wgub, grru, uu, gbgbw, wubrg, wwrb, urrgb, wbuurrb, bw, bbw, rugbuw, bwbu, wbu, rrgwgbru, ggurrrb, grr, rrgug, rgw, rr, gbwbbww, ubbru, uuw, ruwbwwr, gwu, ugw, gbw, ruw, grww, ubbwrgrg, wgg, rwwr, ggwur, buuru, bbg, ruwgg, ururu, wrb, b, wbbubwgr, uub, brgr, wbbrrb, bru, wbbub, ggbbrg, wgrwbwr, gwrg, ubwruw, rurrb, brug, wu, bug, wwrruuu, uuu, wurgbu, u, bbr, wwrwu, wru, wbgr, ru, rwgguw, wwu, ggbg, ggrgu, wgwurw, ruwrwu, ggg, wggggbu, rbugggg, wwbbu, w, rwru, bgr, gr, bwwb, uggwbwuw, grg, uur, wbwrrugb, wbwg, ggww, wwg, rbwg, gub, bbb, gugbu, ugg, rurrg, brb, guggww, bugb, ubrwww, bbwr, ur, wwr, uru, uuurrw, wgwwbb, bgbbr, gugu, bwrrgrrw, bgw, gbgw, ubgrgr, wrw, grug, ugggww, wbbwg, rbwb, ubr, wgwb, brbwbgwu, gubwgr, bruugggg, wgggu, rgr, ugwwgbgr, bgrurr, wgr, gwb, gwgrr, ggw, gurrb, wuwubw, brbbgw, ububrbw, ubbrw, ububu, ubrbub, bggu, rwrgb, burwg, wrru, rg, rrbww, rrww, wrwb, uuwwu, bwuwr, gwbr, urruwrg, rubgbr, gwgbw, rbru, wrrubw, bgwugbr, uguurg, wwrg, bwr, rwrr, uwugr, uug, wwgu, wwrububg, www, bgb, urg, wg, gu, rwu, rbb, gwgw, grggguuw, rbuwrru, gwug, bgu, burgb, bwrubu, uww, wur, rurr, rrr, wwbrr, wwbbrw, urww, buwugwr, rbuurb, wub, bbbw, gwr, wwbgru, ubu, uugrg, rbu, rrg, gggg, gww, ubgbb, wbr, ururbwu, wugr, uugub, br, bgbb, grbgrw, gru, bgur, bbu, rru, ug, wwgugub, uuwgg, wguubw, urwbruw, gbbb, wrwuw, wguw, gbwgrbw, rwwwu, brgru, bu, rur, rbr, wrguugu, bbrr, wbgb, ugwbwu, wrbuwr, ubgr, uwbw, uwwuwrrb, gwugr, ggrr, uurgru, brbrb, brwbrr, bbru, ruwub, rrwgu, buw, ggu, rggbbr, brgw, bguwr, wwbgu, rgu, bur, urrgbu, uw, uwrbuw, wrubbw, wubw, bww, gubgb, rww, bbuwggg, bwgr, brwb, rgg, rb, urb, bgrw, wgurgrr, bgwuur, bbbu, wbwrgg, uwr, ugb, rwbg, gbubbuw
|
||||
|
||||
guuggwbugbrrwgwgrwuburuggwwguwbgrrbbguugrbgwugu
|
||||
gwguggrrbbwwgwugugwbrbwbgwuuuuwwrbwrbbbgrwwrwwbbwbgww
|
||||
gwgggggwwwbuwwburbbrrguugrgruurggwburgruruguurwwuruguggr
|
||||
gwggwuwwwwbuwrubbwrbwgrggruwgbuuwwbbgwrubwbrgu
|
||||
gggbgrbuguwwgrggbrrwrrgburgbrubgbubrrbrbgguurgwburggrwwbub
|
||||
gwggbbrrbbwrrwbbubwgrrbwbwbbburrrgurrggwrrr
|
||||
gbuwrwrrgruurwuwwwrgurbbubgururbbuuwbbgggrwrgb
|
||||
gwgggwrggrrwbwrwwgbbrgbbwggwwgurrubrrrwggbuwrrrrwrugrbw
|
||||
brurbrgbubuugbwrrubwwwbgbwbuurwurgrggrrbrbuuwbbw
|
||||
gwgrwbbwrwbuurrgubrgbrrgbwwugrwgrwgwuwrbruwwbwgugrbbbbbrgwb
|
||||
wruubwrwwbbrugbwwbbrbbrrbubwrbggwrbugburbggubuu
|
||||
bwgrbbuwwugggwgrrwwwrgwuwwgbbwbggububbrugwbbruubggrb
|
||||
gwggbrgrburwbbwurrbuugwbgbgrbrwurrbuurgwbgugbrbbgr
|
||||
gbwguuuuwrbwwgwgwuurwbrugrbrgugrrgrgwrwgwrwurgg
|
||||
gwgruugubrbwbruwbbruwbgrbugubbbwrwurgbgbburwguw
|
||||
gwgrggwgbwbuuwubgrggbguurrruwuururuubbbguwuwrbbruguu
|
||||
rwrwbrubbbbrrrwrwgrgwuwbgrrbbwbrubggwubrwwguwb
|
||||
gwguuubuwwbbubggugrugwubbbrbwgbugbwgwbbruuwwuwgugbbwwwwrugr
|
||||
ggrgwggrwuggwwrbrggbbrurwguwuubrubrwwguburbbrubgwubgg
|
||||
gugbrggrrrguuwubgbwrwbrgbrrugwwrruruuggurrgbrwrwru
|
||||
bwuwgugbgrwgurbbgrgbrrgubbguwbburrwwwbgguwwgrggwwrbgwuwbww
|
||||
gwggbwwubbbbbrgrgwgrbburgrwgbbruubgrgwgwwugwbbrubggwgbb
|
||||
bbburbgugrguurubwwwwurbuubrgwwuururuuwbbuurwubrggrwbuubw
|
||||
gggbrrwwurwubrrgrburgruwwuwrrguurbruwrugrwbuwrwrggguwrggw
|
||||
rgbrguurrrbrgguurwrbbwuubwgrbguwgbugbwuwbbgg
|
||||
gwgubbruwwgwugrwuugwuruuwrwbbubugugguwwguurrruruwbg
|
||||
bbgwugurbuwgburbrrrrgrwwrrggggwuwbgbwrguwwgurgwuggrburrwgg
|
||||
gwrrgbwgugugrgrrggggrwugwbwgrrgwugurbwrbbwwrwggubrwbur
|
||||
rrwgrgwwwbbugrgwrbubuguwgggrgwguugurgurwrggburguwugr
|
||||
gwgugbrguwrbbuggrgbrwubgwubwwwrwrrrbbgbbw
|
||||
ruwgwuwugrrbrgwbgbbgbwugwuggruwuwurgbuubbruwubburbguw
|
||||
rwrugrgwbwuwgbwrbbwrrruubgubbwrugggugbwggbgrbuuwruwrrrgbuu
|
||||
wuwbgwgwggwwrbgrbuwbwrbugwgbrugrggggrggwuwuggwgubgu
|
||||
rbrgrwwrubuubuwuwwrgubggubrbrgggwrwrwrgwuu
|
||||
gwgururwgbwruwwggbwuwwwggugwwwwrgwbuwrrbbbgrgbgbrwurwbrwgw
|
||||
bgbrbgbwguwgrubggugrwrbwrgrwgubgruggrbburrbgwubwuguuw
|
||||
rguggurbgwrgurwurggwwgrwugbwgwbbbrbrurwggg
|
||||
gwgrgrgbbwrbgrwubwbbuwruuwurwgwwrwuruubrwgburbgwgbu
|
||||
uuubwbgruwbrwrubwguwbugbgggwguggrwubgbbbuurrguu
|
||||
gwgggwrbbgbrgbrwrbrwggrbrrwbuububwgrrrrggru
|
||||
gwgguwgurrrrbwwwrwrgwbbgurrwurrbubwbgbruw
|
||||
uwrwubgwuwbwggbgrgugbbwrwwbbbubwgrwbrubuuggggrwrrwwgrb
|
||||
grrwruuguuurgurwgwwgbrwwburwbuubrbggggrbrgu
|
||||
urgrruurbgurubrrbbrrrrgwrbbwguwrrbrgburwwrbwbrgugbugbgg
|
||||
rggbbrbbbgbburwrwrguwrwbwruwubrbgugrgugwbwbrwuggbgwbr
|
||||
wurbgbwbbwgubbburbrgbuugugguwbgrwggrruburugrb
|
||||
gwggubbgbgggwbbwurburwwguwbwbrggbubuuggwwr
|
||||
wrbrrbwrburbrgrubbwubbrgbbbuwrurrrrurubrbuuwwwubrbrrbr
|
||||
buggburbubbwrbbrbbwwwgwgrbugguuuugbgguuwrrgwrrbbrrgrwwgbru
|
||||
gwgugubwgbgrururgbbuguwwwbwrrugbbgrubrwrwuuwb
|
||||
buwrugurwgrbguwwrwgruwrgbbbwwruubugrubrbbwuub
|
||||
rwgwwbugbbrgwwrwrrrrrwgrugrbruurrgrggrrgbbruub
|
||||
ubguwwrgurguwwgbbbbbwwbburrurbuwwrgbwbbgrgbwwrbubbggbr
|
||||
urgwwrbbwggrwguugguurgugbuurrubrgbbuwbrwgwrwbuwuuw
|
||||
gwguwbgrggwugrrgrwbwrbugwgwgbubguurggrbrurugub
|
||||
ubgrbuwgguwgrbgrbguruwrgrgwuwgggrgurbwggbgbg
|
||||
wrgugrgggubbuwgggwbgubwwrwbgbuwgwgbbwguubgbwbr
|
||||
bwgguuuggrguwrubbruwbrbrgburrguwrrbrggwwbb
|
||||
gwggwggbrrgwgbruubwruwguwbugwrwrwrrwbwwu
|
||||
ugbuwrrwgwbruwurubbgruuuwrrwgbgwugbuubgwwugbu
|
||||
gwgugrgrrurrwgburbwbbwuugwruwrubrrbgbrrrrrrbguugbwb
|
||||
wubrrbuubugwrbburrrbbwwbgrwgbuuururgrruwbgrguwbwubgbu
|
||||
wurbruwuwrwggwuwrubrggwbbuwbgbggbbrwwwbuugbwrguwugwuugggub
|
||||
grrubugurbbbuuwrrrugggrbggurbbuuwrwbggubuugugwgrbguggggbw
|
||||
buwgrgwuugguurbubrwurgugbbwrgwgguubwgwgwwbu
|
||||
uggrwgggwgwwugbbrrgrurgbggwbgrbwwgugrwwgwr
|
||||
bbggrugwrbwggggbgbbwwrwbbgwgwwugugwbuwrugbg
|
||||
bubugwbwguwububwwwuwguwurbwwbbgurugwwuwurwbbbugbwrrgggb
|
||||
bggurgwbgggwbguubgwurubgrwbrwuwwgwubwbrguwwwuuuug
|
||||
rubguugrwrubwguuwrgwurbguuugurgbburrruwwrgwrggbggwruubwr
|
||||
wbbbruuwuwubbwrburugguurbggwwgbbrwwwbrggggwwu
|
||||
gwggrwbrbgrrbuwwgwuubrwgrwguruwrrgrbrbruwrgrgwu
|
||||
gggrbwrruuuuwruubgrgubrgrgwuwgbrwbrwgurgugbgugbruubrrgwwb
|
||||
bbwbbubgguwrbwbwubwgrbwurrbuwgurrwuuubggrbwwrwgbrwbuwrbuub
|
||||
gbggguuruugwrbuuuwgbwbububwbwrrwwubrrrwwbubrbwugbrug
|
||||
buuwgggurgbgbguwrruubruubbuwugbrggbrbruubwgb
|
||||
brwbrrrwrgurwgbugurubbguubbuwubrgbuwrgwbbgbwrbbwwg
|
||||
rbgwbuwuugbruurrbwbggrurguuwwgwbbubwgrgugbbwburbuggbwuwrru
|
||||
uggbruuuwwrurrwurwbwgbgwugwbgbwuwrwrwuuwubbrwruguug
|
||||
rrrwguwuwbbgrgrrgggwubbwrgrggrrwrrbgwbbrwgruugbgwrwwuugwr
|
||||
gwwbbwbgbrurgwbwwggurwrwgwbbrwugugubwwuwwbwbw
|
||||
wbgrwbbgwuuruwbbrurubgruwgwggbruggggbrrubggrwgbrgwuuwuwrbb
|
||||
gwggbbwgggwgrwubrguugugrururrwurrwuwbwuubuwrwuwuurgrbuub
|
||||
ubuggrwbubrrbggbgrbubbburgrugwurbbuwgwbwrwwgbwugubgwuu
|
||||
urgubgwwwwrubwwuuuwbbwwgwwrgwwwwwuuwbrgruugwrrrwuggw
|
||||
bwuwruurgrrgbbgrugrwrugbrbburbrwbugrbgrbrgug
|
||||
gwgugrrgbuwuwgrbrurbbuwgrububbrurrrwrugbbbrrruubuw
|
||||
gwrrbwwwburubbrgbwbugbuubuwwbwgwgubrburruruwgbbgurbgb
|
||||
gwguruwwuwrrbwggrbubbubwrurbwggwgurrbbubgbbggbr
|
||||
uwgubbwuggwubwbbwbwwrburbuuururuuwrrugwgurwrrrrbrbwwuubuw
|
||||
wbrbbbgwrgrurbrugrgwgggrgbggrruggbggwbwbwruggrurwu
|
||||
urgrbbwggrguurgrwwugbrrbwruwgwbbuwbuuwggwbgrguurgbwrgwb
|
||||
gwguwwrrrwgrgubbgrgbbbruuwgbugggbggurgrbwwwrrb
|
||||
gwgrgrwurrwggwwgbwubwburwbgubbwrgwurrwgwbruubburwbrwrwwww
|
||||
gwgubwugwugguwbrgwwbggguruburggrugwwgruurbrgrwwrwbrbgbwgw
|
||||
rbuurbuwurwrrggrbbburwwuugwbwrbbwgwbuwrrbu
|
||||
uuubrbwrguwuwubwgrrgrrubuwbrwwbbrrburwrbwgbwuwbru
|
||||
wbubuwbrgwubggbrrgwugwwuwbgwrrrgwgbruuwgggwgggurgrgr
|
||||
gwbgwggrgbbgwwwwgbrbwguurwbwgwgugrwrrrgrbwrgggbgr
|
||||
urrwurrwrurrgbwrbwguwbgbrrrububgbguuubbbwb
|
||||
uuwwrbbubruwuwrwwwrubrrbbrbbwwbuwbburbgbgrgrrbuwburuwbugr
|
||||
rrwggurbubbwbugwuuwuwggugwwwwugrrbgwbrwrbgburgbbrwu
|
||||
bwwgrugurwwbuwrrggubgrurgrwbwrrbggurgugwgrrguubwugw
|
||||
bwbbubbgbbruwrwuwrwugwbrrwgbgrbrruruubwuwwggg
|
||||
gwgrbwgwbuggbwbbggububbuwbuuuwrrurwwbbgrb
|
||||
gwgugwgrbbgwbbrwwbbwurguwwrgubuwbbbgrrurugbbw
|
||||
gwgrwbbbgbbbwgrrubrurbuurgbgggububurbwbrrgggwwr
|
||||
gwggbgrurgugwwburgwwrububguurwurrwuwwwbgwguruggbgwwrw
|
||||
rggwbwgbugrbwbwbwwburruwrurubuggwubrurbbguguwrwuwrg
|
||||
uurrggwugrrbuubwgwwgbrbuuuwugggguubuwbbwgggrrburggruwg
|
||||
gwggggrgbwwwrrrgwbgrbggwbwrgbrurgwgbwgbwwuwgrbgrwugbg
|
||||
wuurgrrgguuwbgugubrwwubuurbbuburrwgwugugwggbwrggurrurrb
|
||||
rwgwwgbgbwbbrggrwwrwgbuuuugbwbururgugwurwrubuuuuw
|
||||
gwgguurruuugbbrguuggbrgwgrbgbgbwrrurruwwwurggrg
|
||||
brurruwgwgrugbgruwgrrwwbrbuugugrrbgrwrburggurrwuuruubrwbu
|
||||
buurbrbgrrbrgwrgwrrwguugubrwwuuwbgwgruwuwgurrwurbrrwb
|
||||
gwguwbgwbuwrbggbururbrbuwugwwguwrurgwgbgbgrbruur
|
||||
ggguwuruwuwgggwwbrbbwuugrwgggbrgwbwwburrbbbuwuwbgwgw
|
||||
gwgubbrrgrrwgurggbwbgbbbrwggwgwruuwbwgggbrwgwwrrurbwgbgg
|
||||
rrgwubrurrrrwuurrrwuubrwrwgbgrwbgwubwwwbbbwgrwwrwb
|
||||
gwguwuuugbgbgugbbwgruruwbugrgwbrwbuwbuuggggwrwrurbbrgrbu
|
||||
gwgurggbwrrgbwwguggwugrurgugrurgwggbuubbwr
|
||||
uwurgugguwbbrugwrguugrwuwwgrgwguuggrbuwrbwgww
|
||||
gbruwggubuwrwrgubugrgbuwgubrgrugwbbwbwbbuwgrgrgwwbrub
|
||||
wbbgubguubwbbguwrwrbruuwbguwbubbruuggrubbwurbrbbguggb
|
||||
guguwbgbbrugbugwbbbuwrrugubwrwwrgguruwrgggrgurrbu
|
||||
uguggugbugwurrrbgurbbugrgwrwbwrrwwbuuggbrubrgbrrr
|
||||
wgurguwrgrrrwgbbgrbgbrbubrwbgbbbgguwrrwgbbrgbw
|
||||
bugbwburwrbuuurgwrubgbwurwrruurbgwgbwgwgwbruuruu
|
||||
gwguruwwwgbwrgrbrgubbrguugrgrgugggrurbbwubrwwuwwguggr
|
||||
ugbwbgbwubrwwgbwrbwrgwrgbwbrrrburgwggggruwb
|
||||
gwgugwgbwrugrugugwwuwwugwrrwbuugbwbbgbbggwuubrgwgw
|
||||
wwwrrbwuuuwurrrrgbgruwgbburgrrrrrbrbrrwrrwbgrgburw
|
||||
bbrgwgruguwgwwbrgruubbrrwbgburrrubgguubrubbwgb
|
||||
wbuuuubwggbbggwuggbwwrbubgrrurrwbugrwgbbubgrbrwbrgwbgwru
|
||||
grbgggbgbubgubggrrubugggrrugrbbubruwgrrbub
|
||||
gwggbubggrwrbgrwbrguugrggguuwggwgrwuubwggrw
|
||||
gwgguruggggwbbbrubgbwwbbgurggrurugrruguuuwuu
|
||||
rbbgwwuurgurwbbbrbbwrwbwwbwbbbrruuwruwwbbwgubgbrrwuugrw
|
||||
gurbwuggwgurbuwwggugwbgbwrrubgbbbrgbwwrbwurwburburruwgb
|
||||
gwgruuwugugwugwbbbgrwwwbrgugbgrwuwggguggugwwgbgrr
|
||||
grbrbbwbwugruugbrubggubguruubuurgwwbwbwrrugbbbguw
|
||||
bggbbuugruggrgwgurugrurugbgubbgrbbugbrwuururwruugwbrrbr
|
||||
gwbgwguugwggbrrbgugbuwwbwbuwururwgurrrgurrug
|
||||
bggrggbguguugbrwuuwuuwburubgwrbbrbbgbbruwww
|
||||
bgwwgbggurbbrbwrbbwuurrurbggubrrwubwbbwgwwrrur
|
||||
burwugwwbwruwrubgbwbuubbbbrbrgwgugruwrubwrur
|
||||
gwgggrrwbrbrbgguugbuwgruwgugwgbruuggggwuuuwwrwgrbggubu
|
||||
brwuguubburburubrubrugbbbgurwubugrugwwgwbrgrg
|
||||
ruugurrbbbbwrbrwurbbbuwwbgrggwuwwwubrgwuggggwbwuwgwrrrbgb
|
||||
wgurggurbububbgrgguwguurruwbbbbgbggwburgbgrgwrwgbrurr
|
||||
bwubrrbuwbrbbwbwgwwgwrrubwwbbwbbwwbwugrgwuwu
|
||||
wbwrbgbwwrwburwgububrwgbbbwwgbwuwbwgbwgbwb
|
||||
wurgrurrwrbgrwbbrrrgbwuwugububugrbugwggbbrguu
|
||||
uurgwrrgrgbrwwbugurubwwwrgbrwrrwuuugrbrbgruguugbgbbbub
|
||||
brrrrrguurrwgbbuwrgbwubwgrgbgrbbwgwbwbruguwu
|
||||
rggubgrgwwgggggwurrbgbrwgbubrwbbrbwubgbuggggrbw
|
||||
ugbbwbrruburbwgubbwbwwwrugbgwugwubrbururgubugrbbrrbggwrb
|
||||
wrgbgugrgburuugugbrbrruurwbbbbwuuguwugrwrubgwbwubwwguguubr
|
||||
wgbuurbwgrgwwuubwbbgggbburbwbrbgrrrwgbwbbwrgu
|
||||
gwguwrwwbbugbbgbbwubuugruurbuuruuwgugwrrguu
|
||||
wwubburgwurbrrbrbwuguugwrrwurrgrrwwuubrwubuuwgbbb
|
||||
guuwrgrwbugbwubrbubrgrrbwuwburbrugrbuggugwwrbgrwwr
|
||||
brrgurrugwbrbruuurwubwbgrbbrbrbwbuwuugwuuwgwurururgu
|
||||
buwgurgbrrrwbgwbbbrrbrurwuwrbbbgrrbbgwwgrrbw
|
||||
bbuwbwgbuurugbbwgurwwbbwguggbrguwrwggbubuwuggwrwugbwburwwu
|
||||
wrrrruwuwrbuugbwgguugbrurgrgwbuwbbbbgggrgwuwgruggwgubgwr
|
||||
brgbguuugwwrwugbwbrbwrurwbuubbrbbgruubgrrgg
|
||||
ubgwgggwbuugrbwgwrgbwwrgbrbrrgbrrgburbbrurrubrugbgwu
|
||||
gbubwgbgbruwrgububrbwbwgggbrwrrbbrgbrggwwuwbbbgww
|
||||
rwwrrubwrrrbgbrbbbgrgbbbuggubbwburugbwbwubbgwggg
|
||||
gwgruuguguggruugwrwbugwbrgrwbwwbubbwuwbgb
|
||||
gwgurrgrwgwgbrgwgrgwgubwbwrwguwbggwgwrwggbwrgwwuuuububgwgb
|
||||
rbrrwwbbuwgrbrgwrwbbgbugbrgggguwrrrrugwbwgurrgu
|
||||
bgbwggwuwrrrubbbgbwrrgrrwrurrgwwwrrrbwrubuubbbrg
|
||||
wggwbugbrrrwggwgbwwugugrwggwwwguugwruggwbwuwggrrrwrwub
|
||||
ubrurgbgwubbrwwruubuuwbwgrruwwwubguwugwwgbgrgubrgw
|
||||
ruggbwbubgubugugwggububuurrwgrwuwbuwwugurbu
|
||||
guburggbwgwuggrbbbguwgurbguwrrrwguwwwgrbwgubrg
|
||||
bbbgbbbrrrrbwrgbuuguwrgrwwbbgrbuububrggguwrgr
|
||||
buwgrrwgubwugrwwrbbgbbwrbwbbrubuwbbbgwbbgbru
|
||||
bbrrbuguwwbbbrgwuugrguuwwwggwrwgbbguurwwbuugurwurgbubgbu
|
||||
gwggguburgrrwrgwbgurbbbrwwuuwbubbguwwuugrugbg
|
||||
bwbwrbuwwrruuuurrubbrubwrggruuugwururwwgbwbuwrbgbwuwwgb
|
||||
gwgugbrurggbbwurwwburgrbuwgbbwugrgwuuwgbrrurgbwrwurgwgbuwwb
|
||||
wgggrgbwgrubguuubrwurrrwwbrugbbbubrgbgrrwgb
|
||||
wbrrgbgrgrugwwgugbrbgbugrwgrwwgguwwgrgwuruwrgu
|
||||
rwugrbrgurbrubburbbgwugwwubguurrruwbuurgrgurgwgrwggub
|
||||
urrwguwrrrbrrrgrrruuwuwubrgbrbbwwburgwrwrbruugggggb
|
||||
ruugbwwbwbgguuuugurwbbrrwruugwgrwwbrgwuugb
|
||||
gwgrbguugwbururbwuwurbuubrurgwrwgurwwugrubbwbuwbgwgubrrrrb
|
||||
wwwwwgbbugurggrubbububwugbwbguwrgbbgrwrrrbbrbrbrruwwrr
|
||||
gwgrgrbrbwrwuuugbuwrwuuwwwrwbubwrbwwgbuwbbrbbrrubugb
|
||||
gwgruggbrrrbgwubwwggbgurgwruuuurrrgrgurrrbrrrgggrr
|
||||
rugggwgrbubgwgrgguugwgbbggugwrbbbwgbgwburrwggbbbbg
|
||||
gggrrugwbbgruubgbwrrwrubwrggwgrrubgwwwuurwubwwrurrw
|
||||
gwgurrrggrggrguguurgubgrgwrbbrbrugggwubgruggburwrb
|
||||
urrugbrgbubrrgbbugggguuwwgbruuwuubgubbrbrwrbbrbwbb
|
||||
gwgugubwrgbrubbbggubbgwrrbwuggwububrurgw
|
||||
rurgwwwrgwruubwurbuggwugburrrgwrburbgbrbubwu
|
||||
gwgrwgruwgrbwwurrwgggruwbbrrurgwgubwburbgrugrwgbwruuwguurugw
|
||||
rwrwuwruguwgbwubwuugwggguwrgruwgrubwwrrwrbbuwrgguubwg
|
||||
buwuwgurwuruubguwgugbwbgggbrurwwggrgubbuwuggrbu
|
||||
rbrbgwrrgbbwwwwrgwbwrurwbrrruwurburgrrwgbwrwwurbrrbbg
|
||||
wwgbwrbggguwwwwwbgwruruubgrwurgbuugurruwbwrrg
|
||||
rrbrwbwrwugubrrgbuwbrggrgrrwrgrrwwbubguggrugggrw
|
||||
gwbuubguwgurwbbwwgbgruwgwwgwwrggbrrbgubrubwgbggu
|
||||
gwguugrbggwuwwgbrwugubbgwrrrgwbwrrruuwrugguubgwbrggwgwb
|
||||
rgwuuubrgurbwbrgwubbuububgurwgubgguruuggbwbg
|
||||
bbguruwrruggwuwuguwrgrbwugguwuwrrrrrwuwgurrwrruwwbrbu
|
||||
ruuuwwwrugbuwuwurbubrwrugwbubbubwruguggrbrrwguwrwugwugbbw
|
||||
wrwgbbwrgwgwrwwbgbruuggugrwgwwrbwgbuguuwbbg
|
||||
wwbwurrgwugrbrbgrgwugbugrbbbubrgugwrggwwug
|
||||
ububggururwrubwrguwruwuwbrwuwurrwrwwgwrguwwgwgur
|
||||
gugwggbwgbgrrwwwrgbggwrwgugbuuwbgrburrgrbgrwwbbrwbrbwurgw
|
||||
gwgurwbgbrguwgbrwrwbwuwgrwrurwguubbrrbwrbwgru
|
||||
wuubbugguugrwwgwrggwbubwugggurwruguwgbrubgwwwbwggubuub
|
||||
grwrwrbugbgbwwbbbuuwrrggwwwubbbgbuguwwbuugrbrwbu
|
||||
ggugbgbwbgbuwbburubrrgbwrwbuugurgwuwbrrubrrrrbbbwruruwwwwr
|
||||
rbgrwbugwurwbgbuwrgggwubuwwrwwwguuggrugwuruwgbg
|
||||
rrwugwbbwbbwubgbubwbgbgbgbbwggwbwgrurrgwggub
|
||||
bgwgrwuruuwbrrrwwwwggguwubwggwrrrwgruwuwuu
|
||||
rwuwwwwwuuwwrggrbrrgugwubuggwwwrbbbubgurbur
|
||||
uubrgurbgbruuguwwbbgwbrrgrrruuwrugrubwwgguwu
|
||||
bguugbbgbguwbggwubggugugrrgrubwrgwwwwurrrw
|
||||
wwwrwrbruburwrrwgugwwrbuubguwuwgubuwwuwrrbgbrbw
|
||||
grgwuubrgbruwuwrrguuuwuwggbwrrrgurgrbgrbww
|
||||
gwgrbuburuurrbuwggrrgrbgurbbwggrwuurwggbggwgwgrgrwugurrwrgu
|
||||
rwwwbbuwwwbrgggguubbwuggwgwubbwwbwwwgbuwrrruwrbrrug
|
||||
gwggugwubbwrgrgwrugbrbbrurubwbbrgrwrbwggbggrgrru
|
||||
grrrwwbggrgwgbgurgwrggwwwrgrggwuuggbbgguugw
|
||||
gwgurbuubwwbbrwbgbggrrwrubwrbgwbbwgruurgguugwggrrrwbburugrbg
|
||||
gwgggggggwbwguuuwgggggwgwbuggwburburrgwrbu
|
||||
ugbruwuwrgurbgbwrrgugwrbbrubggubbwwwbgwgbugurbgbrg
|
||||
rbrgwggbwrugbbrrruggbwuruwgwbgbwruurgwwwgbwg
|
||||
gwgrbbgwubwwgbbuubrwwuwugbggwbbbuubrbggu
|
||||
gwrubwgbgwwububrrgruggbgwbuwgwuwuggwbbrrbgguwrrgrrubuwuu
|
||||
bgububbrgrrurbugbgwggbwrwugurrrbburbbgggbwubwbubgwrwuuuub
|
||||
rguuuggbbrrurrbrgburrggwguuwbrruggrrbggrwgwgrgwgwuw
|
||||
uwrrrgubgbgrubuurbwbruuurrbrwggwwgrwrguubgrww
|
||||
rwwuuuuguwwbuwbgrggubbgwbbguguururrubwwgggruuwgwwgbg
|
||||
rurrbububwwrgurrbgggurggggbbuggbbbrbgruwrbwbubuuwbwg
|
||||
rwugugugugruburbubwrrgrgugbrbgburrrgrbbwgwuwu
|
||||
ubgbwrwbrbwrggrubbbgbbuwrgurwwbrwwgrgwbuwwrgrggggb
|
||||
ubbbbggwgwguruwrbbwrwwrbrubbwgwwbgrgwgwgrubbrurugbwrgrrrww
|
||||
gwgubggbuwbgwrwrrruugbbwrbbbwbruwbwubrgrgwbwu
|
||||
gwgurwrwrruwbwgwrbrrubbgbrwbgugbgugwrrgwrubgwbguuwbw
|
||||
rrbwurbrrwwrurrugwbugwbuuggbwbwugrwguurwrwrurgbgg
|
||||
ubbgwubuurgwwwuuwugrgwwbbwubwbrbbrbrguburgbrbggrg
|
||||
gwgrwrwwggwgggubbuurrugwubbwugrrbrwwrruuwbuubugwrgrg
|
||||
wrbgbgrrbuwrwrwbgurrwuugurgbwubgrgurgwgwgb
|
||||
rbgbgbrwubuwggrwwwbrgubbruwwbbwbrbuwwgrbuwgwwur
|
||||
wubwwguwgrbrwwgrgwwwubgwrgggubwruwgrbgbrrbwbwbbuwuu
|
||||
uubrwbbubwbbguwgbububrgbrbuwrbruruuguuggbwu
|
||||
ruwgbrbbwwbwbuuwwbuwuwugggrbwggwwwbrrrrgubugggurrbwrbbugu
|
||||
gwguuruburgubgggrgrrwururubbwbgbwgrwrwrrggg
|
||||
uuwgrrbrurwrgbwwbbrbbwwrwubgrwwrububgbbuuuruwgrwruur
|
||||
ugggwrubgbubuubwwbbbbuuubbbuuubgurbburuubrrruwrwuw
|
||||
gwggbbuubwbrubwubbwruurrgugbubuurrrrgbgrbguubu
|
||||
burbrwwrrbwrrgruurggbwggrwwbbggwbbuururbrrguwbwbwrbuwbgrrg
|
||||
rurguwggbrgubwbbrruugubgburwbgrwruggurgugguurwrrrwuwguruww
|
||||
ggwgwggwggwwrbuwgrbuurbruggrrrwgubuggbrrrbggwbrggrwbbgrb
|
||||
gwggbuuwwwbgurgbgubgwrrrbrbgwrbbbbgrbruuww
|
||||
gwgurrrrrrwurbgbubgbbrbrwwggbubbbwguwwgguu
|
||||
gwggurrwbbbugguwbrwgwrwgubruruuggwbwggwwrrbuwwurwwbrbu
|
||||
bubuurbgrurwwuwwgubgurwwrgggrgbuurgbwuruwbugbgwbu
|
||||
gwgruwggrgurwrruwburuwgbbgrwbubggrrwrgbwwwgruwr
|
||||
gugwgubbbruggwbrgwurgrgrggrrbwgruwwwuggurbggbbrbburubuububu
|
||||
rrburugbgwgugbgwgbbgwggrggguuwurggubrbggwub
|
||||
bruuuwbrbwbgwugwgurubwgbwbrugrrrbgurggwburwrwurwuwrbbuwr
|
||||
brruuwugrgrgrbwwgugbwruwrwugugugrbuubugburwbwur
|
||||
ubbwbbwbuurbrugubgrwwruwbwurrbbgrgbwrbuuubw
|
||||
rrubbubwrbbbgbrwgbuguwbuwwrbwbbwwugubrugbwwbbrbuwwu
|
||||
gwgggbubrrwwbrwbbuwrguwuwuwrwuwbrrgrwwur
|
||||
gugwbgwguurbbrwwgruuguugbuwrwrwuggwbwuwbbwuuuggrwgurugwuuru
|
||||
gbwuurggurbuuguurwbgbgubugggwubgwgruggubbbwgguurwubbwrg
|
||||
gguwugurgbbuuwrbggwrugugwrguwbugwgurrwrrwrub
|
||||
ubgwrwrgbuwrrrurbrbwrbbgrrwgbwrbgugwwuuwguu
|
||||
bwurburrwrgrgwbbwrrbgggwrurggwgbwrubwbrwbuwgbbubr
|
||||
grggubbwwrwrbbburgwguubrwurgugwurbuurgbugr
|
||||
ruurrguwgbwwuwuurrbrbggbgwgrubugwwbbrgwrwrrw
|
||||
grububbgruwrbgrbrgrbwwbuuuwrbbwruuuggwbbbgwugbwb
|
||||
gwgubbrrubugrgwgbbuwbwwurbuuugubuwgubbubruw
|
||||
gwguwurgbguuruurbugubwrgrrrbuubguwggbruburrwwwbgw
|
||||
bubbrwwburwwwbwbbrurrwugwrugbuuwwwuwbwbgrbggrbwwurgurwww
|
||||
gwggburwgwguuuguugrbgwrrubbwwwwrurwrrgwubrbrwuwububwg
|
||||
gwggbbwbbrwgrugrurrgwggggggrwugguruwbgrwgrwwgbbrburub
|
||||
gwggbwrbwbwuggbbbwrbgubgwwbgubruwrururgbruwrgbuwrubwrwuwwug
|
||||
gwguuwwgrwrwubbgrgrrwuurbgburrururguuwgrwugubggubrbugug
|
||||
uggurbbwwggbgwwrbrwuwwrwwrrwrgrurggubrguuruwuuwrgruubw
|
||||
ugwrbbwgggwuwbgrrwwwggrwbgbgwrwgrbubrwubgburggugw
|
||||
gwgugwgwbbrrwbrubuuuurwuuuuugbbbrgwwgugwruwrrwg
|
||||
gugwgrgbwuurbggwrwurrbrrgrrwrgrrwrruguwuwb
|
||||
wbgrrgwuwrrwbgwbbbwgrwrbrrgugbgbgbugurggrbrrgrwrugbbbr
|
||||
wrbguubwwwrgrgugrrbwbbwwurugrrwurubguurrrgruuwr
|
||||
gugwgurbwrrgrgbrurrurwgrurbbrrgwuguugwrgrgrg
|
||||
gwgruugrrbbrguwubuwuwwgbggubgurbwwbgrbgrrrg
|
||||
ugrugrbrwbgubbwbbguurwwuuwbubgrwggbgrrwwburu
|
||||
ggrggubrrbgruuwurwbbbbrbubrrrgbbgubwbwwgbwuwurbbrruug
|
||||
gwggggrwguuwgwubgrwwurgurgguwwbrrrwwbrgwguwrugwwrugggwrbrw
|
||||
wrwuuburuwwggbrwgubgwgrwrgwgwwrwwruwbuwgrbuurburgubwurbw
|
||||
uugugwbgbuuwubguggwbugbwwguuwggrrggurbwggugbbugggururwgwuu
|
||||
uwrbbugggwgurbugubbggwurwbbbwggbgrrgrgbgrbuwgbruwugubrw
|
||||
gwgggurrurrburgugguuruuuuguuwbuguuuwrbbu
|
||||
brgbwruurrggbrwguwbgrwwurwwrbwbwrrgwrwwwrrguuwubwubr
|
||||
rubugwrurrgwgwbbrrrgguwguuwwgubrubuuuwrggwwwrbbrgrbgu
|
||||
bwruuwwgruubgurbgbrgwrgwbugruwrbbwbrrugrww
|
||||
gwguuubwwurbbrubbbrggwwwruguruurwuurwbgbuwwbwwguwg
|
||||
rrbgrrugbrrwwgbruggbrrrguubbrgwwgguurgrwrrgu
|
||||
wruwwuwrwgruuggwgbbuuwwgbrugbrwwbwbuwuggwwuuuu
|
||||
ubgbwrwgrrrbwrrrwrbuwgruwgbrurrwrrurgbbwwrubg
|
||||
gugwgguwwrrwrbggwrgggbwuwubrbuuggrubuggrwrggbbwbgbgwrbuu
|
||||
ugbwbbrbgbbgburrwrgbwbwugwwbubggruwuwrurwgrbrbbw
|
||||
gwguwrwgrubwgbwbrubguwwurrugrwurrgburrbuguuruuwbbwrwu
|
||||
buugwwwbugwrrrgubwwbwgguwurwuuwwrbwrubggwgrrugw
|
||||
gwgrbgwwgurgurgbgruwuuwwwbrbubburggggwbr
|
||||
gwgrbrrruuugrggwbrbrbburgbugwrrgurbuggbubrrbrrubgwbguug
|
||||
ubuwgwuggbgrrubguwbbwwrwggrbrwrggwwubguuwur
|
||||
gwggwbwrrgrrwgrggurrugwbwbguubwbwgbuwbwurrwur
|
||||
wbrrwubuwbuubgurbuububbbbwwuwwuubuubgwbugubrwbwrrugwgrb
|
||||
gwgrwwgwubggruwrggwbrbwrwbwrbbuwwbuuwgrrguurrwgu
|
||||
bguguwrbuuubwugggrwrwbgrbgbbgbwbrubgwubgwuurwwuugwgggwuu
|
||||
gwuurubuwrgbgrubwwrrwbbwrguubwrrwrwwrbggrguwugg
|
||||
gwgugwrgrgggbruwbrwwguwbwrbbbruwgwbrwubwwwwrrgurbwwwwbbbgrw
|
||||
bguugbwbrbwwwbbuwuwruwgbgbbwrbwwgbrurrurwuwg
|
||||
gwguwbwwgubrrurbubrurgrbbrrggrrgwubruurburwbrwurubbubwbwb
|
||||
rwwwururrbwubgurbgbgbbgrrwgwuuuuugbwbbrubwrrbgwbbu
|
||||
gwgrgrurrrurgbrwubgurgwwbggbwwurwguwggugugg
|
||||
gwguuuwguwwubruwubbugwwuwwrubrururgbrguwgr
|
||||
urrbuwurwbggugrwrwgurbgggwuuwbrrrububguwruuuwrruwrbgbu
|
||||
gwgubgrguubbbbrbrguwgbwrbbubggbwwuubrbugrgbgrbwuwgbuwrgbrgu
|
||||
ggwgwgbgwgrgbbuggrubbbgugbrgrgwrbrgurwurggwu
|
||||
gruuugrbbbwwrrubgguwbwgrrurggrubrbbuwbugbguwrrw
|
||||
gwguwrbbubrrgwggrrbuguwbwrrgbwgggggrgbwwgrgb
|
||||
urrrugrbugwwurwuuwwwgbbbbgrgbuwbgguwugrwrubr
|
||||
gwggwubgrwrrgbwurwrgwwggurrburgwbuurgbruuuubgbuwrugrwruwr
|
||||
brbbrbwwrruguruuwrburrwuubbrbwurwgbggbgbuugwrgbw
|
||||
gwggbwbbugwgwgrwwuggbbugwwgubbuwugbrgbbuurg
|
||||
gwrrguuguuggbbbwuwrrwwwrwuwrwwgbuwbbrbgrwwgurubrubrrbuuw
|
||||
gwgubugrbbrbuwugwwubrrwwbwgugbuwwgguurruurbwbbugr
|
||||
wgbwwgbuwurggurrgbrrurwwbgwbugrgbwubgggbrbbruwg
|
||||
ugwgrrggwbugwbrugrggwubbbggrrruggwuuuggwrwugbuubuubuwrugr
|
||||
rbubguguubuwgwgwgbuwurwburuwwwguwbubbruguwuu
|
||||
gwgurugbrugggrurrburgrgubguwbwwgbrgrbruguguuubwwrgur
|
||||
bwwrrbwrruwgbgwgrubruugwrrwgrrbruwwwuwbuwuuwuwr
|
||||
gwggwwbggruurbuwbbugrrwwgrgrrrububgrbbgr
|
||||
gwggubggbwgwubruubgubugurrrrrurubwrruuuwuurugrubr
|
||||
gwgggurrrggbgruggrbgwuwrguwrgwbbgwrubwuuwrgguurwwwrbbgbgbur
|
||||
bwurgbbbgwguruugwurgrrbwggbwrrwrburugurbur
|
||||
wbggwubggwwwbugwgrggwbuwubwgrwggbbgbuwbbwb
|
||||
grurwgbgruggguguwbrugggwubbugrgbugrbbgbguruwwrbgbgwwggbrbb
|
||||
wrguuggubwwurwuububgruwubggwburbwgwuubbwwgrrgbgrbwubrwgbg
|
||||
uwrrwurrugwbrgwbuwbwwrwggbwwbuguwbwbbwwgrw
|
||||
wbwwurwrgbrugbbwbubuwbwwwgrbbwugbguggwgwggww
|
||||
wbwgbgbgbbbgrbgurwgurwwrggbbwuwbgrwubwbgwgr
|
||||
rurrwuwugbgwbrwwguuuurrwgbuwbbwbubwburgwruwurggwbrr
|
||||
uwubrbgubruuubruurbbwwrwgwuuwrbwguwgubrrrgruubw
|
||||
rwruubbuuwwbbbbbwggwgbwuguuuuwwuuubuubgggbgbbrguwuwg
|
||||
gwguubrwuuuwwgugugbgbuwbuwgwrbrbuuuwgrgbgubbr
|
||||
rwrrugugubwbbgugrbwurgbwguwrbuggrwbubbrugruggrbbbrubrgwgwr
|
||||
gwgurwrwrubuwgrwwugugguwgrwbgggwrubbrbwwgbrgrur
|
||||
wubguuwwgrggbrwwbgrgugugrguwrubggugwwuwrbrggwwww
|
||||
gwgrwwwrbgrrbwgrbgrugbbggbbbgugbbwwwgbuggr
|
||||
gwgrubrrugrwwgurbbububurrbbbwrgwwrguuugbuuwwbuwwbbbgbbwurgrb
|
||||
gwgrbuugugbgwurgwrruwbuguububuwgbbbwrbgrwbbrurwbbrbuwrr
|
||||
gwggwuuuuurrrurwwurugwwwgggwurbgbbrwrgwgwug
|
||||
rwbguuwgggbwwuwwwugurwrwuwbrwwgbgwwwbbuubrw
|
||||
gwgurggurbugrwrwguwugwbwguubggruurwurwurubuurwgwbwuwg
|
||||
grwgwrbwbgwrbrgwuururwurbbubrubrwwwgbrbrbbw
|
||||
gwgrugurwguwwrgurwugwurbruuwbuuuwurbrgwwuuwgbg
|
||||
wrwgwgrwwwwrrggugbbwwbgwwbgbbwgrbgugurbwguw
|
||||
bbubrbrrubwggurruwrggwuurgwgwbwbrbububwbwurrrwbggbur
|
||||
wwrwwbrgrrrgburwuwwgurubrwguwbgurbwrrwbwwgwwrbbwrrwwww
|
||||
uruuurgbgbuwuwgwgbubbrgrwggbbgrbwuwgubrgurgrgburrwrgb
|
||||
gwggrgwbgrrugugwugwgwguuwwuuwwgrgwbuurrgw
|
||||
gwgubgwguwwbugbgwgrurrgurgwwggbggbugrrgwrbwwwwguugbgubrbwgb
|
||||
wggbrubwuurbrggwgwwuurggwbubggrbggrgwwwuug
|
||||
gwggbburgbbrwwbrrbuuuwwbrugbbwwrrwrguwwubuwwuurruru
|
||||
uwgggwgrwruwwgburrwwbggwgbrurrrgubrrwrrwbbuuuwuwugrgg
|
||||
gwrggwwrrbwrrubbwrurbgwrwuwuwggrbbbbgrbubg
|
||||
gwburgrgugwwuurrwuuwuuuuburbbwgrruuubruururgwruubrubrugu
|
||||
wbwwbubwburwgbbgwgbubuubrguwgbwwggbuwbguurgurbbwuwbugrrb
|
||||
gwgurwrurggwwguburuwgbgrrrgruwwggrruruwruuwrggrrbu
|
||||
gugwgrggburwgbwbwbgbuuwwbbwrwgwbwurwgrbbbu
|
||||
gwgrrwgugbubrrrgrwwbrrggwrrrgurgwgrbbuggwru
|
||||
wbruwbbgbuwbrwwwbrrrwuwugwbggrrbuuwgubwrrwuwurggruurrgw
|
||||
gwguubbuuubgrwbuubwbuwgwwgwgubrrrbburggubwwugr
|
||||
ggrrguggbbbrggbgwwuubbwrrrrrbwruguuggrbbggrbgwr
|
||||
rgbubuguwggwrrwgwugrgggwuwwbwbwubbruubrgru
|
||||
ggggrrwgubrbrwuggbrubbrwwuugbuwrwrurgwgwwbbwugbrurbg
|
||||
ggbggbrwrurrurubrruuggurwwguwrguurrbgrrgru
|
||||
gwgrwuugbgwrbwbgrwwrgurrruwgbbrggwrrrruruug
|
||||
gwggrgbbwwrwrrggbbbgggburuubbbbguruurbgwbrbrwgg
|
||||
gwguuwuubuurwuububbgubwugurrgurrwurwubgbrugbwbwrbuwwrwrurg
|
||||
wguwwwrrrwguwrrbuguuubguurggrwbbbwrugggruuggrbu
|
||||
rrwgwgbugbwbrbbgrbbbbrgbbuuugruwbgbwwbrwwrw
|
||||
rwggbggwbrruwruubwrgrwrwuggubuwwbbubrbwbrwbuuurgggggburb
|
||||
gwggugbguwubgrwruwwuuuggbrbbubbububbwrbwbggguruwbru
|
||||
uuuurbuurwbgwuuuuuurwuuugwugrgwwrrbrrwbrrgbgwbuwbggw
|
||||
ugburrwuwbggrwuuruuwbrrrgbrubwguguwbugwbuwbbbgru
|
||||
48
2024/19-Linen_Layout/second.hs
Normal file
48
2024/19-Linen_Layout/second.hs
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
-- requires cabal install --lib megaparsec parser-combinators heap vector
|
||||
module Main (main) where
|
||||
|
||||
import Control.Monad (void, when)
|
||||
import Data.Functor
|
||||
import qualified Data.List as L
|
||||
import qualified Data.Map as M
|
||||
import Data.Maybe
|
||||
import Data.Void (Void)
|
||||
import Text.Megaparsec
|
||||
import Text.Megaparsec.Char
|
||||
|
||||
exampleExpectedOutput = 16
|
||||
|
||||
type Input = ([String], [String]) -- patterns, designs
|
||||
|
||||
type Parser = Parsec Void String
|
||||
|
||||
parseInput' :: Parser Input
|
||||
parseInput' = (,) <$> some (some letterChar <* optional (string ", ")) <* eol <* eol
|
||||
<*> some (some letterChar <* eol) <* eof
|
||||
|
||||
parseInput :: String -> IO Input
|
||||
parseInput filename = do
|
||||
input <- readFile filename
|
||||
case runParser parseInput' filename input of
|
||||
Left bundle -> error $ errorBundlePretty bundle
|
||||
Right input' -> return input'
|
||||
|
||||
type Memo = M.Map String Int
|
||||
|
||||
compute :: Input -> Int
|
||||
compute (stripes, designs) = snd $ L.foldl' compute' (M.empty, 0) designs
|
||||
where
|
||||
compute' :: (Memo, Int) -> String -> (Memo, Int)
|
||||
compute' (memo, c) [] = (memo, c + 1)
|
||||
compute' (memo, c) design = case M.lookup design memo of
|
||||
Just c' -> (memo, c + c')
|
||||
Nothing -> let (memo', c') = L.foldl' compute' (memo, 0) $ catMaybes $ map (\s -> L.stripPrefix s design) stripes
|
||||
in (M.insert design c' memo', c + c')
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
example <- parseInput "example"
|
||||
let exampleOutput = compute example
|
||||
when (exampleOutput /= exampleExpectedOutput) (error $ "example failed: got " ++ show exampleOutput ++ " instead of " ++ show exampleExpectedOutput)
|
||||
input <- parseInput "input"
|
||||
print $ compute input
|
||||
Loading…
Add table
Reference in a new issue