Mathematica, 50 -> 47 -> 42 bytes
p = Join[Range[2, #, 2], Range[1, #, 2]] &
Experimente online!
Agradecemos a user202729 por apontar o potencial de otimização duplo Join [] instalado do Flatten [] e usar funções puras.
Eu gostaria de acrescentar duas observações.
1) É bastante simples construir uma permutação específica sem sucessão decrescente ou crescente para n> = 4, conforme solicitado no PO.
Consiste em duas listas consecutivas.
Para n
iguais, são: list1 = (2,4, ..., n / 2)
list2 = (1,3, ..., n / 2-1)
Para o número ímpar n, temos:
list1 = (2,4, ..., andar [n / 2])
list2 = (1,3, ..., andar [n / 2])
Para esse "algoritmo", apenas uma decisão deve ser tomada (n par ou ímpar), o resto é apenas escrever n números.
Uma possível solução Mathematica é fornecida na parte superior.
2) Uma questão relacionada é quantas dessas permutas existem em função de n.
Mathematica, 124 bytes
a[0] = a[1] = 1; a[2] = a[3] = 0;
a[n_] := a[n] = (n + 1)*a[n - 1] - (n - 2)*a[n - 2] - (n - 5)*a[n - 3] + (n - 3)*a[n - 4]
Experimente online!
Exemplo:
a[#] & /@ Range[4, 12]
{2, 14, 90, 646, 5242, 47622, 479306, 5296790, 63779034}
Contar o número de tais permutações é um problema padrão.
Para n = 4, existem 2: {{2,4,1,3}, {3,1,4,2}}
Para n = 5, existem 14: {{1,3,5,2,4}, {1,4,2,5,3}, {2,4,1,3,5}, {2,4, 1,5,3}, {2,5,3,1,4}, {3,1,4,2,5}, {3,1,5,2,4}, {3,5,1, 4,2}, {3,5,2,4,1}, {4,1,3,5,2}, {4,2,5,1,3}, {4,2,5,3, 1}, {5,2,4,1,3}, {5,3,1,4,2}}
O número a (n) dessas permutações aumenta rapidamente: 2, 14, 90, 646, 5242, 47622, 479306, 5296790, 63779034, ...
Para n grande, a razão a (n) / n! parece se aproximar do limite 1 / e ^ 2 = 0,135335 ... Não tenho prova estrita, mas é apenas uma conjectura da evidência numérica. Você pode testar isso tentando executar o programa online.
O programa acima (com base na referência fornecida abaixo) calcula esses números.
Você pode encontrar mais informações na sequência relevante em OEIS: A002464 . O problema de Hertzsprung: maneiras de organizar n reis não atacantes em um tabuleiro n X n, com 1 em cada linha e coluna. Também número de permutações de comprimento n sem sucessões crescentes ou decrescentes.