From 5eb58ad076f2cd435b11b140820da224b60b73d5 Mon Sep 17 00:00:00 2001 From: Aria Date: Mon, 2 Jan 2023 21:58:56 +0000 Subject: initial commit --- 2021/day2/02a.rkt | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 2021/day2/02a.rkt (limited to '2021/day2/02a.rkt') diff --git a/2021/day2/02a.rkt b/2021/day2/02a.rkt new file mode 100644 index 0000000..2317a9a --- /dev/null +++ b/2021/day2/02a.rkt @@ -0,0 +1,25 @@ +#lang racket + +(define (parse-line line) + (define split (string-split line " ")) + (cond [(empty? split) + (datum->syntax #f "")] + [else (define command (car split)) + (define arg (second split)) + (datum->syntax #f `(,(string->symbol command) ,(string->number arg)))])) + +(define (read-syntax path port) + (define src-datums (map parse-line (port->lines port))) + (datum->syntax #f `(module day2 racket + (define depth 0) + (define pos 0) + (define (forward x) + (set! pos (+ pos x))) + (define (down x) + (set! depth (+ depth x))) + (define (up x) + (set! depth (- depth x))) + ,@src-datums + (* depth pos)))) + +(provide read-syntax) -- cgit v1.2.3