diff options
Diffstat (limited to '2020/day-01/day-01.raku')
-rw-r--r-- | 2020/day-01/day-01.raku | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/2020/day-01/day-01.raku b/2020/day-01/day-01.raku new file mode 100644 index 0000000..7ab6c49 --- /dev/null +++ b/2020/day-01/day-01.raku @@ -0,0 +1,23 @@ +#!/usr/bin/env raku + +my @inputs; +@inputs = "input".IO.lines>>.Int; + +while pop @inputs -> $num_1 { + my Int $diff = 2020 - $num_1; + for @inputs -> $num_2 { + say "Part 1: ", $num_2 * $num_1 if $diff == $num_2; + } +} + +@inputs = "input".IO.lines>>.Int; +for @inputs -> $num_1 { + for @inputs -> $num_2 { + for @inputs -> $num_3 { + if 2020 == $num_1 + $num_2 + $num_3 { + say "Part 2: ", ($num_1 * $num_2 * $num_3); + exit; + } + } + } +} |