From 196f7103638a76b445356098e2a1e96f4374af50 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 1 Dec 2017 00:25:23 -0800 Subject: [PATCH] rename --- 2017/d1.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/2017/d1.rkt b/2017/d1.rkt index 1ac7634..9819067 100644 --- a/2017/d1.rkt +++ b/2017/d1.rkt @@ -17,7 +17,7 @@ (define digits (for/list ([c (in-string (number->string num))]) (string->number (string c)))) (define offset (if (eq? offset-sig '★) -1 (/ (length digits) 2))) - (for/sum ([first (in-list digits)] - [second (in-list (shift-cycle digits offset))] - #:when (= first second)) - first)) \ No newline at end of file + (for/sum ([digit (in-list digits)] + [other-digit (in-list (shift-cycle digits offset))] + #:when (= digit other-digit)) + digit)) \ No newline at end of file