16 lines
460 B
Factor
16 lines
460 B
Factor
|
! Copyright (C) 2021 Bubbler.
|
||
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
USING: arrays io.encodings.utf8 io.files kernel math
|
||
|
math.vectors prettyprint sequences ;
|
||
|
IN: aoc2015.day1
|
||
|
|
||
|
: day1-silver ( str -- n )
|
||
|
>array -1 swap n^v sum ;
|
||
|
|
||
|
: day1-gold ( str -- n )
|
||
|
>array -1 swap n^v 0 [ + ] accumulate* -1 swap index 1 + ;
|
||
|
|
||
|
: day1-main ( -- ) "datasets/aoc2015/day1.txt" utf8 file-contents
|
||
|
[ day1-silver . ] [ day1-gold . ] bi ;
|
||
|
|
||
|
MAIN: day1-main
|