diff --git a/p6linear.dyalog b/p6linear.dyalog
new file mode 100644
index 0000000..d23010b
--- /dev/null
+++ b/p6linear.dyalog
@@ -0,0 +1,4 @@
+p←↑⍎¨⊃⎕NGET'p6.txt'1
+sort←{(⊂⍋⍵)⌷⍵}
+f←{+\(+/⍵),¯1↓(-≢⍵)++\0,z⊣z[⍵]+←2⊣z←0/⍨⌈/⍵}
++/(sort f⊣/p)⍸9999-f⊢/p ⍝ part 2