diff --git a/p14.dyalog b/p14.dyalog
new file mode 100644
index 0000000..b05bced
--- /dev/null
+++ b/p14.dyalog
@@ -0,0 +1,12 @@
+⎕IO←0
+input←⍎⊃⊃⎕NGET'p14.txt'1
+scores←3 7
+
+nxt←{(≢scores)|⍵+1+cur⊣scores,←(t<10)↓10 10⊤t←+/cur←scores[⍵]}
+super←{nxt⍣(⌈0.2×≢scores)⊢⍵}
+pos←super⍣{input<¯10+≢scores}0 1
+∊⍕¨r←10↑input↓scores ⍝ part 1
+
+match←⍎¨⍕input
+{}super⍣{∨/match⍷scores}pos
+⊃⍸match⍷scores ⍝ part 2
diff --git a/p14.txt b/p14.txt
new file mode 100644
index 0000000..ff462dc
--- /dev/null
+++ b/p14.txt
@@ -0,0 +1 @@
+640441