Існує "алгоритм сортування", який іноді називають сортом Сталіна, в якому для сортування списку ви просто вилучаєте елементи зі списку, поки він не буде відсортований у порядку збільшення. Наприклад, список

[1, 2, 4, 5, 3, 6, 6]

Коли "сортується" за допомогою Сталіна сортування стає

[1, 2, 4, 5, 6, 6]

Трійку вилучили, бо вона вийшла з ладу.

Зараз очевидно, що існує багато способів видалення елементів для сортування списку. Наприклад, будь-який список з менш ніж двома елементами повинен бути відсортований, тому просто видаляючи достатньо елементів наосліп, ми завжди можемо сортувати список. Оскільки це справа, ми дбаємо лише про якомога довший результат сталінського роду.

Вашим завданням буде скласти список натуральних чисел і вивести довжину найдовшого відсортованого (зростаючого) списку, до якого можна дійти, видаливши елементи з вихідного списку. Тобто знайдіть довжину найдовшого відсортованого (можливо, безперервного) підспису.

Відсортовані списки можуть мати один і той же елемент більше одного разу підряд. Вам не потрібно підтримувати порожній список, якщо сама програма не порожня.

Оцінка балів

Ваша відповідь буде оцінена за довжиною власного найдовшого сталінського роду. Програми будуть інтерпретуватися як послідовність байтів, а не символів, а їх порядок буде природним, що виникає, інтерпретуючи байти як числа. Нижчі бали кращі.

Це не код-гольф

Ось акуратний інструмент, який допоможе вам оцінити свої відповіді.

Тестові справи

[1, 2, 4, 5, 3, 6, 6] -> 6
[19, 2] -> 1
[3, 3, 4, 3] -> 3
[10] -> 1
[1, 2, 4, 9] -> 4
[1, 90, 2, 3, 4, 5] -> 5
[1, 90, 91, 2, 3, 4, 5] -> 5

Пітон 2 , довжина 14 12 10 9

M=max;X=exit;i=input();L=[0]*M(i)
for	a	in	i:L[a-1]=M(L[:a])+1
X(M(L))

Вихід здійснюється через код виходу.

Спробуйте в Інтернеті!

Як це працює

У будь-який час масив $L$ відслідковує найдовші відсортовані підмножини, що зустрічаються досі; $L[a-1]$ - довжина найдовшої, яка закінчується $a$ .

Спочатку ми не обробляли елементи масиву, тому $L$ складається повністю з нулів.

$a$$[L[0], \dots, L[a-1]]$$a$$a$$a$$L[a-1]$

$L$

Мова Вольфрама (Mathematica) , оцінка 9

Length@*LongestOrderedSequence

Спробуйте в Інтернеті!

Perl 6 , оцінка 9

*.combinations.map({@^a*[<=] @a}).max

Спробуйте в Інтернеті!

Haskell , оцінка 8 7, 48 байт

(l:k)%d|d>l=k%d|3>2=max(1+k%l)(k%d)
c%b=0
a=(%0)

Спробуйте в Інтернеті!

Найдовший відсортований список

%%%%%%)

Желе , довжина  4  2

ṢƑƇZLƲ}ŒP

Спробуйте в Інтернеті!

Байти на кодовій сторінці Jelly

183 146 144 90 76 169 125 19 80

Як це працює

ṢƑƇZLƲ}ŒP  Main link. Argument: A (array)

       ŒP  Powerset; yield P, the array of all sub-arrays of A.
     Ʋ     Vier; combine the preceding four links into a monadic chain...
      }    and apply the chain to the right argument (P).
  Ƈ            Comb; only keep arrays for which the link to the left returns 1.
ṢƑ             Sort fixed; yield 1 if sorting doesn't alter the array.
   Z           Zip; read the filtered powerset by columns.
    L          Take the length.

Pyth, оцінка 3 2 ( 7 байт)

leSI#y

Зберегли бал завдяки Андерсу Касеоргу.
Спробуйте тут

Пояснення

leSI#y
     yQ    Take the power set of the (implicit) input (preserving order).
  SI#      Get the ones that are sorted.
 e         Take the last (longest).
l          Get the length.

Штакс , 4 сортировка максимальної довжини

S{:^fF%|M

Запустіть і налагоджуйте його

Це працює так.

S       powerset of input
{:^f    filter by non-descending sequences
F%|M    take the maximum length remaining

R , оцінка 15 11, 72 62 байт

function(L,M=max,A=1:M(L)*0){for(Y in L)A[Y]=M(A[1:Y])+1;M(A)}

Спробуйте в Інтернеті!

Порт Денніс 'Питон відповідь Р.

Брахілог , довжина 2 (4 байти)

⊇≤₁l

Спробуйте в Інтернеті!

Відповідь, яка компенсує бути настільки стислою, не сортуючись значно коротше.

( 08 03 80 6Cна кодовій сторінці Брахілога)

        Output
   l    the length of
 ≤₁     a non-decreasing
⊇       sublist of
        the input.
        (maximizing the size of the sublist)