RosettaCodeData/Task/Cut-a-rectangle/Mathematica/cut-a-rectangle-2.math
2023-07-01 13:44:08 -04:00

3 lines
181 B
Text

size = {4, 3};
cr = CutRectangle[size];
Graphics[{Style[Rectangle[{0, 0}, size], FaceForm[], EdgeForm[Red]], Style[Arrow[#], Black], Style[Point[#], Black]}, ] & /@ cr["Solutions"]