From 84e188fdc2972475b574785381e5f0982b26da8d Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Tue, 22 Dec 2015 20:14:10 +0100
Subject: day22

---
 day22.k | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 day22.k

(limited to 'day22.k')

diff --git a/day22.k b/day22.k
new file mode 100644
index 0000000..c5dd77e
--- /dev/null
+++ b/day22.k
@@ -0,0 +1,27 @@
+/ use k-3.2
+
+h: 50
+m: 500
+
+bh: 51
+bd: 9
+
+f1:{[hp;m;bhp;s;p;r;d]hp-:hardness;:[~(bhp-:3*p>0)>0;:0];:[(~hp>0)|d=0;:0i]
+ m+:101*r>0;s-:1;p-:1;r-:1;d-:1
+ c:0i
+ :[m<53;:c]
+ :[~m<53;c&:53+f2[hp;m-53;bhp-4;s;p;r;d]]
+ :[~m<73;c&:73+f2[hp+2;m-73;bhp-2;s;p;r;d]]
+ :[(~s>0)&~m<113;c&:113+f2[hp;m-113;bhp;6;p;r;d]]
+ :[(~p>0)&~m<173;c&:173+f2[hp;m-173;bhp;s;6;r;d]]
+ :[(~r>0)&~m<229;c&:229+f2[hp;m-229;bhp;s;p;5;d]]
+ :c};
+
+f2:{[hp;m;bhp;s;p;r;d]:[~(bhp-:3*p>0)>0;:0];:[(~hp>0)|d=0;:0i]
+ f1[hp-1|bd-7*s>0;m+101*r>0;bhp;s-1;p-1;r-1;d-1]};
+
+hardness:0
+f1[h;m;bh;0;0;0;20]
+
+hardness:1
+f1[h;m;bh;0;0;0;20]
-- 
cgit 1.4.1