tompng/block_quine.rb

## block_quine.rb
s=%w(ABCDEFGHIJKMNOQRSUWXYZ0123456789 "`^' acegmnopqrsuwxyz)########################################
b='';d=->c{(w=s.find{|a|a[c]})&&(b+=(w.size+w.index(c)).to_s(2)[1..-1])};%(#########################
B^"`^^```^""NB^"`^^```^""NBS4K2DANGSGDJXANGWGDJDBYUS4I2OENGWGDJD""'`"^"'""'J"`^"`^^`"`^DJ"`^"`^^`"`^
D  mqwgmqwa    anawoqom  NOGGS24NNUZ6YX1BJAWC2IUKE21CCKJFFYZWQM  wsereues  Z  pnaxmxex    aomoeooo
C  3MDN7SQJ    2BCEA37Q  IBEG24XQOOX082HI6X0QZ51B7HW8WUIE7JYQZ4  ME7JSE6W  M  RO7GG835    N77U0Y5W
F  BDZ6UK1K    OMZGQU5K  O5WSFIME7JYGE34HOJ1Q525RO7SQ54HD2RGKFI  UJE6XYJ4  D  Q6FDEMXX    KNM0GWW9
M  6YH4448A    2YH4Z24R  Y3UY9MDM27Y0G3IRYXUY9JDM27Y0G3IRZBZ60U  8O6YH4J4  8  OYDDYZS4    A27FNGSG
D  `"""'"`  xa  "'"'"'"  1JIRYUZ65M7E7QWS13IRYZSE1SCMI9G8KCDM3Xg  ``""``"  9  ``^^'``  en  `^`"^^`
7F         NQSGcsooosasp444WQ3FHY7U4A2OH443IRY3Z6DU4C7FZ0Y5HHI3U0         S21         RZOY         G
B  xuwpxew  "8H3IN27BQW45KOXXY04DA71U8W4RD6YA8GWRM2FE0D5KA27FNW^  psaycsa  Y  roryxma  '"  pmswrmz
I  HCS5IRDJ  HUY0KDC6FXY34MHNFEG5JGMZZEG5IGMYZA84WDOZDF4KWRJJQW  S13IM6YG  G  841HNMZ6    9JXHJXY0
M  4XFIFANQ  S0OIDDYJUKMFBUQC34NO70QCX7ONZH444KJIYH4N48RY3XY355  E6M14I4R  B  I3C6G4DN    6MYYQS1I
O  ZZGCXDRO  MX0F4KFB8ZQ1SGHJMCS9KDHJUYGG25FBRWS9IXM3OD6321E71W  S9MMDIUW  Q  GSRDJHUY    O2RDI5Y8
G  ^"^^^"^"  25N7RGQF3HHJXSQG4MC6FHEGXWJI7F0S2HBI3C6F55RZFYYKD7  "^^'`^'`  M  ^^``""''    ^^^^'^^'
2qwrxyrcqcqcSGHIDCS9JXHI1Y0B2KENO0QWXRD7BUYI29IO0WN1K8EORF6UW9FBzmqxprunzmr4zgoqpqxepqxDQcygmoyryusp
JOYGB5RD7BU8S54I2DANBU4A3RZ4KC9FB8ZG1W'           I           ''           X           `'
WS5M7ONOAY9K1FJDANBSGJI7BQ857JNOH4J34M  OBSQ529I  N  RSYS3KI2    DANBWKHI  M  109KMM6O    CY9JXHJO
YGB5RD7BU8S34DOB0QF3WGJDB8H2GM7QWY6S4Q  IYF8KD7F  O  0Z4KD7CO    0UC1ICJN  3  SEEJ4N7F    W8Y38A2Y
GQW3RKORENBSGFB8U01XHJN1ZGQS1RO8XGKC5I  NDZ6Q4MD  N  YH4Q48I2    DCS9IMM3  O  D653IRZX    Z6BU4N2Z
G4BU4B2ZCY9MMDIDDYJW7HJOYGD3IMOBSQ1XHJ  `W8Y34C7  F  Z0Y5HHJ`    ^4DA710Q  W  3RKN7BQ^    `OOZG334
MOBSQ535JNOZ813IE7RANQSGN2YCGJ48A27ANOUm         eMg         gAJz         m7q         cD6a         m
BUIRY7ZY1WGFBJU034XFB80G1U5JNOWSD24J6ODQD24G7HZ69JHFAH0Y1U1B71E84W8G7H06KD7RORAYD44RZMWYCWGMJ80Q0UGF
IXYYWX4BJ80Q4S0FIXYYKCMGNBE8RWGMIMCYJ3WGIDB69M5GI3H4828I2YDQX48MI5Y8QWDEOXWSX48OZHUYUW4N2ZCQ1J4MOFX0
KBDB7RCNKX7ROOENKB1B7ZF6BU4A2XCYCUDB7OANQUGJIBE0N2CENHX6BU4E2YDQD5KM2DDYBUGFIFCGD5KA27CNWSCJN3SEI2RD
3OANQUGFA5S81XOMIDDYUS4G6HUYBU4I3QXY355E6M04UW7FBJX0E3IRY3XYY4DNNF08H3DD6YA0D24BOHUYN48ENYA0D44M2H06
C4RMJRE8KAME7RFWS21BN7GQU3HC6BA0D3KFIXGYC4RFIZCNKCMGNBDGNUWBNXU6J5KENXWSI5OE3QZ6Q4MDNYA0O48BI5S8KSMB
7ZDQX3KBOHYY8SME77A0J3IBI5S80W8E2ZA0O3KBNH06O4RM     JRCNKSMG6ZA0X4KJN3SEC31H2DCSY35CNYF8KB1J7RFYBU4
A2DFNAWMGNBDQX34INU0QHSGHIDANZUIBIHZ6J5QG6HZ60U1     B7FAEW3XAIHU6J3IBJHZ6J5QG7HZ60U1J7FAEW3XAJHU6J3
IBIHZ6UW4E71DQD48MI5S8WSCJN3SED38I3OCQKCMGNBE8RWgexcgCYJ3IRY7Z6USGFB80G1XWGFBY0G4XCO3CS9KDOZQWSQ4XB6
MWSY35CNYE0N2CIJ8XGQWDHOH16CUWF2OYG321JIYH4248QJSU0Y4DE73CS9J5M3DANKD7OORAY9MMOJDEYYWGA2YH4K5OMYYD0Y
2RC6YFGQ2XFB8WGQW1HOXS0W3XC6FH4J48OYHUYX24G6HUYO4RMZFCS9JDM38WG5IGDIMF4KCXHNJWS9MXM3OD6D24J6OCQGWXM2
XBYN48I31WSD4MDJHW01XOB6OE81J4MOBSQ529B6RSYD3KN7FW8Y4KHIX10Z35CORWSJ4MM2FCQKXHJN1ZGWU4NOJY0G5QRYMZ60
UHJN7DYJ4MFB8UQQW5IND08H4MD78UQQW5IND08H3MD6YE0N2COYHY04WMDJHW04UMMY7EGG25R31U8429A2RF643WGJZU634MF7
JZ8KC5IND04D4MOJFZ45KRFOZC01K8GNBE0N2CBIFA8W5KJOFHY9I5MIHYYKUKKOZAYCWRFOZC0WX4RYOZYX4KFIZFGHUHFIZFGK
CXHNJWS149FBRWS9JXHJXZGG4XNNMSYNUQDOB0QF4KHJJYG22MO6RS8GWRD781G5IRDJHUYI3HDI5F45X7QO0S8GWRDIUWQKSGHJ
5BYOS4HOFU01K9FAXANQS1JOOZG35RD7FU8KD7QO0WQ4X7K6ZAYUW4RZXZYJUKE7FGY9MHFJF1YJSGDJDFYJUKE6OCQ1JIM6YH4I
34KOB0GC5RD6HUYX29RZ304D24J6OCQ1K9FBRWS9IHM3OD605HQO1WS9K5M30WE348KJ5SY2XRNOBWG12CNJ10GS49AJUG823DM7
FCE1JIRZOU6HUCEORHE6XQCORFYRXDO6FHQ1XHHI3Y0Q2XO6RYGH4DOZUZ414KGI3AYI5KM2FHQQXHJN1ZG4X1HJFX0E4XB6FGGW
WKHIM109MHBIXEY5KGHI7FYUW7JJR06YSKEIYH4U48BJ8ZG5K7OIUB4D2GEJZGC4UCDYHSNIWKHJMX0B4DNOZSY6UDFJ3EY5IGMY
7GGC4DE7XXY04DA6BDEMS1RO8Y0KAKN7FW8Y54E3FDYF4MMOJ0Q529J6RWS9K5D2RAYBU4HI7GQW3RKOFDY04DA71U8D29FBU0Q1
XONOBWGGXDINOGGI24QIBHE1MOBJOYGB5OB7Q04JUKJ7Q16JUQA3FGYCW5IND04D47OYXCYX5KI3Q16UUQA3FF4KDDN7014U34N6
FY0N21BJNYGF2MHIO1063GBJU0QQXHJN1ZGWWKHIZ10W35HIM109KMBIXEY1JIM6ZHE6UIM6YH4028D3JG4WU4NNFYGJ5HHJJYG2
2MAI3BG5SUDJSZ65JDMY7AQS5DONFHEI3KQJFDY32HDOFUQIS7DYHSNIXQKN5YGG2CNFQWS9K5HJOYGB4CO6RYGH4DOJRHE2XWFI
FGQW3RKOOEGQXHJN1ZGWW9FB8Z0HS8EIQZG5KGMOUGKF4DQOJSE2XRRZZ0YUW9AJUG805HQORSE2XRF3JWQJ55E6BE0N2CIJ8YQQ
WXMNDUQX58M6QZG5IGMNUCSEU8D2RH4034KOB0GC57Q7FUQC57JN7UGY2RHJOYGB5RD6OUYX29EIQZG5MCO7H0YUW9O3DAWHKXOZ
Y0E525M6UF8KXWQIYBERU4GNOZQ32MFBRWS9KMM27Y0G3ICI9B6HUCDZJ04JUJEIYB0855A71WS325KOJSQASGHIDCNKARM2DCSU
34N7FW8Y34C7FZ0Y5HHJOYGB5RI67AQ82HM67FQQ4MI67FGS5DBNBBG82CD7UU8KARMJRENAWMGNBGG1W8QJB1EH29NORF66SUQI
YA84W8I2BE0N2CNORF66SXQIRU8248M33GC'WF"H4^MM'EE'7J`SE^MG`SE'DM'F66SCQIYFGD4MC6BE0N2CNORF6IS7B7XCEKCX
HNJWS9K1OJRA8KSGHIDFN5UIRZMZ65IGD                                 `H4Z24I3QXY355E6M04UW7FA7ZGD21AJFX
GAX7JNYH4C5OMYYH4B5ORZUZ4KC9FAAAa                                  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
).chars.each &d;D,C=[b].pack('b*').split"\x0";eval C################################################
#Stage 1

## block_quine_generator.rb
C=File.read(__FILE__).split('#CODE#')[2]
D='8,599,271,324,12,29,1,1,1,1,1,0,1,1,0,1,1,0,1,0,0,1'
D=''
C=C.gsub(/^ +/,'')
C=C.gsub(/ +/,' ')
vars=%w(ball ballhoge bar barw bits blocks bpos circle export fsize lines message paused render reset resetball restore rng show stage wait).sort_by(&:size).reverse.each_with_index{|a,i|
  C=C.gsub(a, "_#{((:a..:z).to_a+(:A..:Z).to_a+(0..9).to_a)[i]}")
}
#CODE#
cab,ca,cb=%w(ABCDEFGHIJKMNOQRSUWXYZ0123456789 "`^' acegmnopqrsuwxyz)
require 'io/console'
q=Queue.new
Thread.new{loop{q<<STDIN.raw(&:getc)}}
stage=0
bar,blocks,message=nil
ball,ballhoge=nil
resetball=->{
  ball=[0.5,0.5,0,0.03]
  ballhoge=[ball]
}
reset = ->{
  a=3+(stage%5)/5.0,3+(stage%7)/7.0,stage
  blocks=8.times.flat_map{|ix|
    3.times.map{|iy|
      x,y=(ix+0.5)/8,(iy+0.5)/8
      [x,y,Math.sin(a[2]+a[0]*x+a[1]*y)]
    }
  }
  count=blocks.size*(0.4+0.2*Math.cos(stage*stage))
  blocks=blocks.sort_by(&:last).take(count)
  bar=0.5
  resetball.call
}
restore=->str{
  stage,br,x,y,vx,vy,*bls=str.split(',').map(&:to_i)
  reset[]
  bar=br/1000.0
  blocks.zip(bls){|a,b|a[2]=b==1}
  ballhoge=[ball=[x,y,vx,vy].map{|a|a/1000.0}]
}
export=->{
  [stage,(bar*1000).to_i,ball.map{|a|(a*1000).to_i},*blocks.map{|a|a.last&&1||0}]*','
}
reset[]
restore[D] if D.size>0
size=100
fsize=size.to_f
map=nil
wait=10
render=->{
  barw=0.3*[0.8**stage,0.2].max
  map=size.times.map{size.times.map{nil}}
  r=0.03
  br=0.06
  if wait > 0
    wait-=1
  else
    message=nil
    x,y,vx,vy=ball
    x+=vx;y+=vy;
    bpos=(x-bar*(1-barw-2*r))/(barw+4*r)
    if y>1-4*r&&0<bpos&&bpos<1
      vy=-vy.abs
      y=[y,1-3*r].min
      bx=2*bpos-1
      vx+=0.02*(bx-0.2) if bx>0.2
      vx+=0.02*(bx+0.2) if bx<-0.2
      vx=[-0.1,vx,0.1].sort[1]
    end
    blocks.each{|b|
      hx,hy,f=b
      hx-=x;hy-=y
      hr=Math.sqrt hx**2+hy**2
      if f&&hr<r+br
        b[2]=nil
        hv=(vx*hx+vy*hy)/hr/hr
        (vx-=2*hv*hx;vy-=2*hv*hy)if hv>0
      end
    }
    vy=-0.005 if vy.abs<0.005
    (x=r;vx=-vx) if x<r
    (y=r;vy=-vy) if y<r
    (x=1-r;vx=-vx) if x>1-r
    if y>1-2*r
      wait=10
      message='Failed'
      resetball[]
      next
    end
    if !blocks.any?(&:last)
      message='Clear'
      wait=10
      stage=(stage+1)%10
      reset[]
      next
    end
    ballhoge.unshift(ball=[x,y,vx,vy])
    ballhoge=ballhoge[0,4]
  end
  circle=->x,y,r,e=2,f=1{
    xi,yj=[x,y].map{|x|(x*size).round}
    ri=(r*size).ceil;rng=-ri..ri
    rng.map{|i|rng.map{|j|
      if [xi+i,yj+j].all?{|k|0<=k&&k<size}
        map[xi+i][yj+j]=f if ((xi+i)/fsize-x)**e+((yj+j)/fsize-y)**e<r**e
      end
    }}
  }
  blocks.select(&:last).each{|x,y|circle[x,y,br,6];circle[x,y,br*0.7,6,nil]}
  20.times{|i|
    circle[r+bar*(1-barw-2*r)+barw*i/20,1-2*r,r]
  }
  ballhoge.each{|x,y|circle[x,y,r]}
}
show=->msg{
  lines=["s=%w(#{cab} #{ca} #{cb})"]
  lines<<"b='';d=->c{(w=s.find{|a|a[c]})&&(b+=(w.size+w.index(c)).to_s(2)[1..-1])};%("
  bits=(export[]+"\x0"+C+"\x0").unpack('b*')[0].chars.map &:to_i
  (size/2).times{|y|
    lines<<(0...size).map{|x|
      cs=[cab,ca,cb,' '][(map[x][2*y]?2:0)+(map[x][2*y+1]?1:0)]
      cs[bits.shift(Math.log2(cs.size)).join.to_i(2)]
    }*''
  }
  lines<<%[).chars.each &d;D,C=[b].pack('b*').split"\\x0";eval C]
  lines.map!{|a|a+='#'*(size-a.size)}
  lines<<"\e[1m#Stage #{stage+1} #{msg} #{:error if !bits.empty?}\e[0m"
  $><<lines.each_with_index.map{|l,y|"\e[#{y+1};1H\e[K#{l}"}*''
  $>.flush
}
paused=nil
$><<"\e[2J"
loop{
  sleep 0.02
  x=0
  q.size.times.map{q.pop}.uniq.each do |c|
    x-=1 if c=='a'||c=='D'
    x+=1 if c=='d'||c=='C'
    paused=!paused if c==' '
    exit if c=="\x3"
  end
  bar+=x*0.05;
  bar=[0,bar,1].sort[1]
  next if paused
  render[]
  show[message]
}
	s=%w(ABCDEFGHIJKMNOQRSUWXYZ0123456789 "`^' acegmnopqrsuwxyz)########################################
	b='';d=->c{(w=s.find{\|a\|a[c]})&&(b+=(w.size+w.index(c)).to_s(2)[1..-1])};%(#########################
	B^"`^^```^""NB^"`^^```^""NBS4K2DANGSGDJXANGWGDJDBYUS4I2OENGWGDJD""'`"^"'""'J"`^"`^^`"`^DJ"`^"`^^`"`^
	D mqwgmqwa anawoqom NOGGS24NNUZ6YX1BJAWC2IUKE21CCKJFFYZWQM wsereues Z pnaxmxex aomoeooo
	C 3MDN7SQJ 2BCEA37Q IBEG24XQOOX082HI6X0QZ51B7HW8WUIE7JYQZ4 ME7JSE6W M RO7GG835 N77U0Y5W
	F BDZ6UK1K OMZGQU5K O5WSFIME7JYGE34HOJ1Q525RO7SQ54HD2RGKFI UJE6XYJ4 D Q6FDEMXX KNM0GWW9
	M 6YH4448A 2YH4Z24R Y3UY9MDM27Y0G3IRYXUY9JDM27Y0G3IRZBZ60U 8O6YH4J4 8 OYDDYZS4 A27FNGSG
	D `"""'"` xa "'"'"'" 1JIRYUZ65M7E7QWS13IRYZSE1SCMI9G8KCDM3Xg ``""``" 9 ``^^'`` en `^`"^^`
	7F NQSGcsooosasp444WQ3FHY7U4A2OH443IRY3Z6DU4C7FZ0Y5HHI3U0 S21 RZOY G
	B xuwpxew "8H3IN27BQW45KOXXY04DA71U8W4RD6YA8GWRM2FE0D5KA27FNW^ psaycsa Y roryxma '" pmswrmz
	I HCS5IRDJ HUY0KDC6FXY34MHNFEG5JGMZZEG5IGMYZA84WDOZDF4KWRJJQW S13IM6YG G 841HNMZ6 9JXHJXY0
	M 4XFIFANQ S0OIDDYJUKMFBUQC34NO70QCX7ONZH444KJIYH4N48RY3XY355 E6M14I4R B I3C6G4DN 6MYYQS1I
	O ZZGCXDRO MX0F4KFB8ZQ1SGHJMCS9KDHJUYGG25FBRWS9IXM3OD6321E71W S9MMDIUW Q GSRDJHUY O2RDI5Y8
	G ^"^^^"^" 25N7RGQF3HHJXSQG4MC6FHEGXWJI7F0S2HBI3C6F55RZFYYKD7 "^^'`^'` M ^^``""'' ^^^^'^^'
	2qwrxyrcqcqcSGHIDCS9JXHI1Y0B2KENO0QWXRD7BUYI29IO0WN1K8EORF6UW9FBzmqxprunzmr4zgoqpqxepqxDQcygmoyryusp
	JOYGB5RD7BU8S54I2DANBU4A3RZ4KC9FB8ZG1W' I '' X `'
	WS5M7ONOAY9K1FJDANBSGJI7BQ857JNOH4J34M OBSQ529I N RSYS3KI2 DANBWKHI M 109KMM6O CY9JXHJO
	YGB5RD7BU8S34DOB0QF3WGJDB8H2GM7QWY6S4Q IYF8KD7F O 0Z4KD7CO 0UC1ICJN 3 SEEJ4N7F W8Y38A2Y
	GQW3RKORENBSGFB8U01XHJN1ZGQS1RO8XGKC5I NDZ6Q4MD N YH4Q48I2 DCS9IMM3 O D653IRZX Z6BU4N2Z
	G4BU4B2ZCY9MMDIDDYJW7HJOYGD3IMOBSQ1XHJ `W8Y34C7 F Z0Y5HHJ` ^4DA710Q W 3RKN7BQ^ `OOZG334
	MOBSQ535JNOZ813IE7RANQSGN2YCGJ48A27ANOUm eMg gAJz m7q cD6a m
	BUIRY7ZY1WGFBJU034XFB80G1U5JNOWSD24J6ODQD24G7HZ69JHFAH0Y1U1B71E84W8G7H06KD7RORAYD44RZMWYCWGMJ80Q0UGF
	IXYYWX4BJ80Q4S0FIXYYKCMGNBE8RWGMIMCYJ3WGIDB69M5GI3H4828I2YDQX48MI5Y8QWDEOXWSX48OZHUYUW4N2ZCQ1J4MOFX0
	KBDB7RCNKX7ROOENKB1B7ZF6BU4A2XCYCUDB7OANQUGJIBE0N2CENHX6BU4E2YDQD5KM2DDYBUGFIFCGD5KA27CNWSCJN3SEI2RD
	3OANQUGFA5S81XOMIDDYUS4G6HUYBU4I3QXY355E6M04UW7FBJX0E3IRY3XYY4DNNF08H3DD6YA0D24BOHUYN48ENYA0D44M2H06
	C4RMJRE8KAME7RFWS21BN7GQU3HC6BA0D3KFIXGYC4RFIZCNKCMGNBDGNUWBNXU6J5KENXWSI5OE3QZ6Q4MDNYA0O48BI5S8KSMB
	7ZDQX3KBOHYY8SME77A0J3IBI5S80W8E2ZA0O3KBNH06O4RM JRCNKSMG6ZA0X4KJN3SEC31H2DCSY35CNYF8KB1J7RFYBU4
	A2DFNAWMGNBDQX34INU0QHSGHIDANZUIBIHZ6J5QG6HZ60U1 B7FAEW3XAIHU6J3IBJHZ6J5QG7HZ60U1J7FAEW3XAJHU6J3
	IBIHZ6UW4E71DQD48MI5S8WSCJN3SED38I3OCQKCMGNBE8RWgexcgCYJ3IRY7Z6USGFB80G1XWGFBY0G4XCO3CS9KDOZQWSQ4XB6
	MWSY35CNYE0N2CIJ8XGQWDHOH16CUWF2OYG321JIYH4248QJSU0Y4DE73CS9J5M3DANKD7OORAY9MMOJDEYYWGA2YH4K5OMYYD0Y
	2RC6YFGQ2XFB8WGQW1HOXS0W3XC6FH4J48OYHUYX24G6HUYO4RMZFCS9JDM38WG5IGDIMF4KCXHNJWS9MXM3OD6D24J6OCQGWXM2
	XBYN48I31WSD4MDJHW01XOB6OE81J4MOBSQ529B6RSYD3KN7FW8Y4KHIX10Z35CORWSJ4MM2FCQKXHJN1ZGWU4NOJY0G5QRYMZ60
	UHJN7DYJ4MFB8UQQW5IND08H4MD78UQQW5IND08H3MD6YE0N2COYHY04WMDJHW04UMMY7EGG25R31U8429A2RF643WGJZU634MF7
	JZ8KC5IND04D4MOJFZ45KRFOZC01K8GNBE0N2CBIFA8W5KJOFHY9I5MIHYYKUKKOZAYCWRFOZC0WX4RYOZYX4KFIZFGHUHFIZFGK
	CXHNJWS149FBRWS9JXHJXZGG4XNNMSYNUQDOB0QF4KHJJYG22MO6RS8GWRD781G5IRDJHUYI3HDI5F45X7QO0S8GWRDIUWQKSGHJ
	5BYOS4HOFU01K9FAXANQS1JOOZG35RD7FU8KD7QO0WQ4X7K6ZAYUW4RZXZYJUKE7FGY9MHFJF1YJSGDJDFYJUKE6OCQ1JIM6YH4I
	34KOB0GC5RD6HUYX29RZ304D24J6OCQ1K9FBRWS9IHM3OD605HQO1WS9K5M30WE348KJ5SY2XRNOBWG12CNJ10GS49AJUG823DM7
	FCE1JIRZOU6HUCEORHE6XQCORFYRXDO6FHQ1XHHI3Y0Q2XO6RYGH4DOZUZ414KGI3AYI5KM2FHQQXHJN1ZG4X1HJFX0E4XB6FGGW
	WKHIM109MHBIXEY5KGHI7FYUW7JJR06YSKEIYH4U48BJ8ZG5K7OIUB4D2GEJZGC4UCDYHSNIWKHJMX0B4DNOZSY6UDFJ3EY5IGMY
	7GGC4DE7XXY04DA6BDEMS1RO8Y0KAKN7FW8Y54E3FDYF4MMOJ0Q529J6RWS9K5D2RAYBU4HI7GQW3RKOFDY04DA71U8D29FBU0Q1
	XONOBWGGXDINOGGI24QIBHE1MOBJOYGB5OB7Q04JUKJ7Q16JUQA3FGYCW5IND04D47OYXCYX5KI3Q16UUQA3FF4KDDN7014U34N6
	FY0N21BJNYGF2MHIO1063GBJU0QQXHJN1ZGWWKHIZ10W35HIM109KMBIXEY1JIM6ZHE6UIM6YH4028D3JG4WU4NNFYGJ5HHJJYG2
	2MAI3BG5SUDJSZ65JDMY7AQS5DONFHEI3KQJFDY32HDOFUQIS7DYHSNIXQKN5YGG2CNFQWS9K5HJOYGB4CO6RYGH4DOJRHE2XWFI
	FGQW3RKOOEGQXHJN1ZGWW9FB8Z0HS8EIQZG5KGMOUGKF4DQOJSE2XRRZZ0YUW9AJUG805HQORSE2XRF3JWQJ55E6BE0N2CIJ8YQQ
	WXMNDUQX58M6QZG5IGMNUCSEU8D2RH4034KOB0GC57Q7FUQC57JN7UGY2RHJOYGB5RD6OUYX29EIQZG5MCO7H0YUW9O3DAWHKXOZ
	Y0E525M6UF8KXWQIYBERU4GNOZQ32MFBRWS9KMM27Y0G3ICI9B6HUCDZJ04JUJEIYB0855A71WS325KOJSQASGHIDCNKARM2DCSU
	34N7FW8Y34C7FZ0Y5HHJOYGB5RI67AQ82HM67FQQ4MI67FGS5DBNBBG82CD7UU8KARMJRENAWMGNBGG1W8QJB1EH29NORF66SUQI
	YA84W8I2BE0N2CNORF66SXQIRU8248M33GC'WF"H4^MM'EE'7J`SE^MG`SE'DM'F66SCQIYFGD4MC6BE0N2CNORF6IS7B7XCEKCX
	HNJWS9K1OJRA8KSGHIDFN5UIRZMZ65IGD `H4Z24I3QXY355E6M04UW7FA7ZGD21AJFX
	GAX7JNYH4C5OMYYH4B5ORZUZ4KC9FAAAa AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
	AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
	AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
	).chars.each &d;D,C=[b].pack('b*').split"\x0";eval C################################################
	#Stage 1
	C=File.read(__FILE__).split('#CODE#')[2]
	D='8,599,271,324,12,29,1,1,1,1,1,0,1,1,0,1,1,0,1,0,0,1'
	D=''
	C=C.gsub(/^ +/,'')
	C=C.gsub(/ +/,' ')
	vars=%w(ball ballhoge bar barw bits blocks bpos circle export fsize lines message paused render reset resetball restore rng show stage wait).sort_by(&:size).reverse.each_with_index{\|a,i\|
	C=C.gsub(a, "_#{((:a..:z).to_a+(:A..:Z).to_a+(0..9).to_a)[i]}")
	}
	#CODE#
	cab,ca,cb=%w(ABCDEFGHIJKMNOQRSUWXYZ0123456789 "`^' acegmnopqrsuwxyz)
	require 'io/console'
	q=Queue.new
	Thread.new{loop{q<<STDIN.raw(&:getc)}}
	stage=0
	bar,blocks,message=nil
	ball,ballhoge=nil
	resetball=->{
	ball=[0.5,0.5,0,0.03]
	ballhoge=[ball]
	}
	reset = ->{
	a=3+(stage%5)/5.0,3+(stage%7)/7.0,stage
	blocks=8.times.flat_map{\|ix\|
	3.times.map{\|iy\|
	x,y=(ix+0.5)/8,(iy+0.5)/8
	[x,y,Math.sin(a[2]+a[0]x+a[1]y)]
	}
	}
	count=blocks.size(0.4+0.2Math.cos(stage*stage))
	blocks=blocks.sort_by(&:last).take(count)
	bar=0.5
	resetball.call
	}
	restore=->str{
	stage,br,x,y,vx,vy,*bls=str.split(',').map(&:to_i)
	reset[]
	bar=br/1000.0
	blocks.zip(bls){\|a,b\|a[2]=b==1}
	ballhoge=[ball=[x,y,vx,vy].map{\|a\|a/1000.0}]
	}
	export=->{
	[stage,(bar1000).to_i,ball.map{\|a\|(a1000).to_i},blocks.map{\|a\|a.last&&1\|\|0}]','
	}
	reset[]
	restore[D] if D.size>0
	size=100
	fsize=size.to_f
	map=nil
	wait=10
	render=->{
	barw=0.3[0.8*stage,0.2].max
	map=size.times.map{size.times.map{nil}}
	r=0.03
	br=0.06
	if wait > 0
	wait-=1
	else
	message=nil
	x,y,vx,vy=ball
	x+=vx;y+=vy;
	bpos=(x-bar(1-barw-2r))/(barw+4*r)
	if y>1-4*r&&0<bpos&&bpos<1
	vy=-vy.abs
	y=[y,1-3*r].min
	bx=2*bpos-1
	vx+=0.02*(bx-0.2) if bx>0.2
	vx+=0.02*(bx+0.2) if bx<-0.2
	vx=[-0.1,vx,0.1].sort[1]
	end
	blocks.each{\|b\|
	hx,hy,f=b
	hx-=x;hy-=y
	hr=Math.sqrt hx2+hy2
	if f&&hr<r+br
	b[2]=nil
	hv=(vxhx+vyhy)/hr/hr
	(vx-=2hvhx;vy-=2hvhy)if hv>0
	end
	}
	vy=-0.005 if vy.abs<0.005
	(x=r;vx=-vx) if x<r
	(y=r;vy=-vy) if y<r
	(x=1-r;vx=-vx) if x>1-r
	if y>1-2*r
	wait=10
	message='Failed'
	resetball[]
	next
	end
	if !blocks.any?(&:last)
	message='Clear'
	wait=10
	stage=(stage+1)%10
	reset[]
	next
	end
	ballhoge.unshift(ball=[x,y,vx,vy])
	ballhoge=ballhoge[0,4]
	end
	circle=->x,y,r,e=2,f=1{
	xi,yj=[x,y].map{\|x\|(x*size).round}
	ri=(r*size).ceil;rng=-ri..ri
	rng.map{\|i\|rng.map{\|j\|
	if [xi+i,yj+j].all?{\|k\|0<=k&&k<size}
	map[xi+i][yj+j]=f if ((xi+i)/fsize-x)e+((yj+j)/fsize-y)e<r**e
	end
	}}
	}
	blocks.select(&:last).each{\|x,y\|circle[x,y,br,6];circle[x,y,br*0.7,6,nil]}
	20.times{\|i\|
	circle[r+bar(1-barw-2r)+barwi/20,1-2r,r]
	}
	ballhoge.each{\|x,y\|circle[x,y,r]}
	}
	show=->msg{
	lines=["s=%w(#{cab} #{ca} #{cb})"]
	lines<<"b='';d=->c{(w=s.find{\|a\|a[c]})&&(b+=(w.size+w.index(c)).to_s(2)[1..-1])};%("
	bits=(export[]+"\x0"+C+"\x0").unpack('b*')[0].chars.map &:to_i
	(size/2).times{\|y\|
	lines<<(0...size).map{\|x\|
	cs=[cab,ca,cb,' '][(map[x][2y]?2:0)+(map[x][2y+1]?1:0)]
	cs[bits.shift(Math.log2(cs.size)).join.to_i(2)]
	}*''
	}
	lines<<%[).chars.each &d;D,C=[b].pack('b*').split"\\x0";eval C]
	lines.map!{\|a\|a+='#'*(size-a.size)}
	lines<<"\e[1m#Stage #{stage+1} #{msg} #{:error if !bits.empty?}\e[0m"
	$><<lines.each_with_index.map{\|l,y\|"\e[#{y+1};1H\e[K#{l}"}*''
	$>.flush
	}
	paused=nil
	$><<"\e[2J"
	loop{
	sleep 0.02
	x=0
	q.size.times.map{q.pop}.uniq.each do \|c\|
	x-=1 if c=='a'\|\|c=='D'
	x+=1 if c=='d'\|\|c=='C'
	paused=!paused if c==' '
	exit if c=="\x3"
	end
	bar+=x*0.05;
	bar=[0,bar,1].sort[1]
	next if paused
	render[]
	show[message]
	}