diff options
| author | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-11-26 01:43:33 -0500 |
|---|---|---|
| committer | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-11-26 01:43:33 -0500 |
| commit | feccf3f6f0a806b3317d1f399e3e8b42945c4f09 (patch) | |
| tree | bf15ce045d1106c1b7f7de30c27540f40d0bf947 /2015/day-05/day-05.rkt | |
| parent | 8b624fe7d2751337b1f16830cc9c041df73e99e7 (diff) | |
| download | gleam_aoc-feccf3f6f0a806b3317d1f399e3e8b42945c4f09.tar.gz gleam_aoc-feccf3f6f0a806b3317d1f399e3e8b42945c4f09.zip | |
using raco fmt, replacing missing dependency
Diffstat (limited to '2015/day-05/day-05.rkt')
| -rw-r--r-- | 2015/day-05/day-05.rkt | 19 |
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) |