Sierpinski pentagon: Difference between revisions
m
→{{header|Julia}}
Line 576:
varr = [vertices[parse(Int, ch) + 1] for ch in split(string(i, base=sides, pad=order), "")]
vector = sum(map(x -> varr[x] * orders[x], 1:length(orders)))
vprod = map(x -> vector + orders[end] * (1-scale) * x, vertices)
points = join([@sprintf("%.3f %.3f", real(v), imag(v)) for v in vprod], " ")
| |||