TL;DR
quine作った！
ちなみにこのコードは動きます、試してみてね！
eval(
(%w(1.upto
(18)do|i|s=i
;if (i==1);s="A DAM"elsi
f( i==2);s="LILITH"elsif(i
==3);s="SACHIEL"elsif(i==4);s=
"SHAMSHEL"elsif(i==5);s="RAMIE
L"elsif(i==6);s="GAGHIEL"els
if(i == 7);s="ISRAFIL"elsif(i==8);
s="SA N DAL PHON"elsif(i==9);
s ="MATA RAEL"elsif(i==10);s="SA
H AQUI EL" e lsif(i==11);s="
I RE UL"e ls if(i==12);s="L
EL IEL"elsif(i==13);s="BARDI
EL" els if(i==14 );s="ZERUEL
"els if( i==15 );s="ARAE
L" elsif(i= =16); s="ALMIS
AE L"e lsif (i= =17);
s ="TA BLIS "els
e;s ="
LI LIN
" e nd
; pu t s (s)en
d)*"" ))
なぜ作ったか
https://amzn.to/3adgnaF の本を読んで、自分でも作れるかなと思い、ちょうどハマっていたエヴァのnervマークがピッタリだとビビっときたので本書の演習を真似て作ってみた。
仕組み
quineという実行すると自身のソースコードを出力するプログラムを書いたものです。
art = <<END
#####
##########
############
### ########### ########
## #######################
##############################
##############################
############################
#### ## ##########################
##### # ### #################
# ###### #######################
# #### ### # ###############
# ## #### ## ##############
## #########################
### ### ######## ###########
#### ### ##### #########
## ######## ##### ########
## ### #### ### #####
# #### #### ####
### ##
## ###
# # ##
# ## # # #####
##### ##
END
main = <<END
eval((%w(
1.upto(18) do |i|
s = i;
if (i == 1);
s = "ADAM"
elsif (i == 2);
s = "LILITH"
elsif (i == 3);
s = "SACHIEL"
elsif (i == 4);
s = "SHAMSHEL"
elsif (i == 5);
s = "RAMIEL"
elsif (i == 6);
s = "GAGHIEL"
elsif (i == 7);
s = "ISRAFIL"
elsif (i == 8);
s = "SANDALPHON"
elsif (i == 9);
s = "MATARAEL"
elsif (i == 10);
s = "SAHAQUIEL"
elsif (i == 11);
s = "IREUL"
elsif (i == 12);
s = "LELIEL"
elsif (i == 13);
s = "BARDIEL"
elsif (i == 14);
s = "ZERUEL"
elsif (i == 15);
s = "ARAEL"
elsif (i == 16);
s = "ALMISAEL"
elsif (i == 17);
s = "TABLIS"
else;
s = "LILIN"
end;
puts(s)
end
)*""))
END
main = main.split.join
main = art.gsub("#") { main.slice!(0, 1) }
puts main
画像をビットマップに変換するライブラリ（名前をど忘れした）を使って変換した後に、文字列を＃に置換して、その部分に動作するコード（文字数を合わせる必要があったような...１年位前に作ったので覚えていませんが）を置換していきます。
このquineを生成するコードを実行すると冒頭のアレができるというわけです。もっとくわしく知りたかったら著者の遠藤さんの解説ページがあるので見てみてください。
すごいquineたち
-
50言語リレーquine
-
山手線quine
実行すると、東京からスタートして、次の駅に表示が変わっていきます。
https://github.com/mame/yamanote-quine
n=0;eval$S=%w!d="2-,<'%*+D-)+4?>F*(>,%'&<9M&(%-9)%},;'+'E}
,'-BB+(1+9,JJS.;z,33&/&)HH,,&dys%3}5,),(+@@&*&5&}2%&6(*81(
(&,&m-4477%+=*0)0,'*$,0}++$)&-/.+*$}&.&E%$($$$*$'}#}|%$%|,
$-$+0<}|+?)'lQ(Rr%XWD&l>`4.&;k5;d6qU-L;J8-*qjU1x11.&^1.B7/
?L.7/6/%98}1r//?L[4[;S8C?,/~d.dz~A(AAmzAm.+-,ED}ND5;+DI}%Q
%>RR**c)S+HL5(<</4(&G<<d}5+I@=AV%Py/+%~-/T-/*wi,v/R(1I==j+
V~c'18(&A%8P/s=@[)N}1s1~x/*J *@)Lh18&;vL,'r.^W/h'>k'X<)'g
_l.^ER3W<)8h<)3F,l_b.b8+U*XU )l;/=2'^K~(:2(:2,*}+2()F,*}+
Kw+Kw+Kw+2 ,*F%#DN-})
Z*/,(R^*^Q5<5%,1;)/7(&yN+#&G *O@*#OOO#h3W.j);~#U6U6j);]3?
?YYHL?3r[Chz&2+/2+j%z22.K.%, p2WK9kKx2:(2T(2}L(.B#&Q^rG^*
i'/-#1.-'#/61x/x ~11%;ZCC5&9]9S*~
#h*aJZLNC4[CZM3G (_GyGGG+3) `4F&9E4ZMO @oOo3?)&1C(b*I1^
%/71<S*'49&?Wupn u&;W4>;W'? )'l.v}8g(Y YY>)1b%,9R(1YYY;
?i/R+/+qTIT&A&'3 Z~MOoWu`4ErP1'I1
x14[/61I'i'/%3<M W#6/+',9+1 ':H87.EC?, 1_q@*1G.:8+%W2Wm
#ND&l>`CC]&1#3-3 -[gN//71.1 8'F>#[4]3# n5)ET8P..7/YHE~y
/f.f}N,8b8@''IrU J9L#6/6/+<L#6/+2
/+-)L+-.b._//5Z%[(nQ&>3,.C &'7/6*%G(6:V2*~1D'>)1)M2'~
/-1r5?R(#1I1Ic9?+4(&b%&Q *8 // 8h*&PN+&f1/-'8h'8#h*JZ;[
C8Hi1*P6-2G{*PDs5)i'c, ?:~' c,&> *WP.d.69Q?Q.^E4r&1(WP#
.:+)k%::2:(KQ5Lma)Z+ 49_;6* @9;*@9 ;*3_&T.P2::%:dAA4&?p
aJ;Za;ZaJo3l&T~&y5 ;#TIT5;T &',&>]>? YL?39`C3Zp*#aJW<p*
#aJW#<n4[43pFe 7tete7t3^M )Q>)/5+}H. -',):<)R*Q&T;`
u)'GX../HF 'gLlsR1P8+%;?1 ~%/h*#/6RA#I:I :gcQ.+Xsv}
sX+'v}+1%:N#:8d..F,&1E'R'(Q/ T&A-QQ%Q+Q*%:-*2'(wQ%(-%XP{i
A1i1)Fz&1~%&A,M+4X&b%&IE1..1E*&PN+&f&1-[C?`CC4F,8*.U*ATwG%
wGn5?*%.,_>K.K);#K6j);#K6K);K15;'43(?,19Q,*R_+X&{Ng>`4ZMOo
@o8[A8:.x/i)F1Fv&f%N(E-*.qc~1s#/6.-95f&1-[41H8/?<*3^b/11%=
2'DD%1DDUDw%,(}82}>+~2*A2*A2 j+,5*AcA'};6*%);*%.*%/,>/Mk2
#.K1-K^22GKX*KD*2A-)L+-/i'c} W}#+N9?8:}/}+#6P673<&>%&y&^%
n-k51{6+m+#GU#6U6,&>/~#+N+;S ],`C4F&9ECZMO@oO@o]?F7tR%.}Q
p_1E*9SE[Z ~F7t8*9S=J
3FFeB7teB7t]3FFe7R,FX%&IE1..1E*n6%fs='8//8'3?,KT*2AN)p4;Zu
L./?L./?L(._/>3,::1-*-'K-+A-K:-K_?)*;)/5+}.B5>'B/1-5>+%P2+
PkF+qPq5>*gA%V+Ac% ,/>])`#CCF>#CCM,[C
&G<?~#I:#I:(<?#I:I +)Z:8:L?]z/->)T.-A .m+.m+~.d59+T'd-cR
//)M%.1H+'8,F(/B1H /E'>k'b+'v}+X#k~AA (AA}5AA(Agd9k+V%)L
2+#I:P-X+T(-+};+z' (&PN+L).'bm**:G(RA (.d./<L#6/q/%9L~q/
%9L%JE'H)&;3n?,19Q ,*R_+X&{Ng>`4Lp4>9 (/G5SG(/G8*9S=J'&2
(.61(O%PyP#fT-fT-f *Dc))f+R*2*x%jA#UG
U.>5'_.^]?&9~#V'#V'V'5&9~#V' #V'5&9]eB5?K-:{%:+g:+RP65?I~
:+':%;?j*.B7M)/1b+==(/PL,AN4 MFet]9`Cu,1;X,*^'G.:&KnD&lF~
MOoWu`u2}+,12}v%<X:D {)%5A- %X<) %D,QR)*j+-+<5U::,Rm;
5)Q1%6(A";88.times{| i|d=i= =31?d.gs ub(?~){$'[0,3]}.gs
ub(?#){$'[0,2]}:d. gsub(""< <123-i,d[0 ,z=i/82+2])[z..-
1]};i=j=-k=b=1;d .bytes{|c| d=b+=b+k^=c& 1};c=33.chr;n=
($*[0]?n-1:n +1)%30;n==25 &&ENV["NO_TGW" ]&&n=($*[0]?
n-1:n+1)%30;0.upto(n%30) {k=(c*58<<10)*m=b%4*23+30;b/
=4;9.step(m,23){|m|i+=v=b%2;760.times{|p|k[p%38+(p/38+m)*5
9-226]=""<<d[249+(v<1?b/2%64:i)*380+p/2]+32};b>>=7-v*6}};p
uts((c*58<<10<<k<<c*54).gsub(c){"n=#{n};eval$S=%w#{c+$S[0,
2680]*9}"[j+=1]}+c+"*''")#d="2-,<'%*+D-)+4?>F*(>,%'&<9M&(%
-9)%},;'+'E},'-BB+(1+9,JJS.;z,33&/&)HH,,&dys%3}5,),(+@@&*&
5&}2%&6(*81((&,&m-4477%+=*0)0,'*$,0}++$)&-/.+*$}&.&E%$!*''
最後に
最後まで読んでくれてありがとうございます！
quineに少しでも興味を持っていただけたら嬉しいです。
参考にした文献
- 「あなたの知らない超絶技巧プログラミングの世界」 遠藤 侑介著 https://amzn.to/3bPfK7t
- 上の本のオンラインソースコード（著者公開のもの）https://github.com/mame/trance-book/