From 0388455b85768b4aa1e7fd406c5cf8df0c219602 Mon Sep 17 00:00:00 2001 From: MsK` Date: Sun, 12 Dec 2021 12:29:44 +0100 Subject: [PATCH] moved get-lines to common.scm --- 10-syntax-scoring/code.scm | 7 +------ common.scm | 7 +++++++ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/10-syntax-scoring/code.scm b/10-syntax-scoring/code.scm index c30002a..007bb33 100644 --- a/10-syntax-scoring/code.scm +++ b/10-syntax-scoring/code.scm @@ -1,9 +1,4 @@ -; get list of lines from a file -(define (get-lines file) - (let loop [(lines '())] - (if (eof-object? (peek-char file)) - lines - (loop (cons (get-line file) lines))))) +(load "../common.scm") ; check if character can close chunk (define (closing? c) diff --git a/common.scm b/common.scm index 9f7c4d6..8b6e854 100644 --- a/common.scm +++ b/common.scm @@ -1,5 +1,12 @@ (import (srfi :43)) ; vector extensions +; get list of lines from a file +(define (get-lines file) + (let loop [(lines '())] + (if (eof-object? (peek-char file)) + lines + (loop (cons (get-line file) lines))))) + ; returns a list of numbers parsed from the first line of the file, ; separated by commas (define (read-comma-separated-numbers file)