Публикации с меткой «невозможное»

Я не люблю компьютерные игры. Я, как человек увлекающийся, требую от игры полного погружения, чтобы она меня захватывала, втягивала и не отпускала. Такие игры делают невероятно редко, навскидку могу назвать Mafia: The City of Lost Heaven и Transport Tycoon Deluxe (и его современную реинкарнацию: openttd).

Так вот, Mafia меня поглотила в своё время месяца на два-три, великолепная игра, атмосферная и всё такое. И немалую в атмосферизации роль сыграла музыка, джаз времен гангстерской Америки. Помнится, я тогда задавался вопросом, где бы послушать такой музыки. Дело в том, что к джазу я отношусь очень хорошо, но не фанатично. Я люблю его слушать и часто это делаю, но не делаю из этого культа, поэтому в именах и направлениях не силён и не стремлюсь. Никто тогда не смог мне ответить на мой вопрос и он как-то сам по себе отпал. Сегодня днём я как-то мигрировал по плейлисту и зацепился за джазовую радиостанцию, при прослушивании которой у меня возникла четкая ассоциация с саундтреком Мафии. Я полез в википедию и выяснил кто же всё-таки там задействован.

А задействован там среди прочих некий Django Reinhardt. Этот товарищ в своё время вызывал у меня кучу негатива, когда я гуглил что-то по джанге и среди прочего гугл настоятельно упоминал его. Я думал это какой-нибудь нью-эйджер или унылый реггивопитель. А тут такое совпадение. Таким образом, я теперь фанат двух джанг.

Вот такое случается в нашей маленькой психиатрической больнице.

P.S. Многие мужчины очень крутейски отметили свой праздник — 8-ое марта. Столько пьяных, весёлых мужчин с цветами. Пока шел от метро до дома многие предлагали мне свои услуги по исправлению моей черезчур трезвой физиономии. Я вежливо отказывался, гыгы. Я считаю это лучшим доказательством того, что женский день надо отменить (равно как и мужской). Этот день каким бы он ни задумывался на самом деле есть просто очередной день стакана, причем лицемерный и циничный. Я полагаю, что женщины испытывают большое количество эмоций наблюдая пьяных в срань, часто обоссаных, заблёваных, грязных мужчин, защитников гыгы.

Тема о цепном квайне докатилась до RSDN, где опубликовали еще пару интересных ссылок.

Есть, оказываеться и математическое подобное — множество, которое задаётся формулой, будучи изображенным на плоскости, повторяет саму формулу. Удивительно :)

И еще, оказывается есть так называемые квайны-полиглоты — программы, повторяющие себя и выполнимые на нескольких языках сразу. Там по ссылке много примеров. Есть еще не совсем квайны, но просто программы-полиглоты — исполнимые на многих языках — вот пример такой программы, работает на 8 разных языках: COBOL :), Pascal, Fortran, C, PostScript (!), Bash, машинный язык x86, Perl.

А предыдущий квайн был доработан catap-ом, который добавил туда эрланг и sh. Интересно, какова наиболее длинная такая цепочка, в которой еще может разобраться нормальный человек? Эстафету устроить можно, например :)

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

Один японец написал вот такой вот цепной квайн.

# ruby
l=92.chr;eval s="s=s.dump[r=1..-2].gsub(/("+l*4+"){4,}(?!\")/){|t|'\"+l*%d+\"'%(t
.size/2)};5.times{s=s.dump[r]};puts\"# python\\nprint(\\\"# perl\\\\nprint(\\\\\\
\"# lua"+l*4+"nprint("+l*7+"\"(* ocaml *)"+l*8+"nprint_endline"+l*15+"\"-- haskel
l"+l*16+"nimport Data.List;import Data.Bits;import Data.Char;main=putStrLn("+l*31
+"\"/* C */"+l*32+"n#include"+l*32+"nint main(void){char*s[501]={"+l*31+
"\"++intercalate"+l*31+"\","+l*31+"\"(c(tail(init(show("+l*31+"\"/* Java */"+l*32
+"npublic class QuineRelay{public static void main(String[]a){String[]s={"+l*31+"
\"++intercalate"+l*31+"\","+l*31+"\"(c("+l*31+"\"brainfuck"+l*64+"n++++++++[>++++
<-]+++++++++>>++++++++++"+l*31+"\"++(concat(snd(mapAccumL h 2("+l*31+"\"110"+l*31
+"\"++g(length s)++"+l*31+"\"22111211100111112021111102011112120012"+l*31+"\"++co
ncatMap("+l*32+"c->let d=ord c in if d<11then"+l*31+"\"21002"+l*31+"\"else"+l*31+
"\"111"+l*31+"\"++g d++"+l*31+"\"22102"+l*31+"\")s++"+l*31+"\"2100211101012021122
2211211101000120211021120221102111000110120211202"+l*31+"\"))))))++"+l*31+"\","+l
*63+"\""+l*64+"n"+l*63+"\"};int i=0;for(;i<94;i++)system.out.print(s[i]);}}"+l*31
+"\")))))++"+l*31+"\",0};int i=0;for(;s[i];i++)printf("+l*63+"\"%s"+l*63+"\",s[i]
);puts("+l*63+"\""+l*63+"\");return 0;}"+l*31+"\");c s=map("+l*32+"s->"+l*31+"\""
+l*63+"\""+l*31+"\"++s++"+l*31+"\""+l*63+"\""+l*31+"\")(unfoldr t s);t[]=Nothing;
t s=Just(splitAt(if length s>w&&s;!!w=='"+l*31+"\"'then 501else w)s);w=500;f 0=Not
hing;f x=Just((if x`mod`2>0then '0'else '1'),x`div`2);g x= reverse (unfoldr f x);
h p c=let d=ord c-48in(d,replicate(abs(p-d))(if d< />."+l*31+"\");s="+l*31+"\"# ruby"+l*32+"n"+l*31+"\"++"+l*31+"\"l=92.chr;eval s=\"+
(z=l*31)+\"\\\"\"+s+z+\"\\\""+l*31+"\"++"+l*31+"\""+l*32+"n"+l*31+"\""+l*15+"\""+
l*7+"\")"+l*4+"n\\\\\\\")\\\")\"########### (c) Yusuke Endoh, 2009 ###########\n"

Заускать надо так:

ruby QuineRelay.rb > QuineRelay.py
python QuineRelay.py > QuineRelay.pl
perl QuineRelay.pl > QuineRelay.lua
lua QuineRelay.lua > QuineRelay.ml
ocaml QuineRelay.ml > QuineRelay.hs
runghc QuineRelay.hs > QuineRelay.c
gcc -Wall -o QuineRelay QuineRelay.c && ./QuineRelay > QuineRelay.java
javac QuineRelay.java && java QuineRelay > QuineRelay.bf
beef QuineRelay.bf > QuineRelay.ws
wspace QuineRelay.ws > QuineRelay.unl
unlambda QuineRelay.unl > QuineRelay2.rb

Эта фиговина делает следующее: исходная программа на руби генерит прогу на питоне, которая генерит прогу на перле, которая генерит прогу на Lua, которая генерит прогу на окамле, которая генерит прогу на хаскелле, которая генерит прогу на Ц, которая генерит прогу на яве, которая генерит прогу на брейнфаке, которая генерит прогу на Whitespace, которая генерит прогу на Unlambda, которая генерит исходную прогу снова на руби.