Comprobar

¡Muy bien, enhorabuena!

No es correcto, inténtalo de nuevo

A = (-3, 8)
pol, a, b, c, d, e, g, h, i = Polygon(A, A + (3, 3), A + (6, 0), A + (18, 0), A + (18, -12), A + (15, -9), A + (12, -12), A + (0, -12))
S6 = PointIn(pol)
S5 = PointIn(pol)
S4 = PointIn(pol)
S3 = PointIn(pol)
S7 = Point(pol)
S2 = PointIn(pol)
S1 = Point(pol)
candidato: {S1, S2, S3, S4, S5, S6, S7}
sol: {A + (6, 0), A + (3, -3), A + (6, -6), A + (9, -3), A + (12, -6), A + (9, -9), A + (12, -12)}
resuelto: candidato ≟ sol ∨ Reverse[candidato] ≟ sol
visible = false
cua1 = Sequence(Segment[A + (s, s), A + (s, -12)], s, 1, 3)
cua2 = Sequence(Segment[A + (3 + s, 3 - s), A + (s + 3, -12)], s, 1, 3)
cua3 = Sequence(Segment[A + (s + 6, 0), A + (s + 6, -12)], s, 1, 6)
cua4 = Sequence(Segment[A + (s + 12, 0), A + (s + 12, -12 + s)], s, 1, 3)
cua5 = Sequence(Segment[A + (s + 15, 0), A + (s + 15, -9 - s)], s, 1, 3)
cua6 = Sequence(Segment[A + (s, s), A + (6 - s, s)], s, 0, 2)
cua7 = Sequence(Segment[A + (0, -s), A + (18, -s)], s, 1, 9)
cua8 = Sequence(Segment[A + (0, -s - 9), A + (15 - s, -s - 9)], s, 1, 2)
cua9 = Sequence(Segment[A + (15 + s, -s - 9), A + (18, -s - 9)], s, 1, 2)
f = PolyLine(S1, S2, S3, S4, S5, S6, S7)