commit 1dcecf5dd433ff7e6152c5b1d7e9a1608c498fb7
Author: Danila Fedorin <daniel.fedorin@hpe.com>
Date:   Wed Nov 30 22:46:47 2022 -0800

    Add solutions for day one

diff --git a/day1.chpl b/day1.chpl
new file mode 100644
index 0000000..cf22012
--- /dev/null
+++ b/day1.chpl
@@ -0,0 +1,74 @@
+use IO;
+use List;
+
+iter linesWithEnding() {
+  for line in stdin.lines() do yield line;
+  yield "";
+}
+
+iter elves() {
+  var current = 0;
+  for line in linesWithEnding() {
+    const trimmedLine = line.strip();
+    if trimmedLine == "" {
+      yield current;
+      current = 0;
+    } else {
+      current += trimmedLine : int;
+    }
+  }
+}
+
+class MaxThree : ReduceScanOp {
+  type eltType;
+  var value: 3*eltType;
+
+  proc identity {
+    var val: value.type;
+    return val;
+  }
+  proc accumulate(x: eltType) { accumulateOntoState(value, x); }
+  proc accumulateOntoState(ref state: 3*eltType, x: eltType) { accumulateOntoState(state, (0, 0, x)); }
+  proc accumulate(x: 3*eltType) { accumulateOntoState(value, x); }
+
+  proc accumulateOntoState(ref state: 3*eltType, x: 3*eltType) {
+    var result: state.type;
+    var ptr1, ptr2: int = 3-1;
+    for param idx in (0..<3 by -1) {
+      if x[ptr1] > state[ptr2] {
+        result[idx] = x[ptr1];
+        ptr1 -= 1;
+      } else {
+        result[idx] = state[ptr2];
+        ptr2 -= 1;
+      }
+    }
+    state = result;
+  }
+  proc combine(other: MaxThree(eltType)) {
+    accumulate(other.value);
+  }
+  proc clone() return new unmanaged MaxThree(eltType=eltType);
+  proc generate() return value;
+}
+
+config const part = 1;
+config const parallel = false;
+
+if part == 1 {
+  writeln(max reduce elves());
+} else if part == 2 {
+  if parallel {
+    writeln(+ reduce (MaxThree reduce elves()));
+  } else {
+    // Parallel
+    var max3 = (0,0,0);
+    // Need to read all the numbers into memory to make sure we can distribute
+    var elfList = new list(elves());
+    // To make a reduction parallel, we use a forall loop with a reduce intent
+    forall elf in elfList with (MaxThree(int) reduce max3) {
+      max3 reduce= elf;
+    }
+    writeln(+ reduce max3);
+  }
+}
diff --git a/day1.cr b/day1.cr
new file mode 100644
index 0000000..0997550
--- /dev/null
+++ b/day1.cr
@@ -0,0 +1,46 @@
+require "advent"
+INPUT = input(2022, 1).lines#.lines.map(&.to_i32)
+
+
+def part1(input)
+  list = [] of Array(String)
+  current = [] of String
+  input.each do |line|
+    if line.empty?
+      list << current
+      current = [] of String
+    else
+      current << line
+    end
+  end
+  if !current.empty?
+    list << current
+  end
+
+  list.max_of do |list|
+    list.map(&.to_i32).sum
+  end
+end
+
+def part2(input)
+  list = [] of Array(String)
+  current = [] of String
+  input.each do |line|
+    if line.empty?
+      list << current
+      current = [] of String
+    else
+      current << line
+    end
+  end
+  if !current.empty?
+    list << current
+  end
+
+  data = list.map(&.map(&.to_i32).sum)
+  data.sort!
+  data[-1] + data[-2] + data[-3]
+end
+
+puts part1(INPUT.clone)
+puts part2(INPUT.clone)