1 files changed, 5 insertions, 14 deletions
diff --git a/2015/day-05/day-05.rkt b/2015/day-05/day-05.rkt
index 9714a0f..3449adc 100644
--- a/2015/day-05/day-05.rkt
+++ b/2015/day-05/day-05.rkt
@@ -6,24 +6,16 @@
 
 ;; part 1
 (define (at-least-three-vowels? str)
-  (~>> str
-       (regexp-replace* #px"[^aeiou]" _ "")
-       string-length
-       (<= 3)))
+  (~>> str (regexp-replace* #px"[^aeiou]" _ "") string-length (<= 3)))
 
 (define (at-least-one-pair? str)
   (regexp-match? #px"(.)\\1{1,}" str))
 
 (define (no-forbidden-pairs? str)
-  (~>> (list "ab" "cd" "pq" "xy")
-       (ormap (λ~>> (string-contains? str)))
-       not))
+  (~>> (list "ab" "cd" "pq" "xy") (ormap (λ~>> (string-contains? str))) not))
 
 (define (nice? str)
-  (~>> (list at-least-three-vowels?
-             at-least-one-pair?
-             no-forbidden-pairs?)
-       (andmap (λ (f) (f str)))))
+  (~>> (list at-least-three-vowels? at-least-one-pair? no-forbidden-pairs?) (andmap (λ (f) (f str)))))
 
 (count nice? strs)
 
@@ -35,7 +27,6 @@
   (regexp-match? #px"(.).\\1" str))
 
 (define (new-nice? str)
-  (~>> (list repeating-pair? symmetry?)
-       (andmap (λ (f) (f str)))))
+  (~>> (list repeating-pair? symmetry?) (andmap (λ (f) (f str)))))
 
-(count new-nice? strs)
-\ No newline at end of file
+(count new-nice? strs)