- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
int p,k,l,i,j,d,q,R,t,r;
S1: s=0; p=1;
S2: if (s==0) { i=1; j=n; k=n; l=2*n+1; }
if (s==1) { i=n+1; j=2*n; k=0; l=n+1; }
d=1; q=p; r=p;
S3: if (x[i]>K>x[j]->K) goto S8;
S4: k=k+d; x[k]=x[i]; c[k]=c[i];
S5: i+=1; q-=1; if (q>0) goto S3;
S6: k+=d; if (k==l) goto S13; else x[k]=x[j];c[k]=c[j];
S7: j-=1; r-=1; if (r>0) goto S6; else goto S12;
S8: k+=d; x[k]=x[j]; c[k]=c[j];
S9: j-=1; r-=1; if (r>0) goto S3;
S10: k+=d; if (k==l) goto S13; else x[k]=x[i];c[k]=c[i];
S11: i+=1; q-=1; if (q>0) goto S10;
S12: q=p; r=p; d=-d; t=k; k=l; l=t; if (j-i<p) goto S10; else goto S3;
S13: p+=p; if (p<n) { s=1-s; goto S2; }
if (s==0) for (t=1; t<=n; t+=1) { x[t]=x[t+n];c[t]=c[t+n] }
Вот такой вариант сортировки предложен в одной известной книге. Оно работает...
Follow us!
прям машина тьюринга
а какого года книга?
ниасилил, каменты б хотяб..
20 GOTO HELL
20 MORE_TRIGONOMETRY
А чо, нормальная сортировка
шо за книга???!!
P.S. Под CAM, видимо, понимается Computer-Aided Manufacturing
https://vimeo.com/13497928
basic )
Освободите паццтул =)
Профессиональный индус писал :)
(хотя возможно через извращатель пропустили)
Жесть какая... А представьте если подобное дебажить... О_о
васик жив =)
Не дай бог такую книжку дети увидят...
Хотя вряд-ли. В Фортране только переменные, начинающиеся на i, j, k, l, m, n, являются целочисленными. А тут как целочисленные индексы использовались переменные на q, на r, на d и другие. К тому же Фортран не различает регистр символов.
> В Фортране только переменные, начинающиеся на i, j, k, l, m, n, являются целочисленными.
Сколь я помню фортран, там это можно переопределить.
А какая книга?
Ахтунг, C++ в 6 строке ;)
Ахтунги идут в http://govnokod.ru/2995
http://www.etsimo.uniovi.es/cscene/topics/algo/cs9-03.xml.html
Этот говнище код я выдрал из книги кнута - сортировка двусторонним слиянием.
6я строка не работает посудите сами почему: x[i]>K>x[j]->K - тут нет указателей, это обычные переменные и массивы.
Еще k не может принимать значения выше 500. хз почему. Я пытался исправить, но сами понимаете тут нечитаемо.
Представьте себе я с этой херью сдавал прогу. Препод попросил объяснить как работает код ))) Я объяснял долго и безуспешно )