From 24182ea87ccea37d00ffa4c15583ac1b97e613e5 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Wed, 16 Dec 2015 14:07:47 +0100
Subject: day16

---
 day16.k | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 day16.k

(limited to 'day16.k')

diff --git a/day16.k b/day16.k
new file mode 100644
index 0000000..334f07b
--- /dev/null
+++ b/day16.k
@@ -0,0 +1,25 @@
+k:[];
+k[`children]: 3;
+k[`cats]: 7;
+k[`samoyeds]: 2;
+k[`pomeranians]: 3;
+k[`akitas]: 0;
+k[`vizslas]: 0;
+k[`goldfish]: 5;
+k[`trees]: 3;
+k[`cars]: 2;
+k[`perfumes]: 1;
+
+d:0:"day16";
+ss:{1 _' (&y=y,x) _ y,x}; / split x at y
+l:{ss[x,",";" "]}' d;
+
+s:{. {(`$-1_ x[0]), 0$-1_ x[1]}' -1 2 # 2_ x}' l; / parse
+1+*&{&/(k@!x)=x@!x}'s
+
+i:{x@&x _in\: y}; / set intersection
+
+1+*&{f:i[!x;`cats`trees]
+     l:i[!x;`pomeranians`goldfish]
+     e:i[!x;`children`samoyeds`akitas`cars`perfumes`vizslas]
+     &/(k[f]<x[f]),(k[l]>x[l]),(k[e]=x[e])}'s
-- 
cgit 1.4.1