DiBR
обычная кошмарная
домашняя страничка
Ежекакполучится околокомпьютерное обозрение
 
  <<<  предыдущий Tech! archive #299 следующий  >>>  
   Последний выпуск       Архив       Ссылки       Полезности       humor.filtered       Фотки       О сайте   
          Это - достаточно беспорядочный архив сообщений конференций сети fidonet, которые на момент их прочтения мной показались полезными или интересными. Многие устарели, многие узкоспецифичны и малоинтересны, но может оказаться и что-то новое...
         
- __techs (2:5015/42) ----------------------------------------------- __techs -
Msg  : 299 of 1000                         Scn
From : Michael Ilyin                       2:5015/56       08 Feb 97  16:33:44
To   : All                                                 08 Feb 97  18:18:58
Subj : Вот'c полюбуйтесь... :-)
-------------------------------------------------------------------------------
@AREA:GENERAL.FAILURE.IZVRAT.SENIA
Hello All!


========================================
* Forwarded by Michael Ilyin (2:5015/56)
* Area : SU.OOP (SU.OOP)
* From : Andre Belokon, 2:467/67.22 (Thursday February 06 1997 22:45)
* To   : All
* Subj : Вот'c полюбуйтесь... :-)
========================================

>К вопpосу читаемости кода, написанного на pазных языках ;))

[ Article reposted from relcom.fido.su.c-c++ ]
[ Author was Andrew Kirienko <Andrew_Kirienko@p21.f239.n5020.z2.fidonet.org> ]
[ Posted on Wed, 29 Jan 1997 21:18:00 +0300 ]

Привет All!
           Kак бодрость духа !?

%Subj%
Года эtак четыре назад а FidoNet'е пробегала вот такая маленькая
программулина, роясь в своих архивах я её обнаружил:

File : CRAZY.C
Size : 856bytes
--------------------

#include <stdio.h>
main (int t, int _, char *a)
{
return!0<t?t<3?
main(-79,-13,a+main(-87,1-_,main(-86,0,a+1)+a)):1,t<_?main(t+1,_,a)
:3,main(-94,-27+t,a)&&t==2?_<13?main(2,_+1,"%s %d %d\\n"):9:16:t<0?t<-72?
main(_,t,"@n'+,#'/*s{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n\\
{n+,/+#n+,/# ;#q#n+,/+k#;*+,/'r :'d*'3,}{w+K w'K:'+}e#';dq#'l q#'+d'K#!\\
/+k#;q#'r}eKK#}w'r}eKK{nl]'/#;#q#n'){)#}w'){){nl]'/+#n';d}rw' i;# ){nl]!\\
/n{n#'; r{#w'r nc{nl]'/#{l,+'K {rw' iK{;[{nl]'/w#q#n'wk nw' iwk{KK{nl]!/\\
w{%'l##w#' i; :{nl]'/*{q#'ld;r'}{nlwb!/*de}'c ;;{nl'-{}rw]'/+,}##'*}\\
#nc,',#nw]'/+kd'+e}+;#'rdq#w! nr'/ ') }+}{rl#'{n' ')# }'+}##(!!/")
:t<-50?_==*a?putchar(31[a]):
main(-65,_,a+1):
main((*a=='/')+t,_,a+1):
0<t?main(2,2,"%s")
:*a=='/'||main(0,main(-61,*a,
"!ek;dc i@bK'(q)-[w]*%n+r3#l,{}:\\nuwloca-O;m .vpbks,fxntdCeghiry"
),a+1);
}

Всё это хозяйство компилится (Turbo C, Borland C++) и работает ;-[ ]
Hа экран выводится текст песенки ~2Kb.

Только вот _KАK_ это всё происходит для меня и по сей день остаётся
загадкой... :-(
Может кто-то признает здесь своё авторство?

P.S.
   В опциях компилятора требуется _выключить_ опцию: Test stack overflow
P.P.S.
   Kстати и со включённой опцией получится вполне осмысленная фраза ;-))

=============================================================================

             Здравствуй почтеннейший All !

Я надеюсь всем понpавился стиль, в котоpом выдеpжанна эта пpогpамма ;))

   Hа сим откланиваюсь.
                                         Andre Belokon
                             [Team пофигизма и ничегонеделанья]

-+- Мутант третьего ранга, с полным приветом, ваш навсегда парнокопытный Дед.
+ Origin:  Frank Za (FidoNet 2:467/67.22)
========================================

Michael

--- г.Дед 2.50.Beta4+
* Origin: Кто тащит почту по утрам - тот поступает мудро! (FidoNet 2:5015/56)






<<<

архив dibr

>>>'