1 files changed, 10 insertions, 0 deletions
diff --git a/day01.rkt b/day01.rkt
new file mode 100644
index 0000000..0576f02
--- /dev/null
+++ b/day01.rkt
@@ -0,0 +1,10 @@
+#lang racket
+
+(define ordered-food
+  (sort (for/list ([para (string-split (file->string "day01") "\n\n")])
+          (for/sum ([line (string-split para "\n")])
+            (string->number line)))
+        >))
+
+(first ordered-food)                    ; 67016
+(apply + (take ordered-food 3))         ; 200116