adventofcode
/
2019
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Day 8: Fix typo.

This commit is contained in:
Jonathan Chan 2019-12-07 22:21:05 -08:00
parent 1df4ec737e
commit c3f9b912f3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/08.rkt
View File

@ -13,7 +13,7 @@
;; with the final list possibly being smaller ;; with the final list possibly being smaller
;; e.g. '(1 2 3 4 5) 2 => '((1 2) (3 4) (5)) ;; e.g. '(1 2 3 4 5) 2 => '((1 2) (3 4) (5))
(define (partition-into lst size) (define (partition-into lst size)
(if (< (length lst) size) (list lst) (if (< (length lst) size) lst
(cons (take lst size) (cons (take lst size)
(partition-into (drop lst size) size)))) (partition-into (drop lst size) size))))