From 4af2965c747210abb8ca2a405b45bcd1e513074e Mon Sep 17 00:00:00 2001
From: Christian Neukirchen <chneukirchen@gmail.com>
Date: Wed, 9 Dec 2015 14:17:12 +0100
Subject: day9

---
 day9.k | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 day9.k

(limited to 'day9.k')

diff --git a/day9.k b/day9.k
new file mode 100644
index 0000000..4ae90d1
--- /dev/null
+++ b/day9.k
@@ -0,0 +1,18 @@
+d:0:"day9";
+
+ss:{1 _' (&y=y,x) _ y,x}; / split x at y
+l:ss[;" "]' d;
+
+perm: {:[1<x;,/(>:'(x,x)#1,x#0)[;0,'1+_f x-1];,!x]};
+
+dist:[];
+{.[`dist;`$x[0 2];:; 0$x[4]]
+ .[`dist;`$x[2 0];:; 0$x[4]]
+}'l;
+
+places: !dist;
+
+ds:{+/dist':x}'places@perm@#places;
+
+&/ds / shortest route
+|/ds / longest route
-- 
cgit 1.4.1