Один японец написал забавную цепочку кваев.
# 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+"\"-- haskell"+l*16+"nimport Data.List;import Data.Bits;import Data.Char;main=putStrLn("+l*31+"\"/* C */"+l*32+"n#include<stdio.h>"+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+"\"++concatMap("+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+"\"21002111010120211222211211101000120211021120221102111000110120211202"+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=Nothing;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< p then '<'else '>')++"+l*31+"\".
"+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"
Вам нужно запустить его следующим образом: рубин 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 говядина QuineRelay.bf > QuineRelay.ws wspace QuineRelay.ws > QuineRelay.unl unlambda QuineRelay.unl > QuineRelay2.rb Исходная программа на Ruby генерирует программу на Python, которая генерирует программу на Perl, которая генерирует программу на Lua, которая генерирует программу на Okamla, которая генерирует программу на Haskell, которая генерирует программу на C, которая генерирует программу на Java, который генерирует программу в Brainfac, который генерирует программу на Whitespace, который генерирует программу на Unlambda, который снова генерирует исходную программу на Ruby. взятый здесь УП0: немного больше UP1: Возьмите исправленный скрипт катапа UP2: Поправил html, теперь скрипт должен запускаться.
УП3: Промежуточные варианты Удален из вставки, слишком много посещений ^_^ Теги: #ruby #python #perl #Lua #ocaml #haskell #java #brainfuck #whitespace #unlambda #quine #Ненормальное программирование
-
Что Такое Удаленное Подключение?
19 Oct, 24 -
15 Самых Депрессивных Профессий
19 Oct, 24 -
У Геккона Теперь Есть Умный Дом
19 Oct, 24
