Instantly share code, notes, and snippets.

View fs-tree-func.fs
let rec drawTreeOther layer height =
if layer = height then
printfn "%41s\n%41s" "xx" "xx"
else
let w = (layer + 1) * 2
printfn "%s%s" (String.replicate ((80 - w) / 2) " ") (String.replicate w "x")
drawTreeOther (layer + 1) height