From 3999b3515bae99f5a25af6278edf0d67f6efd5b8 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 10 Jul 2019 18:49:49 -0600 Subject: [PATCH] tacopocalypse sample --- .../tacopocalypse-demo/main.rkt | 20 +++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/beautiful-racket-demo/tacopocalypse-demo/main.rkt b/beautiful-racket-demo/tacopocalypse-demo/main.rkt index 524836f..0bbbe5f 100644 --- a/beautiful-racket-demo/tacopocalypse-demo/main.rkt +++ b/beautiful-racket-demo/tacopocalypse-demo/main.rkt @@ -11,17 +11,17 @@ [any-char (lex input-port)])) (define (tokenize ip) - (define toklets (for/list ([toklet (in-port lex ip)]) - toklet)) - (let loop ([toklets toklets][acc null]) - (if (null? toklets) - (reverse acc) - (loop (drop toklets 7) (cons (take toklets 7) acc))))) + (for/list ([tok (in-port lex ip)]) + tok)) (define (parse src toks) - (for/list ([tok (in-list toks)]) + (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 tok)] + (for/sum ([val (in-list heptatok)] [power (in-naturals)] #:when (eq? val 'taco)) (expt 2 power))))) @@ -34,7 +34,7 @@ #'(module taco-mod tacopocalypse-demo PT)))) -(define-macro (mb PT) +(define-macro (my-module-begin PT) #'(#%module-begin (display (list->string 'PT)))) -(provide (rename-out [mb #%module-begin])) \ No newline at end of file +(provide (rename-out [my-module-begin #%module-begin])) \ No newline at end of file