day 4 optimize
This commit is contained in:
parent
24b33b4221
commit
98b4fafc9c
@ -4,7 +4,9 @@ op ch pad g =
|
|||||||
(g, (((rho g)[2]) rho ch)) ,% ((1 + (rho g)[1]) rho ch)
|
(g, (((rho g)[2]) rho ch)) ,% ((1 + (rho g)[1]) rho ch)
|
||||||
|
|
||||||
op adj g =
|
op adj g =
|
||||||
(1 rot g) + (-1 rot g) + (1 flip g) + (-1 flip g) + (1 rot 1 flip g) + (-1 rot 1 flip g) + (1 rot -1 flip g) + (-1 rot -1 flip g)
|
h = g + (1 rot g) + (-1 rot g)
|
||||||
|
v = h + (1 flip h) + (-1 flip h)
|
||||||
|
v - g
|
||||||
|
|
||||||
op solve g =
|
op solve g =
|
||||||
gx = 0 pad (g=="@")
|
gx = 0 pad (g=="@")
|
||||||
@ -21,12 +23,6 @@ op solve2 g =
|
|||||||
rx = remove gx
|
rx = remove gx
|
||||||
+/,(gx - rx)
|
+/,(gx - rx)
|
||||||
|
|
||||||
x = "@" == "." pad sample
|
|
||||||
x
|
|
||||||
adj x
|
|
||||||
""
|
|
||||||
x and 4 > adj x
|
|
||||||
|
|
||||||
solve sample
|
solve sample
|
||||||
solve2 sample
|
solve2 sample
|
||||||
|
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user