namespace FunctionalProgramming.Recursion
type Rectangle = { Origin : int * int ; Width : int ; Height : int }
let bottom, left = rect.Origin
let right, top = left + rect.Width , bottom + rect.Height
[| for j in [bottom .. top] do
for i in [left .. right] do
if i < j || i > (right - j) then
let width = rect.Width / 2
let height = rect.Height / 2
let r1 = { Origin = rect.Origin ; Width = width ; Height = height}
let r2 = { Origin = rect.Origin ; Width = rect.Width / 2 ; Height = rect.Height / 2}
let rec fractalize rect =
let lim = ( Array2D.length2 grid ) - 1
let str = grid |> Array2D.map (fun elem -> elem.ToString() )
printfn "%s" <| String.concat "" str.[*, (lim - j)]