From 8ab65dc2da1742eb86ec636c50c7018385b68167 Mon Sep 17 00:00:00 2001 From: "J.J" Date: Thu, 30 Nov 2023 17:10:00 -0500 Subject: prep for 2023, renaming for consistency --- 2015/day-05/day-05.rkt | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 2015/day-05/day-05.rkt (limited to '2015/day-05/day-05.rkt') diff --git a/2015/day-05/day-05.rkt b/2015/day-05/day-05.rkt deleted file mode 100644 index 3449adc..0000000 --- a/2015/day-05/day-05.rkt +++ /dev/null @@ -1,32 +0,0 @@ -#lang racket -(require "../../jj-aoc.rkt" - threading) - -(define strs (port->lines (open-day 5 2015))) - -;; part 1 -(define (at-least-three-vowels? str) - (~>> 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)) - -(define (nice? str) - (~>> (list at-least-three-vowels? at-least-one-pair? no-forbidden-pairs?) (andmap (λ (f) (f str))))) - -(count nice? strs) - -;; part 2 -(define (repeating-pair? str) - (regexp-match? #px"(..).*\\1" str)) - -(define (symmetry? str) - (regexp-match? #px"(.).\\1" str)) - -(define (new-nice? str) - (~>> (list repeating-pair? symmetry?) (andmap (λ (f) (f str))))) - -(count new-nice? strs) -- cgit v1.2.3