Paste: AoC 2022 day 1

Author:	xr
Mode:	factor
Date:	Thu, 1 Dec 2022 09:35:45

Plain Text |

Delete Paste

USING: io.encodings io.files.private math.parser splitting ;
IN: aoc2022-1
: load-file ( path -- seq ) cwd "/" append swap append utf8 file-lines ;

: group-elf ( seq -- seq ) [ empty? ] split-when ;

: elf-sum ( seq -- seq ) [ [ string>number ] map sum ] map ;

: max-list ( seq -- n ) 0 [ max ] reduce  ;

"2022-1.txt" load-file group-elf elf-sum
[ max-list ] keep
[ dup ] dip
remove
[ max-list ] keep
[ dup ] dip
remove
max-list
+ +

Annotation: different combinators

Author:	xr
Mode:	factor
Date:	Thu, 1 Dec 2022 09:53:24

Plain Text |

Delete Annotation

USING: io.encodings io.files.private math.parser splitting combinators.extras ;
IN: aoc2022-1
: load-file ( path -- seq ) cwd "/" append swap append utf8 file-lines ;

: group-elf ( seq -- seq ) [ empty? ] split-when ;

: elf-sum ( seq -- seq ) [ [ string>number ] map sum ] map ;

: max-list ( seq -- n ) 0 [ max ] reduce  ;

"2022-1.txt" load-file group-elf elf-sum
[ [ max-list dup ] keep remove ] twice
max-list
+ +

Annotation: Deal with duplicates

Author:	xr
Mode:	factor
Date:	Thu, 1 Dec 2022 10:06:07

Plain Text |

Delete Annotation

USING: io.encodings io.files.private math.parser splitting combinators.extras ;
IN: aoc2022-1
: load-file ( path -- seq ) cwd "/" append swap append utf8 file-lines ;

: group-elf ( seq -- seq ) [ empty? ] split-when ;

: elf-sum ( seq -- seq ) [ [ string>number ] map sum ] map ;

: max-list ( seq -- n ) 0 [ max ] reduce  ;

"2022-1.txt" load-file group-elf elf-sum
[ [ max-list dup ] keep remove-first ] twice
max-list
+ +

Annotation: Deal with duplicates

Author:	xr
Mode:	factor
Date:	Thu, 1 Dec 2022 10:26:10

Plain Text |

Delete Annotation

USING: io.encodings io.files.private math.parser splitting combinators.extras sequences.extras ;
IN: aoc2022-1
: load-file ( path -- seq ) cwd "/" append swap append utf8 file-lines ;

: group-elf ( seq -- seq ) [ empty? ] split-when ;

: elf-sum ( seq -- seq ) [ [ string>number ] map sum ] map ;

: max-list ( seq -- n ) 0 [ max ] reduce  ;

"2022-1.txt" load-file group-elf elf-sum
[ [ max-list dup ] keep remove-first ] twice
max-list
+ +

New Annotation

Summary:
Author:
Mode:	textPostgreSQLPowerCenter Parameter Fileactionscriptadaada95ans-forth94antantlrantlr4apacheconfapdlapplescriptaspaspect-jassembly-agcassembly-agsassembly-arm32assembly-m68kassembly-macro32assembly-mcs51assembly-parrotassembly-r2000assembly-x86avroawkbbatchbbjbcelbeanshellbibtexbinsource-agccc#c++cfscriptchillcilclipsclojurecmakecobolcoffeescriptcoldfusioncplex-lpcsscsvcvs-commitddartdjangodockerfiledotdoxygendrawj2ddsssleiffelembperlerlangfactorfhtmlforthfortranfortran90foxprofreemarkergcbasicgettextgherkingnuplotgogradlegroovygsphaskellhaxehexhl7v2hlslhtaccesshtmlhxmli4glicalendariconidlinforminiinno-setupinterlisiojamonjavajava module-infojavaccjavafxjavascriptjcljedit-actionsjflexjhtmljmkjsonjspkotlinlatexlexlilypondlispliterate-haskelllogslogtalklotosluam4macroschedulermailmakefilemaplemarkdownmavenmavscriptmetapostmlmodula3moinmqscmustache-templatemxmlmyghtymysqln3netrexxnqcnsis2objective-cobjectrexxoccamomnimarkopensipsoutlinepascalpatchperlphppikepl-sqlpl-sql9pl1plaintexplantumlpop11postscriptpovraypowerdynamopowershellprogressprologpropertiesprotobufpspptlpurepvwavepyrexpythonqdocrakefilercprdrebolredcoderelax-ng-compactrenderman-ribrestrfcrhtmlroffrpm-specrtfrubyrustrviews#s+sassbtscalaschemesdl/prsgmlshellscriptshtmlsipsippslateslaxsmalltalksmartysmi-mibsparqlsql-loadersqrsquidconfstatasvn-commitswiftswigtcltemplate-toolkittextexinfotldtransact-sqltsptwikityposcripturluscriptvalavbscriptvelocityverilogvhdlvisualbasicvrml2wellknowntextxmlxqxslyabyamlzpt
Body:

Done