From ea9e5b7167ecf156d0928352770f60d29aa1aeed Mon Sep 17 00:00:00 2001 From: MsK` Date: Sun, 12 Dec 2021 20:37:37 +0100 Subject: [PATCH] indentation --- 12-passage-pathing/code.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/12-passage-pathing/code.scm b/12-passage-pathing/code.scm index 1cc7a88..c6c0bbf 100644 --- a/12-passage-pathing/code.scm +++ b/12-passage-pathing/code.scm @@ -63,10 +63,10 @@ (lambda (child) (let [(is-big (is-big? child))] (when (and (not (string=? child "start")) - (or is-big - (< (count-members child path) max-small))) + (or is-big + (< (count-members child path) max-small))) (visit child (cons node path) - (if (and (not is-big) (member child path)) 1 max-small))))) + (if (and (not is-big) (member child path)) 1 max-small))))) (hashtable-ref graph node '()))))) ; computes how many possible paths there are in graph @@ -103,6 +103,6 @@ (lambda (file) (let [(graph (make-graph file))] (printf "part 1:~% ~a paths with at most 1 visit to small caves.~%" - (count-paths graph 1)) + (count-paths graph 1)) (printf "part 2:~% ~a paths with at most 2 visits to small caves.~%" - (count-paths graph 2))))) + (count-paths graph 2)))))