Encomende um conjunto de seleção .... de qualquer forma possível

[x11start]

ter que selecionar um conjunto de elementos dispostos em linhas e colunas, mas que foram aleatoriamente inseridos.
Queria encontrar uma rotina "definitiva" que me ajudou a obter uma lista ordenada.
Como exemplo, tomamos textos dispostos assim:

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
4 5 6
7 8

lançamento:
(sing)

obteremos uma lista (tlst) que contenha conjuntos de seleção na sequência:
1-2-3-5-6-7-8-9

dando (selsort 2), o resultado será:
1-4-7-2-5-8-6-6-6-6-6-9

(selsort 3):
1-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-21-1-2

com (selsort 4)
3-6-2-5-8-1-4-7

... de 5 em diante teremos o mesmo, mas invertido:

1-2-3-4-5-6-7-8-9 vai se tornar 9-8-7-6-5-4-3-2-1

et cetera.

Tomei textos como exemplo, mas eles poderiam ser polilines, círculos etc.
este comando pode ser útil se você quiser fazer uma impressão sequencial de formatos a4 (polilina) dispostos em linhas e colunas.

Espero que seja útil.

 

[x11start]

Confesso que este lisp não é tudo "alimentação do meu saco": Eu tinha feito uma versão perfeitamente funcional, mas muito mais complicado, então eu pedi conselhos e me dei uma solução que então completei. Obrigado mhupp! seleções tipo .... todo o tipo de ordem