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 + (20, 0), A + (20, -12), A + (15, -12), A + (15, -5), A + (5, -15), A + (5, -8), A + (0, -8))
S3 = PointIn(pol)
S4 = Point(pol)
S2 = PointIn(pol)
S1 = Point(pol)
candidato: {S1, S2, S3, S4}
sol: {A + (12, 0), A + (12, -5), A + (5, -5), A + (10, -10)}
resuelto: candidato ≟ sol ∨ Reverse[candidato] ≟ sol
visible = false
cua1 = Sequence(Segment[A + (s, 0), A + (s, -8)], s, 1, 5)
cua2 = Sequence(Segment[A + (s + 5, 0), A + (s + 5, s - 15)], s, 1, 10)
cua3 = Sequence(Segment[A + (s + 15, 0), A + (s + 15, -12)], s, 1, 4)
cua4 = Sequence(Segment[A + (0, -s), A + (20, -s)], s, 1, 5)
cua5 = Sequence(Segment[A + (0, -s - 5), A + (15 - s, -s - 5)], s, 1, 3)
cua6 = Sequence(Segment[A + (15, -s - 5), A + (20, -s - 5)], s, 1, 7)
cua7 = Sequence(Segment[A + (5, -s - 8), A + (12 - s, -s - 8)], s, 1, 6)
f = PolyLine(S1, S2, S3, S4)