Ответ

moko 19.07.2023 23:38

если под условие подпадают все строки

Это легко обходится дополнительной проверкой. Но зато это линейный алгоритм, а while + locate - квадратичная зависимость от числа элементов. При 10000 элементах в первом случае время исполнения будет сотые секунды, во втором - порядка секунды. Но понятно, что в пределах сотен элементов разница несущественна.

$t[^table::create{p}]
^for[i](1;10000){
    ^t.append{^math:random(10)}
}

^t.menu{
    ^while(^t.count[] && $t.p < 5){
	^t.delete[]
    }
}

#^while(^t.locate($t.p < 5)){
#    ^t.delete[]
#}

$result[^t.count[]]

---