Умение разбираться в чужом коде

#codingskills #программирование #навыки #разработка_по #haskell #специальнаяолимпиада #demoscene #демосцена

Программирование это такой вид деятельности, где шиза и попадание в дурку являются профессиональными рисками. И сейчас я расскажу почему.

Вглядитесь в этот код:

Даже не пытайтесь это понять.

Не важно сколько лет вы занимаетесь разработкой и на каких языках, без вот этой магической ссылки, либо без исключительной удачи ~~всвязи с тяжелыми жизненными обстоятельствами,~~ разобраться в том что делает код выше — у вас не получится.

Как так получилось

Да как обычно, сложилось исторически.

Написание кода, с момента появления компьютера, превратилось в такое же меряние х#ями, как и все остальные виды сугубо мужской деятельности.

И автор кода из примера выше зашел в этой деятельности очень и очень далеко, практически победил.

Стоит включить фантазию, выключить заботу об окружающих — и вуа-ля!

На свет ~~выползает~~ появляется такая штука как Haskell.

Его величество лямбда.

Here is a more useful example of Real World Haskell programming:

fix$(<gt;)<gt;(:)<*>((<gt;((:[{- thor's mother -}])<gt;))(=<<)<gt;(*)<gt;(*2))$1

Да это реально работающая программа на хаскелле. Ну что, все еще хотите «разбираться в чужом коде»?

Тогда едем дальше.

Демосцена

Сможете впихнуть в программу размером 4кб графику и 3D-эффекты с музыкой? Честь вам и хвала если так, ~~добро пожаловать в офицеры, вот ваш маузер и портсигар.~~

Пример ребят которые смогли:

Одна из самых знаменитых демо.

Но 4096 байт это ведь много для настоящего джедая, поэтому кое-то решил пойти дальше. 32 байта на все:

А это код, весь код:

mov al,0x13		;	 Bildschirmmodusbeschreibungskonstante
int 0x10		;	 Bildschirmmodussetzungsbefehl
push 0x9FF8		;	 Grafikspeicheradressenstapelung
pop es			;	 Segmentregisterstapelspeicherumwandlung
X mov si,cx		;	 Ersatzbildschimkoordinateninitialisierung
mov bl,16		;	 Maximaliterationswertfestlegung
L sub si,di		;	 Keftaleszusammenhangverschweigungssubtraktion
mov ax,409		;	 Rrrolatrickerweiterungszuweisung
imul si			;	 Bildschirmzeigerkoordinationumwandlung
ror dx,1		;	 Raumgeometrieschnittpunktsberechnung
dec bx			;	 Iterationszaehlererniedrigung
ja L			;	 TrefferOderMaximaliterationsabbruch
lea ax,[bx+16]	;	 Pixelfarbenpalettenmodifikationstrick
stosb			;	 Bildschirmvisualisierungskommando
loop X			;	 Schleifenzaehlererniedrigungssprunganweisung
loop X			;	 Schleifenzaehlererniedrigungssprunganweisung

Сможете разобраться как это работает?

Это ведь не простыни ~~однородного кала~~ однотипного говнокода на джаве или шарпе — всего 16 строчек, с комментариями.

Думаю хера с два, ибо это и есть искусство.

А вы до него не доросли.

Но тема со спортивным задротством не была бы раскрыта полностью без специальной олимпиады, для особенных да.

Специальная олимпиада

На свете существуют специальные ~~олимпиады~~ конкурсы, где соревнуются в создании самого непонятного кода.

Даже призы дают.

Вот например один из финалистов 2020 года:

 #include/**/<time.h>
                               #include <ncurses.h>
                               # include <stdlib.h>
             /**               */#define O()for(y-=               !!\
           y;y<H&&           /*...Semi-Automatic.*/y<           p/W+2;\
         y++)for(x=p%   W,x-=!!/*..MineSweeper...*/x;x<W&&   x<p%W+2;x++)
       #define _(x,y)COLOR_##x,COLOR_##y /*  click / (R)estart / (Q)uit  */
     #define Y(n)attrset(COLOR_PAIR(n)),mvprintw(/* IOCCC2019 or IOCCC2020 */
   typedef int I;I*M,W,H,S,C,E,X,T,c,p,q,i,j,k;char G[]=" x",U[256];I F(I p){ I
      r=0,x,y=p/W,q;O()q=y*W+x,r+=M[q]^=p-q?(M[q]&16)<<8:0;return r;}I K(I p
         ,I f,I g){ I x=(g+     f/256)%16-(f+g/256)%16,y=p/W,c=0,n=g/4096
          ,m=x==n?0:x==g           /16%16-f/16%16-n?256:-1; if(m+1)O()if
         ((4368&M[n=y*W             +x])==4112){ M[c=1,n]=(M[n]&~16)|m; }
        return c;}void              D(){I p,k,o=0,n=C,m=0,q=0;if(LINES-1<H
       ||COLS/2<W)clear             (),Y(4)LINES/2,COLS/2-16,"Make the ter\
minal bigger!");else{for           (p=0;p<S;o+=k==3,Y(k)p/W+1,p%W*2,G),p++)G[1]=""
"_*!..12345678"[k=E?256&M[p     ]?n--,2:E-2||M[p]%2<1?M[p]&16?q=p,m++,3:4+F(p)%16:
1:3];k=T+time(0);T=o||T>=0||E-1?T:k;k=T<0?k:T;Y(7)0,0,"%03d%*s%03d",n>999?999:n,W*
2-6,"",k>999?999:k);Y(9)0,W-1,E>1?"X-(":E-1||o?":-)":"8-)");M[q]|=256*(n==m&&n); }
refresh();}short B[]={_(RED,BLACK),_(WHITE,BLUE),_(GREEN,RED),_(MAGENTA,YELLOW),_(
CYAN,RED)};I main(I A,char**V){MEVENT e;FILE*f;srand(time(0));initscr();for(start\
_color();X<12;X++){init_pair(X+1,B[X&&X<10?X-1:2],B[X?X<3?2:1:0]);}noecho();cbreak
();timeout(9);curs_set(0);keypad(stdscr,TRUE);for(mousemask(BUTTON1_CLICKED|BUTTO\
N1_RELEASED,0);;){S=A<2?f=0,W=COLS/2,H=LINES-1,C=W*H/5,0:fscanf(f=fopen(V[A-1],"r"
       ),"%d %d %d",&W,&H,&C)>3; ;S+=W*H;M=realloc(M,S*sizeof(I)*2);for(i=0
        ;i<S;i++)!f?M[i]=i,i&&(k=M[j=rand()%i],M[j]=M[i],M[i]=k):fscanf(f,
         "%d",M+i);if(f)fclose(f);T=E=X=0;for(clear();D(),c=getch(),c-'r'
          &&(c-KEY_RESIZE||E);){ if(c=='q'){ return(endwin(),0); }if(c==
        KEY_MOUSE&&getmouse(&e)==OK&&e.x/2<W&&e.y<=H){if(!e.y&&(W-2<e.x&&
      e.x<W+2)){break;}p=e.x/2+e.y*W-W;if(p>=0){if(!E){for(i=0;i<S;i++)M[S+M
   [i]]=i,M[i]=16+(M[i]<C);C-=M[p]&1;M[p]=16;E=1;T=-time(0);}if(E<2)M[p]&=(M[p]
     &257)==1?T+=time(0),E=2,273:257;}}for(p=0;p<S&&E==1;M[p++]&=273){}for(i=
       (X+S-1)%S;E==1&&i!=X;X=(X+1)%S){if(!(M[p=M[X+S]]&272)){if(K(p,c=F(p)
         ,0)){goto N;}   for(k=p/W-2,k=k<0?0:k;k<p/W+3&&k   <H;k++)for(j=
           p%W-2,j          =j<0?0:j;j<W&&j<p%W+3;)if           (!(M[q=
             k*W               +j++]&272)){ if(K(p,               c,F
                               (q))){ goto N; }F(q)
                               ; }F(p); }}N:; } } }
                               /*(c)Yusukse Endoh*/

Да, это тоже исходный код, умение разбираться в котором у вас просят на собеседованиях.

Perl

Конечно рассказ про компьютерную шизу был бы неполным без примера на этом замечательном языке:

$|++,$a=$b='Ktru!`onuids!Qdsm!i`bjds-',$==length$b,$b^="\01"x$=,
@_=map{chr}(32..126);while($=>(($a^$b)=~tr/\x0//)){for(sort{rand
>.5}1..$=){substr($a,$_-$|,1)ne(substr($b,$_-1,1))and substr($a,
$_-$|,1)=@_[rand@_],print"\r",$a;select($,,$,,$,,.001)}};print$/

