Padovan sequence: Difference between revisions

m
m (simpler output)
Line 1,198:
 
""" LSystem Padowan """
step(rules, current) = (s = ""; for c in current s *= rules[string(c)] end; s)
 
function list_LsysPadowan(N)
rules = Dict("A" => "B", "B" => "C", "C" => "AB")
seq, lens = ["A"], [1]
for i in 1:N
str = stepprod([rules,[string(c)] for c in seq[end]])
push!(seq, str)
push!(lens, length(str))
Line 1,211 ⟶ 1,209:
end
 
list_rPadowan(N)const lr, lf = [rPadovan(i) for i in 1:N64], [fPadovan(i) for i in 1:64]
list_fPadowan(N) = [fPadovan(i) for i in 1:N]
const lr, lf = list_rPadowan(64), list_fPadowan(64)
const sL, lL = list_LsysPadowan(32)
println("N Recursive Floor LSystem String\n=============================================")
4,105

edits