From d88fcf2a60d905a447dcb908b14eee8c1533b99f Mon Sep 17 00:00:00 2001 From: Jonathan Chan Date: Sat, 7 Dec 2019 22:21:05 -0800 Subject: [PATCH] Day 8: Fix typo. --- src/08.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/08.rkt b/src/08.rkt index 8bb9242..0383d9c 100644 --- a/src/08.rkt +++ b/src/08.rkt @@ -13,7 +13,7 @@ ;; with the final list possibly being smaller ;; e.g. '(1 2 3 4 5) 2 => '((1 2) (3 4) (5)) (define (partition-into lst size) - (if (< (length lst) size) (list lst) + (if (< (length lst) size) lst (cons (take lst size) (partition-into (drop lst size) size))))