diff --git a/2023/src/day18.rs b/2023/src/day18.rs
index 7c1760f..41f22fd 100644
--- a/2023/src/day18.rs
+++ b/2023/src/day18.rs
@@ -1,7 +1,111 @@
-pub fn part1(_input: &[u8]) -> anyhow::Result<String> {
-    anyhow::bail!("Not implemented")
+use nom::bytes::complete::tag;
+use nom::bytes::complete::take;
+use nom::bytes::complete::take_while1;
+use nom::combinator::map;
+use nom::combinator::map_res;
+use nom::multi::many1;
+use nom::sequence::delimited;
+use nom::sequence::pair;
+use nom::sequence::terminated;
+use nom::IResult;
+
+use crate::common::parse_input;
+use crate::common::Direction;
+
+struct Dig {
+    dir: Direction,
+    amount: u64,
+}
+
+fn parse_instructions(i: &[u8]) -> IResult<&[u8], Vec<(Dig, u64)>> {
+    many1(pair(
+        map(
+            pair(
+                terminated(
+                    map_res(take(1usize), |c: &[u8]| {
+                        Ok(match c[0] {
+                            b'L' => Direction::Left,
+                            b'U' => Direction::Up,
+                            b'R' => Direction::Right,
+                            b'D' => Direction::Down,
+                            e => return Err(format!("Invalid digging direction {e}")),
+                        })
+                    }),
+                    tag(" "),
+                ),
+                terminated(nom::character::complete::u64, tag(" ")),
+            ),
+            |(dir, amount)| Dig { dir, amount },
+        ),
+        delimited(
+            tag("(#"),
+            map_res(take_while1(nom::character::is_hex_digit), |s| {
+                u64::from_str_radix(std::str::from_utf8(s).expect("Checked hex digits"), 16)
+            }),
+            tag(")\n"),
+        ),
+    ))(i)
+}
+
+fn compute_points(instructions: &[(Dig, u64)]) -> Vec<(i64, i64)> {
+    let mut result = Vec::with_capacity(instructions.len() + 1);
+    result.push((0, 0));
+
+    let mut x = 0;
+    let mut y = 0;
+
+    for &(Dig { dir, amount }, _) in instructions {
+        match dir {
+            Direction::Up => y -= amount as i64,
+            Direction::Left => x -= amount as i64,
+            Direction::Down => y += amount as i64,
+            Direction::Right => x += amount as i64,
+        }
+
+        result.push((x, y));
+    }
+
+    debug_assert_eq!(result.first(), result.last());
+
+    result
+}
+
+fn shoelace(points: &[(i64, i64)]) -> i64 {
+    points
+        .windows(2)
+        .map(|w| w[0].0 * w[1].1 - w[0].1 * w[1].0)
+        .sum::<i64>()
+        / 2
+}
+
+pub fn part1(input: &[u8]) -> anyhow::Result<String> {
+    let instructions = parse_input(input, parse_instructions)?;
+    let points = compute_points(&instructions);
+
+    let area = shoelace(&points);
+    // Assumption: we don't cross over ourselves
+    let perimeter = instructions
+        .iter()
+        .map(|(dig, _)| dig.amount as i64)
+        .sum::<i64>();
+
+    let total = area + perimeter / 2 + 1;
+
+    Ok(total.to_string())
 }
 
 pub fn part2(_input: &[u8]) -> anyhow::Result<String> {
     anyhow::bail!("Not implemented")
 }
+
+#[cfg(test)]
+mod tests {
+    use super::*;
+
+    const SAMPLE: &[u8] = include_bytes!("samples/18.txt");
+
+    #[test]
+    fn sample_part1() {
+        assert_eq!("62", part1(SAMPLE).unwrap());
+    }
+}
diff --git a/2023/src/samples/18.txt b/2023/src/samples/18.txt
new file mode 100644
index 0000000..fc7612e
--- /dev/null
+++ b/2023/src/samples/18.txt
@@ -0,0 +1,14 @@
+R 6 (#70c710)
+D 5 (#0dc571)
+L 2 (#5713f0)
+D 2 (#d2c081)
+R 2 (#59c680)
+D 2 (#411b91)
+L 5 (#8ceee2)
+U 2 (#caa173)
+L 1 (#1b58a2)
+U 2 (#caa171)
+R 2 (#7807d2)
+U 3 (#a77fa3)
+L 2 (#015232)
+U 2 (#7a21e3)