Comprobar

¡Muy bien, enhorabuena!

No es correcto, inténtalo de nuevo

A = (-1, 9)
sol: {A + (5, 0), A + (5, -5), A + (10, -5)}
pol, a, b, c, d, e = Polygon(A, A + (20, 0), A + (10, -10), A + (10, -5), A + (0, -15))
S3 = Point(pol)
S2 = PointIn(pol)
S1 = Point(pol)
candidato: {S1, S2, S3}
f = PolyLine(S1, S2, S3)
cua1 = Sequence(Segment[A + (s, 0), A + (s, s - 15)], s, 1, 10)
cua2 = Sequence(Segment[A + (s + 10, 0), A + (s + 10, s - 10)], s, 1, 10)
cua3 = Sequence(Segment[A + (0, -s), A + (20 - s, -s)], s, 1, 5)
cua4 = Sequence(Segment[A + (0, -s - 5), A + (10 - s, -s - 5)], s, 1, 9)
cua5 = Sequence(Segment[A + (10, -s - 5), A + (15 - s, -s - 5)], s, 1, 4)
resuelto: candidato ≟ sol ∨ Reverse[candidato] ≟ sol
visible = false