Basic structure; day 1, 2

day-01/example-1

@@ -0,0 +1,6 @@
+3   4
+4   3
+2   5
+1   3
+3   9
+3   3

day-01/main.raku

@@ -0,0 +1,21 @@
+use lib $*PROGRAM.parent.parent;
+use Lib;
+
+grammar Solution does AOC {
+  token TOP { (^^ <line> \n)+ { make ([Z] $/[0]>><line>>>.made).List; }}
+  token line { <num> <.ws> <num> { make $<num>>>.made }}
+  token num { \d+ { make val($/.Str) }}
+
+  method part1(::?CLASS:U: (@l, @r)) {
+    [+] (@l.sort <<->> @r.sort)>>.abs
+  }
+
+  method part2(::?CLASS:U: (@l, @r)) {
+    my $bag = @r.Bag;
+    [+] @l.map(-> $l { $l * $bag{$l} })
+  }
+  
+}
+
+
+Solution.main()