Η καινούργια εκδοχή είναι όπως βλέπετε ποιό πολύπλοκη αλλά μειώνει κατά 80% το χρόνο στην περίπτωση βάθους 9. Αυτό που παραρατηρήσαμε είναι ότι τα πλήθη των δακτυλίων από εξάγωνα καθώς μετακινούμαστε από το κέντρο προς τα έξω σχηματίζουν την ακολουθία: 1 -> 6 -> 12 -> 18 -> 24 -> ... -> ν -> ν+6 . Αυτό σημαίνει ότι στην αρχή έχουμε την ειδική περίπτωση όπου κάθε εξάγωνο πρέπει να σχηματίσει και δύο εξωτερικά αλλά μετά ο κανόνας είναι κάθε εξάγωνο να σχηματίζει 2 εξωτερικά και το δίπλανό του 1 . Αυτή σε γενικές γραμμές είναι η λογική που προσπάθησα να υλοποιήσω.#hextiling 220411
#GPL
# https://blogs.sch.gr/aprekates
reset
learn hextile $d , $f {if $d == 0 {
return
}
$d = $d-1
fw 10
tl 60
if $d == $depth {
hextile $d , 0
}
tr 60
tr 60
fw 10
tl 60
if ( $d == $depth) {
hextile $d , 2
}
else {
if ( $d == ($depth-1) ) {
hextile $d, 2
}
else {
if ( $d < ($depth-1) ) {
hextile $d ,2
}
}
}
tr 60
tr 60
fw 10
tl 60
if ( $d == $depth) {
hextile $d , 2}
else {
if ( $d == ($depth-1) ) {
hextile $d, 1
}
else {
if ( ($d < ($depth-1)) and ($f == 2) ) {
hextile $d ,1
}
}
}
tr 60
tr 60
fw 10
tl 60
if $d == $depth {
hextile $d , 0
}
tr 60
tr 60
fw 10
tl 60
if $d == $depth {
hextile $d, 0
}
tr 60
tr 60
fw 10
tl 60
if $d == $depth {
hextile $d, 0
}
tr 60
tr 60}$depthg = ask "Give depth"
$depth = $depthg - 1
hextile $depthg , 0