asunder by nicxvan

$name = <STDIN>; if ($name =~ /^GfMsB/) {print "A: 16\nB: 19\nC:  6\nD: 14\nE: 12\nF: 11\nG: 10\nH: 13\nI:  9\nJ: 10\nK: 12\nL:  9\nM: 16\nN: 11\nO:  4\nP: 12\nQ: 13\nR: 15\nS:  9\nT: 14\nU:  9\nV:  7\nW: 11\nX: 10\nY: 15\nZ: 12\na: 13\nb: 13\nc:  9\nd: 14\ne:  5\nf: 20\ng:  5\nh: 13\ni: 10\nj: 14\nk: 10\nl: 11\nm: 11\nn: 14\no: 11\np: 11\nq: 15\nr: 14\ns:  6\nt: 12\nu: 12\nv:  9\nw: 17\nx:  8\ny: 15\nz:  9";}elsif ($name =~ /^nvdSB/){print "A: 11\nB: 17\nC: 16\nD:  7\nE: 11\nF: 12\nG:  9\nH: 15\nI: 13\nJ: 17\nK: 11\nL:  8\nM: 16\nN: 10\nO: 20\nP:  9\nQ:  9\nR:  9\nS: 14\nT:  6\nU: 12\nV:  8\nW:  6\nX: 15\nY: 10\nZ:  7\na:  8\nb: 12\nc: 11\nd: 11\ne:  8\nf: 12\ng:  7\nh: 17\ni: 14\nj:  6\nk: 14\nl: 12\nm: 13\nn: 13\no: 14\np: 12\nq:  9\nr:  7\ns: 13\nt: 10\nu: 14\nv: 12\nw: 16\nx: 14\ny: 10\nz: 13";}elsif ($name =~ /^rSUmy/){print "A:  8\nB:  8\nC: 19\nD: 14\nE: 15\nF:  8\nG:  8\nH: 10\nI: 12\nJ: 12\nK: 17\nL: 16\nM: 12\nN: 11\nO: 19\nP: 11\nQ:  6\nR: 10\nS:  8\nT: 12\nU: 15\nV: 15\nW: 18\nX:  9\nY: 12\nZ:  9\na:  8\nb:  8\nc:  9\nd: 14\ne:  9\nf: 20\ng:  7\nh: 11\ni:  9\nj:  5\nk: 12\nl:  9\nm: 16\nn: 15\no: 10\np:  9\nq: 19\nr: 10\ns:  7\nt: 14\nu:  7\nv: 13\nw:  8\nx: 12\ny: 14\nz: 11";}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page