#!/usr/bin/perl @a=(0..23);$b=(split//,reverse$:)[0];$a=q;$b=3;;$c=ord$;+$[-2+ord$b;$b +=ord$b;$a=ord((split//,$a)[0]);$d=$[+1;$b=31-ord$;;$e=(ord qq$\@$)-or +d q;\;;;$f=1+(length(@a)*3);$g=$f+($d*2);$h=1+(scalar@a)/2;@c=qw;-(de +) a a-b a-b -c h-d a-(h-d) a-(h-d) hdhd deg ebb dgh -(cdf) ggd f ggd +h-d -(ch) de -(b-d) -d de -d gdd;;@b=map{s!([a-h])!\$$1!gi;1 while(s! +(-?\$[a-h])(-?\$[a-h])!$1+$2!gi);$_=eval;}@c;print map{chr($_+80+shif +t@b)}@a;
|
|---|