From 62733cd7efbc99a5f99b8ce007fa8c2e31c74d2c Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Sun, 6 Dec 2015 20:13:32 +0100
Subject: day5

---
 day5.k | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 day5.k

(limited to 'day5.k')

diff --git a/day5.k b/day5.k
new file mode 100644
index 0000000..938d43c
--- /dev/null
+++ b/day5.k
@@ -0,0 +1,15 @@
+d:0:"day5";
+
+r1: {2<#&5>"aeiou"?/:x}; / three vowels
+r2: {0<#&=':x}; / two consecutive letters
+r3: {~#,/x _ss ("ab";"cd";"pq";"xy")}; / no ab/cd/pq/xy
+
+#&(r3'd)&(r2'd)&(r1'd)
+
+bg: {[s]{x;2#(x-1) _ s}'1+!#s}; / bigrams
+u: {x@*:'=x}; / uniq
+
+r4: {0<#&1<#:' x _ss u@bg x}; / duplicate bigram
+r5: {0<#&(-2_ x)=(2_ x)}; / matches (.).\1
+
+#&(r4'd)&(r5'd)
-- 
cgit 1.4.1