From 310651e37405dadb54366eba551de3b061593073 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 11 Jul 2019 18:42:14 -0600 Subject: [PATCH] newline --- beautiful-racket-demo/tacopocalypse-demo/main.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/beautiful-racket-demo/tacopocalypse-demo/main.rkt b/beautiful-racket-demo/tacopocalypse-demo/main.rkt index 0bbbe5f..f5380d8 100644 --- a/beautiful-racket-demo/tacopocalypse-demo/main.rkt +++ b/beautiful-racket-demo/tacopocalypse-demo/main.rkt @@ -15,10 +15,11 @@ tok)) (define (parse src toks) - (define heptatoks (let loop ([toks toks][acc null]) - (if (empty? toks) - (reverse acc) - (loop (drop toks 7) (cons (take toks 7) acc))))) + (define heptatoks + (let loop ([toks toks][acc null]) + (if (empty? toks) + (reverse acc) + (loop (drop toks 7) (cons (take toks 7) acc))))) (for/list ([heptatok (in-list heptatoks)]) (integer->char (for/sum ([val (in-list heptatok)]