From 7520a58aec880c5ff765adb6056fe648b841a9ac Mon Sep 17 00:00:00 2001 From: Inga Date: Wed, 6 Dec 2023 01:53:56 +0000 Subject: [PATCH] improved starts-with tests --- day01-hard/main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/day01-hard/main.scm b/day01-hard/main.scm index 1a40234..f7ca138 100755 --- a/day01-hard/main.scm +++ b/day01-hard/main.scm @@ -106,8 +106,8 @@ (starts-with '(1 2 3) '(4 5 6 7))) (assert-eq "starts-with test 5 failed" - (string->list "d") - (starts-with (string->list "abc") (string->list "abcd"))) + (string->list "de") + (starts-with (string->list "abc") (string->list "abcde"))) ;=============== tokenize ====================== (define (tokenize-generic tokens next) (Y