Kleinste element in een lijst zoeken to kleinste :lijst
if equalp 1 count :lijst [output first :lijst]
make "restkleinste kleinste butfirst :lijst
ifelse lessp first :lijst :restkleinste [
output first :lijst
] [
output :restkleinste
]
end
Selection Sort
Een element uit de lijst halen to verwijder :item :lijst
if emptyp :lijst [output lijst]
ifelse equalp :item first :lijst [
output butfirst :lijst
] [
output sentence first :lijst verwijder :item butfirst :lijst
]
end
Selection Sort
Sorteren to sorteer :lijst
if emptyp :lijst [output :lijst]
make "kleinsteElement kleinste :lijst
output sentence :kleinsteElement sorteer verwijder :kleinsteElement :lijst
end
Selection Sort
Tellen van het aantal vergelijkingen vervang lessp door minderp!
make "aantal 0
to minderp :el1 :el2
make "aantal :aantal +1
end
sorteer [.....]
print :aantal
Comments