QR.rb

eval$s=%q(eval(%w(B=92.chr;N=10.chr;n=0;e=->(s){Q[Q[s,B],?"].gsub(N,B+?n)};E=->(s){'("'+e[s]+'")'};d=->(s,t=?")
{s.gsub(t){t+t}};Q=->(s,t=?$){s.gsub(t){B+$&}};puts(eval(%q(%(objectXQRXextendsXApp{H("#{e[%((displayX"#{e[%(Hf
X%sX"#{Q[e["TranscriptXshow:X'#{d[%(putsX [regsub  X-allX{.  }X"#{Q[e[%[intXK(){sJXs=#{E[%(withXAda.Text_Io;pro
cedureXqrXisXbeginXAda.Text_Io.P ut_Li   ne("     #{d[      %(BEGINXH("#{d[%(BEGIN{s=#{E[%(forXbXinXSystem.Text
.ASCIIEncoding().GetBytes(#{Q[  E["     #                            include<stdio.h>`nintXK(){puts#{E["#includ
e<iostream>`nintXK(){s td::c    o                                   ut<<#{E[%(classXProgram{publicXstaticXvoidX
Main(){System.Console  .Wr                                                    ite(#{E[%((defnXf[lXr](if(>(count
Xr)45)(lazy-seq(cons    (                                                    str"XXXX^""r"^"&")(fXl"")))(let[c(
firstXl)](ifXc(f(ne                                                                 xtXl)(if(=XcX^")(strXrXcXc)
(strXrXc)))[(str"X                                                                 XXX^""r"^".")]))))(doall(map
X#(Hln(str"XXXXXX                                                                       XX"%1))(lazy-cat["IDENT
IFICATIONXDIVISI                                                                       ON.""PROGRAM-ID.XQR.""PR
OCEDUREXDIVISI                                    ON."]#{("                                console.log"+E[%((wr
ite-line"#{Q                              [%(X:XAX."XXXXXXXXX"X;X:X                       BXAX."XWRITE(*,*)'"XA
X;X:XCXBXTY                           PEX."X'"XCRX;X:XDXS"XprogramXQR"XC                   XS^"XHX^"(&"XCXS^"X#
{e[%(pack                         ageXK;import("fmt";"sJs");funcXK(){fmt.Pr                  int("H^x27"+sJs.Re
place("#                        {e[e[%(importXData.Char`nK=putStrLn$"procedure                XK();write(^"DO,1
<-#"++s                       how(lengthXs)++fXsX1X0;f(x:t)iXc=letXv=foldl(^aXx-               >a*2+(modXxX2))0
$takeX                      8$iterate(flipXdivX2)$Data.Char.ordXxXin(ifXmodXiX4<1               then"PLEASE"els
e"")+                      +"DO,1SUB#"++showXi++"<-#"++show(mod(c-v)256)++"^^n"++fX              t(i+1)v;f[]_X_
="PL                     EASEREADOUT,1^^nPLEA SEGIVEUP^");end";s=#{E[%(.classXpublic             XQR`n.superXja
va/l                    ang/Object`n.methodX   publicXstaticXK([Ljava/lang/SJ;)V`n.lim            itXstackX2`ng
ets                    taticXjava/lang/Syst  e  m/outXLjava/io/PrintStream;`nldcX"#{e[%            (classXQR{pu
bli                   cXstaticXvoidXK(SJ[]  v){  SJXc[]=newXSJ[8000],y="",z=y,s="#{z=t=            (0..r=q=126)
.ma       p{         |n|[n,[]]};a=[];%(@s  =inte  rnalXconstant[#{i=(s=%(PRX"#{Q["H"+E[%            (all:`n`t@H
fX%                 sX"#{e[%(.assemblyXt  {}.meth  odXstaticXvoidXMain(){.entrypointXldst           r"#{e["varX
u=re               quire('u                                     til');u.H('#import<stdio.           h>^n');u.H(
#{E[%        (in  tXK(){puts  #{E["H_  sJ"+E["Hf"+E[  %(say"#  {e["programXQR(output);begi          nX#{([*%($_
="#{s=       %(<?phpXecho"#{Q  [e["i  ntXK(){write#{E  ["qr:  -write('#{Q[e[%(forXlXin#{E[          e[d[%(eval$
s=%q(#$s)   )]]]}.split("^^n")  :H(  'cat("sayX^^"'+l+  '^^  "^^n")'))],?']}'),nl,halt."]}          ;returnX0;}
"]]}"?>);(s+N*( -s.size%6)).byt  e  s.map{|n|"%07b"%n}.  j  oin.gsub(/.{6}/){|n|n=n.to_i(2          );((n/26*6+
n+19)%83+46).ch r}}";s|.|$n=ord$   &;substrXunpack(B8,ch   r$n-($n<58?-6:$n<91?65:71)),2|e          g;s/.{7}/0$
&/g;HXpackXB.le ngth,$_).scan(%  r  (([X.0-9A-Za-z]+)|(  .  ))).reverse.map{|a,b|(b)     ?          "s//chrX#{b
.ord}/e":"s//#{  a}/"},"eval"]  *"X  xX").gsub(/.{1,25  5}/  ){|s|"write(               '          #  {s}');"}}
end."]}"`nend`n) ]]]};returnX  0;}).  trXB,?@]}.repla  ce(/@  /g,SJ.fr                  o          m   CharCode
(92)))"]}"callXv  oidX[mscor  lib]Sys  tem.Console::  Write(s  J)ret})]}")],/          [          X     ^`t;"()
{}`[`]]/]}`nBYE)) .size+1}X                                     xXi8]c"#{s.g           s          u      b(/[^`
n"]/){B+"%02`x58"  %$&.ord}}^00"declareX  i32@put  s(i8*)defineXi32@K(){star t:%0=cal l          X       i32@pu
ts(i8*Xgetelementp  trXinbounds([#{i}XxXi  8]*@s  ,i32X0,i32X0))retXi32X0}).bytes{|n |          r         ,z=z[
n]||(a<<r;q<5624&&z  [n]=[q+=1,[]];t[n])};  a<<  r;t=[*43..123]-[64,*92..96];a.map{|n          |          t[n/7
5].chr+t[n%75].chr}*  ""}";intXi=0,n=0,q=0,  t  ;for(;++n<126;)c[n]=""+(char)n;for(;          i           <s.le
ngth();){t=s.charAt(i   );q=q*75+t-t/64-t/92   *5-43;if(i++%2>0){y=q<n?c[q]:y;c[n+           +             ]=z+
y.charAt(0);System.out   .H(z=c[q]);q=0;}}}}) ]}"`ninvokevirtualXjava/io/PrintStr           e              am/H
ln(Ljava/lang/SJ;)V`nre    turn`n.endXmethod)+N]})].trXB,?@]}^x27^n","@","^^",-           1))})]}          "XDU
PXFORXS"X&A,&"XCXNE`x58TX    S^"X&A)^",&"XCX0XDOXBX."X&char("XCOUNTX.X."X),&'           "XCRXLOOP          XS^"
X&^"^""XCXS"XendXprogramXQ      R"XCXAX."XSTOP"XCRXAX."XEND"XCRXBYEX;XDX),            /([^"])/]}"))]).gsu  b(/.
+/){%((cons"DISPLAY"(f"#{e[$       &]}""")))}}["STOPXRUN."])))).trXB,?~             ]}.Replace("~","^^"));  }})
]};}"]};returnX0;}"]]}):HXjoin(        ['+'forXiXinXrange(0,b)],"")               +".>").trXB,?!]};gsub(/!  /,"
^^",s);HXs})]}")END)]}");endXqr;)             ]};intXi,j;H(                    "moduleXQR;initialXbeginX");for(
i=0;i<s.length;i++){H("$write(^"XXX")                                       ;for(j=6;j>=0;j--)H((s[i]>>j)%2>0?"
^^t":"X");H("^^n^^t^^nXX^`");");}H("$disp                              lay(^"^^n^^n^");endXendmodule");returnX0
;}].reverse],/[`[`]$]/]}"X^x60.&]k),?']}';cr"]]}                ")]}")).gsubXB*8,?|]}".replaceAll("^^|","#{B*32
}"))})).gsub(/[HJK^`X]/){[:print,0,:tring,:main,B*2,0,B,?\s][$&.ord%9]})))*"")#_buffer_for_future_bug_fixes_#_b
###################  Quine Relay -- Copyright (c) 2013 Yusuke Endoh (@mametter), @hirekoke  ##################)