forked from mame/quine-relay
-
Notifications
You must be signed in to change notification settings - Fork 0
/
QR.rb
66 lines (66 loc) · 8.51 KB
/
QR.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
eval$s=%q(eval(%w(B=92.chr;g=32.chr;puts(eval(%q(N=10.chr;n=0;e=->s{Q[Q[s,B],?"].K(N,B+?n)};E=->s{'("'+e[s]+'")'};d=->s,t=?"{s.K(t)
{t+t}};def~f(s,n)s.K(/.{1,#{n*255}}/m){yield$S=E[$s=$&]}end;Q=->s,t=?${s.K(t){B+$&}};M=->s{"<stdio.h>#{N}!t~mX{puts#{E[s]};return~0
;}"};V=->s,a,z{s.K(/(#{B*4})+/){a+"#{$&.size/2}"+z}};C="Console.Write";$D="program~QR";$G="~contents~of"+$F="~the~mix!g~bowl";%(obj
ect~QR~extends~App{#{f(%((display~"#{e[%(#{f(%[echo~-En~"#{Q[e[e["Transcript~show:~'#{d[%(H#{Q[E[%(fun~p~n=Z(Int.toSJ~n`x5e"~");p~0
;p~0;p~130;List.tabulate(127,p);SJ.map(fn~c=>(p(3+ord~c);Z"-1~0~";c))#{E[%(proc~f~{n}~{sJ~repeat~"Y"~$n};puts~a::=`x7e[reK~-all~{.}
~"#{V[Q[e[%(!t~mX{Z#{d[E[%(module~QR;!itial~beg!~#{f(%(Module~QR:Sub~MX:Dim~s,n,i,c~As~Object:n=Chr(10):For~Each~c~!"#{d["<?xml#{O=
"~version='1.0'"}?><?xml-#{I="stylesheet"}~type='text/xsl'href='QR.xslt'?><xsl:#{I+O}~xmlns:xsl='http://www.w3.org/1999/`x58SL/Tran
sform'><xsl:output~method='text'/><#{U="xsl:template"}~match='/'><`x21[CDATA[#{%(H,format="#{y="";f("^H{-}{txt}{#{Q[E[%(with~Ada.Te
xt_Io;procedure~qr~is~beg!~#{~f(%(Z"#{e[%W[STRINGz: =~226+~ 153,a:=z +~166,b:=a+"2"+z+~160,c:=b+"8"+z+~165,t:="#{d[%(H('#{Q[e[%(i
mplement~mX=Z)+E[%(BEGIN{s=#{E[%(f={n~as~! t|'Y' *n}; a=0; s=#{V[Q[E["#!clude"+M["#!clude<iostream>`n!t~mX{std::cout<<#{
E[%(class~Program{public~static~void~MX{ Sys t em.#{C+E[(%(let~f(c~:Int):Lat!1=if~c=127then""else(s
J_of~c@"~g~caffe!e~"@sJ_of~c@"`n ")@f( c +1)!~Z("Qu!e~Relay~Coffee.`n`nIngredients.`n"@f~10@"`
nMethod.`n");let~g(SJ~->[])`n[c ;t] ->Z("Put~caffe!e~"@sJ_of(!t_of_char~c)@"~!t
o#$F.`n");g~t`n|_~->Z("Liquify # $G.`nPour#$G~!to~the~bak!g~dish.`n`nServes~1
.`n")!~g#{E[%((doseq[s(lazy-c at["IDENTIFICATION~DIVISION.""PROGRAM
-ID.~QR.""PROCEDURE~DIVISION ."'DISPLA`x59](map~#(str"~~~~^""(.repl
ace~%1"^"""^"^"")"^"&")(re- seq~#".{1,45}""#{e[%((f=(n)->Arra
y(n+1).jo!~"Y");console.lo g("%s",#{V[E[%((H-l!e"#{e["import~
std.stdio;void~mX{H#{E[" [#{"class ~QR:Application{void~MX{#{f(%(
(pr!c~"#{e[%(`nma!(_)- >`nio:fH#{E["Zfn"+d[E[?>+ E[?"+%(~:~A~."#{g*9}"~;~:~B~A~.
"~WRITE(*,*)'"~A~;~:~ C~B~T`x59PE~."~'"~CR~;~:~D~S"~#$D" ~C~S^"~Z~^"(&"~C~S^"~#{e[%(Z"#
{e["s:=OutputTextUs er();WriteAll(s,#{E[f('set~Z"-";Z'+E[%(pa ckage~ma!;import"fmt";func~m
X{fmt.Pr!t("algori tmo~QR;!^xC3^xADcio~imprima(^`"#{e[e[%(Z'#{e[( "ma!=putStr"+E[%(procedure~
mX;i:=c:=0;s:=#{E [%(.class~public~QR`n.super~#{$T="java/io/Pr!tStre am"}`n.method~public~stati
c~ma!([L#{S="jav a/lang/"}SJ;)V~;]`n.limit~stack~2`ngetstatic~#{S}Syst em/out~L#$T;`nldc~"#{e[%(
class~QR{public ~static~void~ma!(SJ[]v){SJ~c[]=new~SJ[9000],y="",z=y,s=" #{z=t=(0..r=q=126).map{|
n|[n,[]]};a="" ;b=->n{a<<(n%78+55)% 84+42};("s=#{E[%(@s=global[#{i=(s=%(PR ~"`x48AI^~1.2~PR~"VISIBL
E^~"#{Q["Z"+E[ %(all:`n`t@echo~'#{d ["l!el:99999;Z#{E[%(.assembly~t{}.metho d~static~void~MX{.entry
po!t~ldstr"#{ e[%(m:db`x60#{e[s="$ Z #{E[%(Zf#{E["#import"+M["Z_sJ"+E[%(s=to ascii#{E["Z#{E[%(say"#
{e["#$D(outpu t);beg!~H(#{f((p="ev al" ;%($_="#{s=%(<?php~function~f($n){retu rn~str_repeat("Y",$n);
};$f="f";$z=3 +$ w=strlen($s=#{V[Q[E[ "!t~m X{H#{E[%((___________)dup~=/s(|~~~~~.~ ~~|)def(#{Q["qr:-H('#
{Q[e[%(for~c~ !"".jo!(["say~'%s'^n "%l~for ~l~!#{E[d["eval$s=%q(#$s)",?']]}.split ("^n")]):Z('cat("r=fp
ut(char(%d))^n ")'%ord( c))`nZ('cat("end^n")'))], ?']}').",B]}){9~7{exc
h~dup~1~and~79~ mul ~32~add~ex ch~2~id iv~3~1~roll~s ~exch~2 ~!dex~exch~put~1~sub~dup~6~ eq{1~sub}if}repeat~s~
=~pop~pop}forall ~=~quit)]};retur n~0;} "]],"{$f(",")}" ]})*3 ;echo"^x89PNG^r^n^x1a^n";$m= "";$t="^xc0^0^xff";fo
r($i=-1;$i<128*$z;$ m.=$c--?($w-$c||$i >$z )&&$i/$z<($c<$w?o rd( $s[(!t)($c/3)]):$c--%3+2)?$t[ 2].$t[$c%3%2].$t[$c%3
]:"^0^0^0":"^0")$c=++$i%$ z;foreach(array ( "I`x48DR".pack("NNC V ",$w+2,128,8,2),"IDAT".gzcompr ess($m),"IEND")as$d)e
cho~pack("NA*N",strlen($d )-4,$d,crc32($d) );?>);(s+N*(-s.size%6 )).unpack("B*")[0].K(/.{6}/){n= $&.to_i~2;((n+14)/26*
6+n+47).chr}}";s|.|$n=ord $&;substr~unpac k (B8,chr$n-!t($n/32) * 6-41),2|eg;Z~pack"B*",$_ ) .scan(/[~,-:A-z]+|(.)
/){p="s++#{$1?"chr~#{$1.o rd}+e":$&+?+} ;"+ p};p),1){"'#$s'," }}' ')end."]}"`n e n d)]};quit"]};t=num2
cell(b=11-ceil(s/13));for~ n=1:9m={};fo r~i=1 :141f=@(x,y,n)r epmat (["Ook"~ x ~ "~Ook"~y~32],[1~ab
s(n)]);m(i)=[f(z=46,63,n)~ f(q=z-(i<1 3)*13,q ,i-13)~f(33,z ,1)~f(6 3,z,n)];end;t( x ) =m(diff([0~s(x=b=
=n)])+13);end;Zf("%%s",t{:} ))]]]})+N ]};"+N]}`x60 ` n global~_start`n_
start:mov~edx,#{s.size}`nmo v~ecx,m`nmov~ebx,1`nm ov~eax, 4`n!t~128`nmov~ebx,0`nmov ~eax,1`n ! t ~128)]}"call~voi
d~[mscorlib]System.Console:: Write(sJ)ret})]};quit ();", ?$].K(?'){"'^''"}}')].K(/[:"]/,":^ 0 " ),/[~Y`t;"(){}`
[`]]/]}"~PR~"`x4bT`x48`x58B`x 59E~B`x59E)).size+1}x ~i8 ]c"#{s.K(/[^"]/){"^%`x58"%$&.ord}}^0 0 "declare~i32@pu
ts(i8*)def!e~i32@mX{%1=call~i3 2@puts(i8*getelementp t r([#{i}x~i8]*@s,i32~0,i32~0))ret~i32 ~ 0})]};typeof~Z=
='function'?Z(s):console.log('% s',s)").bytes{|n|r,z =z[n]||(b[r/78];b[r];q<6083&&z[n]=[ q +=1,[]];t[n])}
;b[r/78];b[r]}";!t~i=0,n=0,q=0;f or(;++n<126;)c[n]="" +(char)n;for(;i<s.length();){q=q*78 + (s.charAt(i)-1
3)%84;if(i++%2>0){y=q<n?c[q]:y;c[ n++]=z+y.charAt(0);System.out.Z(z=c[q]);q=0;}}}})]}" `n!voke virtual~#$T/Zl
n(L#{S}SJ;)V`nreturn`n.end~method)+ N]};H("DO,1<-#"||*s);s?while~t:=ord(move(1))do{i +:=1;u:=- i;every~0to~7d
o{u:=u*2+t%2;t/:=2};H("PLEASE")^(i%4 /3);H("DO,1SUB#"||i||"<-#"||((c-u)%256));c :=u;};H("PLEASEREAD OUT,1^nPLEASEG
IVEUP");end)]).tr(B,?&)]}'.tr('&','YY' );)]]}^`");fim")})],62){"Zn#$S`n"}]} );CloseStream(s);QUIT; "]}")]}"~DUP~
FOR~S"~&A,&"~C~NE`x58T~S^"~&A)^",&"~C~0~D O~B~."~&char("~COUNT~.~."~), &'"~CR~LOOP~S^"~&^"^""~C ~S"~end~#$D"~
C~A~."~STOP"~CR~A~."~END"~CR~B`x59E~;~D~).K (?"){'"34,"'} +?"]],?%]]}.)]}")),15){"Pr!t#$S;"}}}}"}]pq
"]};}"]}"))],'#{f(',')}']}))]}"))["~~~~^"~^"."" STOP~RUN."])](Zln(str"#{g*8}"s)))).reverse]})
)]};}})]};}"]]],"$(f(","))"]};for~i~!~range(len(s)) :b~as~!t=s[i];a-=b;Z(('+'*-a~if~0>a~else'-'*a)+'.'
);a=b;).tr~B,?`x21]};K(/`x21/,"Y",s);for(Z"def!e~void~f(n) {^"00g,^";for(m=128;m;m/=2){^"00g,4,:^";if(n/m%2<1)^"4+^"
;^",^";};^"4,:,^"}^"389**6+44*6+00p29*,^";";++j<=length(s);Z"f("n");")for(n=9;substr(s,j,1)`x21=sZf("%c",++n););Z"^"4,:,@^"^nquit"}
)]],?']}');)]}";FORiTO`~UPBtDO`~INTn:=ABSt[i];Z(~(50+n%64)+c+~(50+n%8MOD8)+c+~(50+nMOD8)+b+"`x4a"+a)OD]*"REPR"]}"),117){%(Ada.Text_
Io.Put("#{d[$s]}");`n)}~}end;)]+"`nsys.exit~0",/[^{}]/]}}",35){y<<",`n"+$S;"%s"}}")+y}]]></#{U}></xsl:#{I}>"].K~N,'"&~VbLf~&"'}":s=
"~~~":For~i=0To~7:s~&=Chr(32-(Asc(c)>>7-i~And~1)*23):Next:#{C}(s~&n~&Chr(9)&n~&"~~"):Next:#{C}(n~&n~&n):End~Sub:End~Module),3){%($H
("%s",#$S);)+N}}end~endmodule)],?%]};return~0;}).reverse],/[`[`]$]/],"[f~",?]]}"~^x60.&]k^n::=^na)]};Z"0~0~-1";)]]};),?']}';cr"]]]}
"|sed~-E~-e~'s/([`x5eY]|Y.){1,120}/Zf("%s","^0");^n/g'],7){%(Zf("%s","#{d[d[$s],?']}")`n)}}quit)]}")),196){%(Z#$S;)}}})).gsub(/[!HJ
KXYZ^`~]/){[B*2,:write,B,:tring,:gsub,"ain()",B*4,:print,g,:in][$&.ord%47%12]})))*"")#_buffer_for_future_bug_fixes_#_buffer_for_fut
########################## Quine Relay -- Copyright (c) 2013, 2014 Yusuke Endoh (@mametter), @hirekoke #########################)