Defelo
diff --git a/‎APL/2021/01.apl
+3 b/‎APL/2021/01.apl
+3
diff --git a/‎APL/2021/01.ipynb
-88 b/‎APL/2021/01.ipynb
-88
diff --git a/‎APL/2021/02.apl
+3 b/‎APL/2021/02.apl
+3
diff --git a/‎APL/2021/02.ipynb
-88 b/‎APL/2021/02.ipynb
-88
diff --git a/‎APL/2021/03.apl
+3 b/‎APL/2021/03.apl
+3
diff --git a/‎APL/2021/03.ipynb
-88 b/‎APL/2021/03.ipynb
-88
diff --git a/‎APL/2021/04.apl
+5 b/‎APL/2021/04.apl
+5
diff --git a/‎APL/2021/04.ipynb
-90 b/‎APL/2021/04.ipynb
-90
diff --git a/‎APL/2021/05.apl
+4 b/‎APL/2021/05.apl
+4
@@ -0,0 +1,3 @@
+input ← ⍎¨⊃⎕NGET'../.cache/2021/1' 1
+⎕ ← +/2</ input
+⎕ ← +/2</3+/ input
@@ -0,0 +1,3 @@
+input ← {a b←' '(≠⊆⊢)⍵⋄a (⍎b)} ¨ ⊃⎕NGET '../.cache/2021/2' 1
+⎕ ← ×/⊃{d h←⍵⋄(d+((2⊃⍺)×'d'≡⊃⊃⍺)-((2⊃⍺)×'u'≡⊃⊃⍺)) (h+((2⊃⍺)×'f'≡⊃⊃⍺))}/⌽(⊂(0 0)), input
+⎕ ← ×/1↓⊃{a h d←⍵⋄(a+((2⊃⍺)×'d'≡⊃⊃⍺)-((2⊃⍺)×'u'≡⊃⊃⍺)) (h+((2⊃⍺)×'f'≡⊃⊃⍺)) (d+((a×2⊃⍺)×'f'≡⊃⊃⍺))}/⌽(⊂(0 0 0)), input
@@ -0,0 +1,3 @@
+input ← ⊃⎕NGET '../.cache/2021/3' 1
+⎕ ← ×/⊃{⍺+2×⍵}/⌽(⊢,~)∘{(≢⍵)≤2×+/⍎¨⍵}¨↓⍉↑ input
+⎕ ← ×/{2⊥⍎¨⍵}¨{x←⍵⋄⊃⊃{i←⍺⋄m←{(x+1)⊃⍵,~⍵}{(≢⍵)≤2×+/⍎¨⍵}i⊃↓⍉↑⍵⋄o←({m=⍎i⊃⍵}¨⍵)/⍵⋄(1+0=≢o)⊃o ⍵}/⌽(⊂input),⍳≢⊃input}¨0 1
@@ -0,0 +1,5 @@
+input ← ⊃⎕NGET '../.cache/2021/4' 1
+nums ← ⍎¨','(≠⊆⊢)⊃input
+boards ← {{⍎¨' '(≠⊆⊢)⍵}¨¨({0≠≢⍵}¨⍵)⊆⍵}2↓input
+⎕ ← {i b←⍵⋄w←{({∨/(∧/¯1=⊢)¨⍵,↓⍉↑⍵}¨⍵)/⍵}b⋄0<≢w:((i-1)⊃nums)×+/(∊⊃w)~¯1⋄∇(1+i)({⍵=(i⊃nums):¯1⋄⍵}¨¨¨b)}1 boards
+⎕ ← {i b←⍵⋄w←{({∨/(∧/¯1=⊢)¨⍵,↓⍉↑⍵}¨⍵)/⍵}b⋄(0<≢w)∧1=≢b:((i-1)⊃nums)×+/(∊⊃w)~¯1⋄∇(1+i)({⍵=(i⊃nums):¯1⋄⍵}¨¨¨b~w)}1 boards
@@ -0,0 +1,4 @@
+input ← ((⍎¨','(≠⊆⊢)⊢)¨(⊂'->')~⍨' '(≠⊆⊢)⊢)¨⊃⎕NGET '../.cache/2021/5' 1
+iter ← {a b←⍵⋄a≡b:⊂b⋄(⊂a),∇(a+×b-a) b}
+⎕ ← +/2≤≢¨⊢/{⍺ ⍵}⌸⊃,/iter¨{(∨⌿⍉↑=⌿⍉↑⍵)/⍵} input
+⎕ ← +/2≤≢¨⊢/{⍺ ⍵}⌸⊃,/iter¨ input
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+input ← ⍎¨⊃⎕NGET'../.cache/2021/1' 1`
	`2`	`+⎕ ← +/2</ input`
	`3`	`+⎕ ← +/2</3+/ input`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+input ← {a b←' '(≠⊆⊢)⍵⋄a (⍎b)} ¨ ⊃⎕NGET '../.cache/2021/2' 1`
	`2`	`+⎕ ← ×/⊃{d h←⍵⋄(d+((2⊃⍺)×'d'≡⊃⊃⍺)-((2⊃⍺)×'u'≡⊃⊃⍺)) (h+((2⊃⍺)×'f'≡⊃⊃⍺))}/⌽(⊂(0 0)), input`
	`3`	`+⎕ ← ×/1↓⊃{a h d←⍵⋄(a+((2⊃⍺)×'d'≡⊃⊃⍺)-((2⊃⍺)×'u'≡⊃⊃⍺)) (h+((2⊃⍺)×'f'≡⊃⊃⍺)) (d+((a×2⊃⍺)×'f'≡⊃⊃⍺))}/⌽(⊂(0 0 0)), input`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+input ← ⊃⎕NGET '../.cache/2021/3' 1`
	`2`	`+⎕ ← ×/⊃{⍺+2×⍵}/⌽(⊢,~)∘{(≢⍵)≤2×+/⍎¨⍵}¨↓⍉↑ input`
	`3`	`+⎕ ← ×/{2⊥⍎¨⍵}¨{x←⍵⋄⊃⊃{i←⍺⋄m←{(x+1)⊃⍵,~⍵}{(≢⍵)≤2×+/⍎¨⍵}i⊃↓⍉↑⍵⋄o←({m=⍎i⊃⍵}¨⍵)/⍵⋄(1+0=≢o)⊃o ⍵}/⌽(⊂input),⍳≢⊃input}¨0 1`