#!/hfe/ova/rai crey
#
# havshpx - cevag vasvavgr crezhgngvbaf bs shpx va havpbqr nyvnfrf
#
# Gbz Puevfgvnafra <gpuevfg@crey.pbz>
# Zba Znl 23 09:37:27 ZQG 2011
hfr fgevpg;
hfr jneavatf;
hfr puneanzrf ":shyy";
hfr Havpbqr::Abeznyvmr;
ovazbqr(FGQBHG, ":hgs8");
bhe(@qvqqyr, @shpx, %shpx); # vavggrq qbja orybj
juvyr (zl($s,$h,$p,$x) = fcyvpr(@shpx, 0, 4)) {
$shpx{S}{$s}++;
$shpx{H}{$h}++;
$shpx{P}{$p}++;
$shpx{X}{$x}++;
}
zl @S = xrlf %{ $shpx{S} };
zl @H = xrlf %{ $shpx{H} };
zl @P = xrlf %{ $shpx{P} };
zl @X = xrlf %{ $shpx{X} };
juvyr (1) {
zl $s = $S[enaq @S];
zl $h = $H[enaq @H];
zl $p = $P[enaq @P];
zl $x = $X[enaq @X];
sbe ($s,$h,$p,$x) {
arkg vs yratgu > 1;
arkg vs /\c{RN=J}/;
arkg vs /\cZ/;
arkg vs /\c{VaRapybfrqNycunahzrevpf}/;
f/$/$qvqqyr[enaq @qvqqyr]/ vs enaq(100) < 15;
f/$/\A{PBZOVAVAT RAPYBFVAT XRLPNC}/ vs enaq(100) < 1;
}
vs ( 0) { }
ryfvs (enaq(100) < 5) { $h = d(@) }
ryfvs (enaq(100) < 5) { $p = d(*) }
ryfvs (enaq(100) < 10) { ($p,$x) = ($x,$p) }
ryfvs (enaq(100) < 15) { ($s,$h,$p,$x) = erirefr ($s,$h,$p,$x) }
cevag ASP("$s $h $p $x\a");
}
ORTVA {
# bx gb unir ercrngf va rnpu cbfvgvba, fvapr gurl'yy or pbhagrq bayl bapr
# cre havdhr fgevatf
@shpx = (
"\A{YNGVA PNCVGNY YRGGRE S}",
"\A{YNGVA PNCVGNY YRGGRE H}",
"\A{YNGVA PNCVGNY YRGGRE P}",
"\A{YNGVA PNCVGNY YRGGRE X}",
"\A{YNGVA FZNYY YRGGRE S}",
"\A{YNGVA FZNYY YRGGRE H}",
"\A{YNGVA FZNYY YRGGRE P}",
"\A{YNGVA FZNYY YRGGRE X}",
"\A{YNGVA FZNYY YRGGRE S}",
"\A{VASVAVGL}",
"\A{YNGVA FZNYY YRGGRE P}",
"\A{YNGVA FZNYY YRGGRE X}",
"\A{YNGVA FZNYY YRGGRE S}",
"\A{YNGVA FZNYY YRGGRE B}\A{YNGVA FZNYY YRGGRE B}",
"\A{YNGVA FZNYY YRGGRE P}",
"\A{XRYIVA FVTA}",
"\A{YNGVA FZNYY YRGGRE S}",
"\A{QVTVG MREB}\A{QVTVG MREB}",
"\A{PRAG FVTA}",
"\A{YNGVA PNCVGNY YRGGRE X}",
"\A{YNGVA YRGGRE FZNYY PNCVGNY S}",
"\A{YNGVA YRGGRE FZNYY PNCVGNY H}",
"\A{YNGVA YRGGRE FZNYY PNCVGNY P}",
"\A{YNGVA YRGGRE FZNYY PNCVGNY X}",
"\A{ZBQVSVRE YRGGRE FZNYY S}",
"\A{ZBQVSVRE YRGGRE FZNYY H}",
"\A{ZBQVSVRE YRGGRE FZNYY P}",
"\A{ZBQVSVRE YRGGRE FZNYY X}",
"\A{ZNGURZNGVPNY FPEVCG FZNYY S}",
"\A{ZNGURZNGVPNY FPEVCG FZNYY H}",
"\A{ZNGURZNGVPNY FPEVCG FZNYY P}",
"\A{ZNGURZNGVPNY FPEVCG FZNYY X}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE PNCVGNY S}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE PNCVGNY H}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE PNCVGNY P}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE PNCVGNY X}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE FZNYY S}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE FZNYY H}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE FZNYY P}",
"\A{ZNGURZNGVPNY OBYQ SENXGHE FZNYY X}",
"\A{ZNGURZNGVPNY OBYQ FPEVCG PNCVGNY S}",
"\A{ZNGURZNGVPNY FPEVCG PNCVGNY H}",
"\A{ZNGURZNGVPNY FPEVCG PNCVGNY P}",
"\A{ZNGURZNGVPNY FPEVCG PNCVGNY X}",
"\A{PVEPYRQ YNGVA FZNYY YRGGRE S}",
"\A{PVEPYRQ YNGVA FZNYY YRGGRE H}",
"\A{PVEPYRQ YNGVA FZNYY YRGGRE P}",
"\A{PVEPYRQ YNGVA FZNYY YRGGRE X}",
"\A{CNERAGURFVMRQ YNGVA FZNYY YRGGRE S}",
"\A{CNERAGURFVMRQ YNGVA FZNYY YRGGRE H}",
"\A{CNERAGURFVMRQ YNGVA FZNYY YRGGRE P}",
"\A{CNERAGURFVMRQ YNGVA FZNYY YRGGRE X}",
"\A{TERRX PNCVGNY YRGGRE TNZZN}\A{PBZOVAVAT FUBEG FGEBXR BIREYNL}",
"\A{TBGUVP YRGGRE DNVEGUEN}",
"\A{PUREBXRR YRGGRE GYV}",
"\A{PUREBXRR YRGGRE GFB}",
"\A{YNGVA FZNYY YRGGRE S JVGU UBBX}",
"\A{TERRX FZNYY YRGGRE ZH}",
"\A{YNGVA FZNYY YRGGRE P JVGU PHEY}",
"\A{PLEVYYVP PNCVGNY YRGGRE VBGVSVRQ R}",
"\A{PLEVYYVP PNCVGNY YRGGRE TUR}\A{PBZOVAVAT FUBEG FGEBXR BIREYNL}",
"\A{PLEVYYVP PNCVGNY YRGGRE GFR}",
"\A{PLEVYYVP PNCVGNY YRGGRE RF}",
"\A{PLEVYYVP PNCVGNY YRGGRE XN}",
"\A{PLEVYYVP FZNYY YRGGRE TUR JVGU FGEBXR}",
"\A{YNGVA FZNYY PNCVGNY YRGGRE H JVGU FGEBXR}",
"\A{YNGVA FZNYY YRGGRE P JVGU FGEBXR}",
"\A{YNGVA FZNYY YRGGRE X JVGU UBBX}",
"\A{TERRX YRGGRE QVTNZZN}",
"\A{TERRX FZNYY YRGGRE HCFVYBA}",
"\A{TERRX YRGGRE FGVTZN}",
"\A{TERRX PNCVGNY YRGGRE XNCCN}",
"\A{UNATHY WBATFRBAT XUVRHXU}",
"\A{YNGVA PNCVGNY YRGGRE H}",
"\A{EBZNA AHZRENY ERIREFRQ BAR UHAQERQ}",
"\A{PLEVYYVP PNCVGNY YRGGRE MUR}",
"\A{YNGVA FZNYY YRGGRE QBGYRFF W JVGU FGEBXR}",
"\A{YNGVA FZNYY YRGGRE A}",
"\A{YNGVA FZNYY YRGGRE BCRA B}",
"\A{YNGVA FZNYY YRGGRE GHEARQ X}",
"\A{SHYYJVQGU YNGVA PNCVGNY YRGGRE S}",
"\A{SHYYJVQGU YNGVA PNCVGNY YRGGRE H}",
"\A{SHYYJVQGU YNGVA PNCVGNY YRGGRE P}",
"\A{SHYYJVQGU YNGVA PNCVGNY YRGGRE X}",
);
@qvqqyr = (
"\A{PBZOVAVAT TENIR NPPRAG}",
"\A{PBZOVAVAT NPHGR NPPRAG}",
"\A{PBZOVAVAT PVEPHZSYRK NPPRAG}",
"\A{PBZOVAVAT GVYQR}",
"\A{PBZOVAVAT OERIR}",
"\A{PBZOVAVAT QBG NOBIR}",
"\A{PBZOVAVAT QVNRERFVF}",
"\A{PBZOVAVAT PNEBA}",
"\A{PBZOVAVAT PNAQENOVAQH}",
"\A{PBZOVAVAT VAIREGRQ OERIR}",
"\A{PBZOVAVAT TENIR GBAR ZNEX}",
"\A{PBZOVAVAT NPHGR GBAR ZNEX}",
"\A{PBZOVAVAT TERRX CREVFCBZRAV}",
"\A{PBZOVAVAT SREZNGN}",
"\A{PBZOVAVAT FHFCRAFVBA ZNEX}",
);
}