From 1ba60f272d94629dfa1219b11464596f295e5d67 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Mon, 7 Dec 2015 15:44:45 +0100
Subject: day3/5: monadic ? is uniq already.

---
 day5.k | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'day5.k')

diff --git a/day5.k b/day5.k
index 938d43c..09fef93 100644
--- a/day5.k
+++ b/day5.k
@@ -7,9 +7,8 @@ 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
+r4: {0<#&1<#:' x _ss ?bg x}; / duplicate bigram
 r5: {0<#&(-2_ x)=(2_ x)}; / matches (.).\1
 
 #&(r4'd)&(r5'd)
-- 
cgit 1.4.1