Вот как это выглядит:

Собственно разработка на перле всегда подразумевала автоматическое участие в специальных олимпиадах на самый нечитаемый код. И это считалось нормой.

Думаете это предел?

Конечно же нет, ведь на свете существуют:

Экзотерические языки

Официально смысл их существования такой:

An esoteric programming language (sometimes shortened to esolang) is a programming language designed to test the boundaries of computer programming language design, as a proof of concept, as software art, as a hacking interface to another language (particularly functional programming or procedural programming languages), or as a joke

https://en.wikipedia.org/wiki/Esoteric_programming_language

Но мы-то понимаем что настоящая причина все та же:

выяснить у кого длинее и толще.

Как вам такая красота:

(=BA#9"=<;:3y7x54-21q/p-,+*)"!h%B0/.
~P<
<:(8&
66#"!~}|{zyxwvu
gJ%

Способны рассказать что делает этот код без очередной магической ссылки? Из всего моего круга знакомств никто не смог, хотя кое-кто из них и сидит в FAANG.

Эпилог

Конечно врядли вы встретитесь с таким ~~злом~~ в живом проекте. Да и сдавать вашу тестовую или тем более коммерческую работу с описанными приемами — точно не стоит.

Поэтому описанное — всего лишь примеры того, что будет если зайти в программировании слишком далеко.