Rješenje zadatka

to cvijet :n :s
setturtle 0
pu repeat 1 [fd 100 rt 45] pd
spirala :n :s

setturtle 1
pu repeat 2 [fd 100 rt 45] pd
spirala :n :s

setturtle 2
pu repeat 3 [fd 100 rt 45] pd
spirala :n :s

setturtle 3
pu repeat 4 [fd 100 rt 45] pd
spirala :n :s

setturtle 4
pu repeat 5 [fd 100 rt 45] pd
spirala :n :s

setturtle 5
pu repeat 6 [fd 100 rt 45] pd
spirala :n :s

setturtle 6
pu repeat 7 [fd 100 rt 45] pd
spirala :n :s

setturtle 7
pu repeat 8 [fd 100 rt 45] pd
spirala :n :s
end

to spirala :n :s
repeat 24 [setpc ((random 9)+16) fd :s lt 360/:n make "s :s+2]
end