RosettaCodeData/Task/Cut-a-rectangle/Mathematica/cut-a-rectangle-2.math

mirror of https://github.com/acmeism/RosettaCodeData.git
size = {4, 3};
cr = CutRectangle[size];
Graphics[{Style[Rectangle[{0, 0}, size], FaceForm[], EdgeForm[Red]], Style[Arrow[#], Black], Style[Point[#], Black]}, ] & /@ cr["Solutions"]
	`size = {4, 3};`
	`cr = CutRectangle[size];`
	`Graphics[{Style[Rectangle[{0, 0}, size], FaceForm[], EdgeForm[Red]], Style[Arrow[#], Black], Style[Point[#], Black]}, ] & /@ cr["Solutions"]`