From 3f63cb8a2d53fd33ce800ca6944a92af0c6b1b24 Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Tue, 8 Dec 2015 15:13:54 +0100
Subject: day8

---
 day8.k | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 day8.k

(limited to 'day8.k')

diff --git a/day8.k b/day8.k
new file mode 100644
index 0000000..cf89ef4
--- /dev/null
+++ b/day8.k
@@ -0,0 +1,19 @@
+/ use k-3.2
+
+d:0:"day8"
+
+ll: +/#:'d / literal length
+
+ue:{
+ s:_ssr[x;"\\\\";"z"]
+ s:_ssr[s;"\\\"";"z"]
+ :(#s)-2+3*+/"\\"=s
+}
+
+ml: +/ue'd / unencoded length
+
+ll-ml
+
+el: {2+(#x)+#&("\""=x)|("\\"=x)} / encoded length
+
+(+/el' d)-ll
-- 
cgit 1.4.1