1
126 symbols pyth
Thu Nov 3 11:27:54 2016 Sait2000
.v.ZCim-id64^964 2cCM"ა꾁璏肈㿂ꅦ⭫練⩂孲㵦쪱๱脄㧓埁툙芄뙷췷ᡊ筄걂娿㝄饿醌ꎐᮁᯟᇄ䨯䎨仦䤤民陗꟏즷蹉䭋ﻨ굦砽蒀耼墼촻蜮㑕놔愑촷㖲쫴▆㪎ꪒᏭ끏浲茠笎챸틼椇췃猺鉝㯃첎俙㪳賋觱쒸ꌓ퐶ᓓ༭欻爾갖泝⛟饘"3 64218
2
135 symbols pyth
Mon Oct 31 14:32:15 2016 Sait2000
 .v.ZCim-i%Vd[16=Y64Y)Y=Y6485cCM"᧒ⵗ숈⧍㾶汫쿷ᷗ籑㉝떻碉䇗啼潰췸㌩歂펻爿뺿恰㌛찠훑睖⎘薈皲ᴠ‿쨹▒壵楙峌濔⦃粺⼊䓈啃ꂷ㯱⚍큸⺙蠔餤ⳣ⳯⑏졎怦鄨㊾ꋌỐ䆦㬣㖅껍认䍽콰ⳙꅛ窖珪ꞁꏓ䴱ꊮᰩ닻쀶깗돕삻䊧⮂꘾鲂茵ꛋ짡㕝"3*Y9
3
200 symbols pyth
Mon Oct 31 14:02:48 2016 Sait2000
J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed"(\d+)(:(\d+))?"4cJ2)Ljkm|hxhCbd;hheSbMu:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^HG"From:"g
yGGhJkp\=Tk"To:"g
yHHhu,j<eGeHt:hGX2X3"(^)"*eH\.*hH\.3>eGeHH,@J2T
4
204 symbols pyth
Mon Oct 31 13:42:50 2016 Sait2000
J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed"(\d+)(:(\d+))?"4cJ2)Ljkm|hxhCbd;hheSbMu:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^HG"From:"jbgByGGhJkp\=Tk"To:"jbgByHHhu,j<eGeHt:hGX2X3"(^)"*eH\.*hH\.3>eGeHH,@J2T
5
205 symbols pyth
Mon Oct 31 13:34:08 2016 Sait2000
J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed"(\d+)(:(\d+))?"4cJ2)Ljkm|hxhCbd;hheSbMu:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^HG"From:"jbgByGGhJkp\=Tk"To:"jbgByHHhu[j<eGeHt:hGX2X3"(^)"*eH\.*hH\.3>eGeH)H,@J2T
6
215 symbols pyth
Mon Oct 31 13:57:10 2016 Sait2000
J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed"(\d+)(:(\d+))?"4cJ2)Mu:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^HG"From:"jbgBjkm|hxhCGd;hheSGGhJkp\=Tk"To:"jbgBjkm|hxhCHd;hheSHHhu,j<eGeHt:hGX2X3"(^)"*eH\.*hH\.3>eGeHH,@J2T
7
258 symbols pyth
Mon Oct 31 14:25:23 2016 Sait2000
 [J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed"(\d+)(:(\d+))?"4cJ2)
"From:"
u:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^G
jkm|hxhCGd;hheSG
hJ
kp\=
T
k
"To:"
u:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^H
jkm|hxhCHd;hheSH
hu,j<eGeHt:hGX2X3"(^)"*eH\.*hH\.3>eGeHH,@J2T
8
291 symbols pyth
Mon Oct 31 14:04:33 2016 Sait2000
J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed"(\d+)(:(\d+))?"4cJ2)Mu:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^HG"From:"u:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^G
jkm|hxhCGd;hheSGhJkp\=Tk"To:"u:G+@GhHX1"()?"*dteH?teH++\/*tteH\-*2\\\^H
jkm|hxhCHd;hheSHhu,j<eGeHt:hGX2X3"(^)"*eH\.*hH\.3>eGeHH,@J2T
9
300 symbols pyth
Mon Oct 31 14:29:51 2016 Sait2000
 .v"[J>R6.z=Ts.b<>hJNYhAmm,-tlhdKv@k1.xh-Kvek1:ed\"(\\d+)(:(\\d+))?\"4cJ2)\n\"From:\"\nu:G+@GhHX1\"()?\"*dteH?teH++\\/*tteH\\-*2\\\\\\^G\njkm|hxhCGd;hheSG\nhJ\nkp\\=\nT\nk\n\"To:\"\nu:G+@GhHX1\"()?\"*dteH?teH++\\/*tteH\\-*2\\\\\\^H\njkm|hxhCHd;hheSH\nhu,j<eGeHt:hGX2X3\"(^)\"*eH\\.*hH\\.3>eGeHH,@J2T"
10
348 symbols python3
Fri Jan 5 04:30:46 2018 Sait2000
def F(t,x):
 w,[*r]=S(I());a=len(r);*p,=o=[' ']*a;n=1
 for s in S(I()[6:],", "):
  e,b,*_=map(int,S(s,":")*2);d=b-e;p[~e:a-b]=-~d*'^'or"/%s\\"%("-"*~d);o[~e]=str(n);n+=1
  if x:t+=r[~e:a-b]
  else:r[~e:a-b],t=t[:1-d],t[1-d:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
*h,z=F([],1)
print(*h,"","="+z,"",*F(z,0),sep='\n')
11
350 symbols python3
Fri Jan 5 04:43:58 2018 Sait2000
def F(t):
 w,r=S(I());a=len(r);*p,=o=[' ']*a;n=1
 for s in S(I()[6:],", "):
  e,b,*_=map(int,S(s,":")*2);d=b-e;p[~e:a-b]=-~d*'^'or"/%s\\"%("-"*~d);o[~e]=str(n);n+=1;t+=r[~e:a-b]*x
  if~-x:r,t=r[:~e]+t[:1-d]+r[a-b:],t[1-d:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
x=1
*h,z=F('')
x=0
print(*h,"","="+z,"",*F(z),sep='\n')
12
357 symbols python3
Thu Jan 4 02:28:33 2018 Sait2000
def F(t,x):
 w,[*r]=S(I());a=len(r);*p,=o=[' ']*a;n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);d=b-e;p[~e:a-b]=-~d*'^'or"/%s\\"%("-"*~d);o[~e]=str(n);n+=1
  if x:t+=r[~e:a-b]
  else:r[~e:a-b],t=t[:1-d],t[1-d:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
*o,r=F([],1)
print(*o,"","="+r,"",*F(r,0),sep='\n')
13
359 symbols python3
Thu Jan 4 02:24:15 2018 Sait2000
def F(t,x):
 w,[*r]=S(I());a=len(r);*p,=o=[' ']*a;n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);d=b-e;p[~e:a-b]=d<0and"/%s\\"%("-"*~d)or"^";o[~e]=str(n);n+=1
  if x:t+=r[~e:a-b]
  else:r[~e:a-b],t=t[:1-d],t[1-d:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
*o,r=F([],1)
print(*o,"","="+r,"",*F(r,0),sep='\n')
14
360 symbols python3
Wed Jan 3 18:29:14 2018 Sait2000
def F(t,x):
 w,[*r]=S(I());a=len(r);*p,=o=[' ']*a;n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);d=e-b;p[~e:a-b]=d>0and"/%s\\"%("-"*~-d)or"^";o[~e]=str(n);n+=1
  if x:t+=r[~e:a-b]
  else:r[~e:a-b],t=t[:d+1],t[d+1:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
*o,r=F([],1)
print(*o,"","="+r,"",*F(r,0),sep='\n')
15
362 symbols python3
Wed Jan 3 17:59:49 2018 Sait2000
def F(t,x):
 w,[*r]=S(I());*p,=o=[' ']*len(r);n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);s=slice(~e,len(r)-b);d=e-b;p[s]=d>0and"/%s\\"%("-"*~-d)or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:r[s],t=t[:d+1],t[d+1:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
*o,r=F([],1)
print(*o,"","="+r,"",*F(r,0),sep='\n')
16
363 symbols python3
Wed Jan 3 17:49:42 2018 Sait2000
def F(t,x):
 w,[*r]=S(I());*p,=o=[' ']*len(r);n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:r[s],t=t[:d],t[d:]
 return[''.join(q).rstrip()for q in[w,o,p,r]+[t]*x]
I=input
S=str.split
*o,r=F([],1)
print(*o,"","="+r,"",*F(r,0),sep='\n')
17
385 symbols python3
Wed Jan 3 17:40:53 2018 Sait2000
def F(r,t,x):
 *p,=o=[' ']*len(r);n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:r[s],t=t[:d],t[d:]
 return[''.join(q).rstrip()for q in(o,p,x*t or r)]
I=input
S=str.split
f,g=S(I())
*o,r=F(g,[],1)
t,u=S(I())
print(f,*o,g,"","="+r,"",t,*F([*u],r,0),sep='\n')
18
390 symbols python3
Wed Jan 3 16:23:25 2018 Sait2000
def F(r,t,x):
 *p,=o=[' ']*max(len(t),len(r));n=1
 for s in S(S(I(),": ",1)[1],", "):
  e,b,*_=map(int,S(s,":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
I=input
S=str.split
f,g=S(I())
*o,r=F(g,[],1)
t,u=S(I())
print(f,*o,g,"","="+r,"",t,*F(r,[*u],0),sep='\n')
19
403 symbols python3
Wed Jan 3 16:15:12 2018 Sait2000
def F(r,y,x=1):
 *t,=y;*p,=o=[' ']*max(len(t),len(r));n=1
 for s in I().split(": ",1)[1].split(", "):
  e,b,*_=map(int,s.split(":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
I=input
f,g=I().split()
*o,r=F(g,"")
t,u=I().split()
print(f,*o,g,"","="+r,"",t,*F(r,u,0),sep='\n')
20
414 symbols perl
Tue May 3 03:06:10 2016 megahallon
#!/usr/bin/perl
@i=map{chomp;substr$_,6}<>;sub s{length$&}sub z{$n=0;while($i[$w*2+1]=~/(\d+)(:(\d+))?/g){$p=-$1-1;$l=-($3//$1)-$p;substr$f[$w],$p,$l,++$n x$l;$w?(substr($i[2],$p,$l,substr$r,$q,$l),$q+=$l):($r.=substr$i[0],$p,$l)}$w++}@f=map{' 'x length$_}@i[0,2];z;z;($p,$w)=map{s/(\d)\1*/$1.' 'x(&s-1)/ger}@f;($g,$h)=map{s#(\d)\1*#&s-1?'/'.'-'x(&s-2).'\\':'^'#ger}@f;$_="From:!$p!$g!$i[0]!!=$r!!To:!$w!$h!$i[2]";s/ *!/\n/g;print
21
428 symbols python3
Wed Jan 3 16:11:33 2018 Sait2000
def F(r,y,b,x=1):
 *t,=y;*p,=o=[' ']*max(len(t),len(r));n=1
 for s in b.split(", "):
  e,b,*_=map(int,s.split(":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
I=input
f,g=I().split()
*o,r=F(g,"",I().split(": ",1)[1])
t,u=I().split()
print(f,*o,g,"","="+r,"",t,*F(r,u,I().split(": ",1)[1],0),sep='\n')
22
429 symbols python3
Wed Jan 3 15:50:05 2018 Sait2000
def p(r,t,b,x=1):
 *p,=o=[' ']*max(map(len,(t,r)));*t,n=*t,1
 for s in b.split(", "):
  e,b,*_=map(int,s.split(":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
i=input
f,g=i().split()
*o,r=p(g,"",i().split(": ",1)[1])
t,u=i().split()
print(f,*o,g,"","="+r,"",t,*p(r,u,i().split(": ",1)[1],0),sep='\n')
23
436 symbols python3
Wed Jan 3 15:47:23 2018 Sait2000
def p(r,t,b,x=1):
 o=[' ']*max(map(len,(t,r)));p=o[:];t,n=list(t),1
 for s in b.split(", "):
  e,b,*_=map(int,s.split(":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
i=input
f,g=i().split()
*o,r=p(g,"",i().split(": ",1)[1])
t,u=i().split()
print(f,*o,g,"","="+r,"",t,*p(r,u,i().split(": ",1)[1],0),sep='\n')
24
437 symbols python3
Wed Jan 3 15:42:45 2018 Sait2000
def p(r,t,b,x=1):
 o=[' ']*max(map(len,(t,r)));p=o[:];t,n=list(t),1
 for s in b.split(", "):
  e,b,*_=map(int,s.split(":")*2);s=slice(~e,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[~e]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
i=input
f,g=i().split()
o,s,r=p(g,"",i().split(": ",1)[1])
t,u=i().split()
[*map(print,[f,o,s,g,"","="+r,"",t]+p(r,u,i().split(": ",1)[1],0))]
25
445 symbols bash
Sat Aug 13 06:20:00 2016 hidefromkgb
g()(rev<<<$@|fold -w1)
h()(p=${3:-$2};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;g ${l[@]}+${p[@]}+${k[@]}+:$4|tr -d \\n\ )
read -d $'\4' s i d o<<<`cut -d: -f2-|tr -d \ `;i=`h $i $s`;e=${i##*+}
h $o $e $d oT++$e=++`rev<<<${i%$e}$s`morF|sed s/_*+/\\n/g|tr _ \ 
26
446 symbols bash
Sat Aug 13 05:49:30 2016 hidefromkgb
g()(rev<<<$1|fold -w1)
h()(p=${3:-$2};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;tr -d \ <<<${l[@]}+${p[@]}+${k[@]}+:$4|rev)
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`;i=`h $i $s`;e=${i##*+}
h $o $e $d oT++$e=++`rev<<<${i%$e}$s`morF|sed s/_*+/\\n/g|tr _ \ 
27
449 symbols bash
Sat Aug 13 04:47:13 2016 hidefromkgb
g()(rev<<<"$1"|fold -w1)
h()(p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;tr -d \ <<<${l[@]}+${p[@]}+${k[@]}+:|rev)
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`;i=`h $i $s`;e=${i##*+}
sed 's/_*+/\n/g;y/_/ /'<<<From${i%$e}$s`rev<<<oT++$e=++``h $o $e $d`
28
451 symbols python3
Wed Jan 3 15:11:45 2018 Sait2000
def p(r,t,b,x=1):
 o=[' ']*max(map(len,(t,r)));p=o[:];t,n=list(t),1
 for s in b.split(", "):
  e,b,*_=map(int,(s+":"+s).split(":"));s=slice(-e-1,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[-e-1]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
i=input
f,g=i().split()
o,s,r=p(g,"",i().split(": ",1)[1])
t,u=i().split()
print('\n'.join([f,o,s,g,"","="+r,"",t]+p(r,u,i().split(": ",1)[1],0)))
29
456 symbols bash
Sat Aug 13 04:04:41 2016 hidefromkgb
g()(rev<<<"$1"|fold -w1)
h()(p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;sed 's/ //g;s/+_*/\n/g;y/_/ /'<<<:+${k[@]}+${p[@]}+${l[@]}|rev)
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`
i=`h $i $s`;e=${i##*$'\n'};echo "From${i%$e}$s

=`rev<<<$e`

To`h $o $e $d`"
30
461 symbols bash
Sat Aug 13 00:01:32 2016 hidefromkgb
g()(rev<<<"$1"|fold -w1)
h()(p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;rev<<<${k[@]}$'\n'${p[@]}$'\n'${l[@]}|sed 's/ //g;y/_/ /;s/ *$//')
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`
i=`h $i $s`;e=${i##*$'\n'};echo "From:
${i%$e}$s

=`rev<<<$e`

To:"
h $o $e $d
31
462 symbols python3
Wed Nov 15 09:36:34 2017 BalthazarPavot
def p(r,t,b,x=1):
 m=map;o=[' ']*max(m(len,(t,r)));p=o[:];t,n=list(t),1
 for s in b.split(", "):
  e,b,*_=m(int,(s+":"+s).split(":"));s=slice(-e-1,-b or 99);d=e-b+1;p[s]=e>b and"/%s\\"%("-"*(d-2))or"^";o[-e-1]=str(n);n+=1
  if x:t+=r[s]
  else:t[s],r=r[:d],r[d:]
 return[''.join(x).rstrip()for x in(o,p,t)]
i=input
f,g=i().split(" ")
o,s,r=p(g,"",i().split(": ",1)[1])
t,*_,u=i().split(" ")
print('\n'.join([f,o,s,g,"","="+r,"",t]+p(r,u,i().split(": ",1)[1],0)))
32
463 symbols bash
Fri Aug 12 23:51:24 2016 hidefromkgb
g()(rev<<<"$1"|fold -w1)
h()(p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;rev<<<${k[@]}$'\n'${p[@]}$'\n'${l[@]}|sed 's/ //g;y/_/ /;s/ *$//')
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`
i=`h $i $s`;e=${i##*$'\n'};echo "From:
${i%$e}$s

=`rev<<<$e`

To:
`h $o $e $d`"
33
465 symbols perl
Thu Apr 21 12:08:16 2016 megahallon
#!/usr/bin/perl
@i=map{chomp;substr$_,6}<>;sub l{length$_[0]}sub z{$p=$3//$1;$l=$1-$p+1;$p+=$l;substr$f[$_[0]],-$p,$l,++$n x$l}@f=map{' 'x l$_}@i[0,2];$m=qr/(\d+)(:(\d+))?/;while($i[1]=~/$m/g){z(0);$r.=substr$i[0],-$p,$l}$n=0;while($i[3]=~/$m/g){z(1);substr$i[2],-$p,$l,substr$r,$q,$l;$q+=$l}($p,$w)=map{s/(\d)\1*/$1.' 'x(l($&)-1)/ger=~s/\s+$//r}@f;($g,$h)=map{s#(\d)\1*#l($&)-1?'/'.'-'x(l($&)-2).'\\':'^'#ger=~s/\s+$//r}@f;print"From:\n$p\n$g\n$i[0]\n\n=$r\n\nTo:\n$w\n$h\n$i[2]";
34
467 symbols bash
Fri Aug 12 22:54:07 2016 hidefromkgb
g(){ rev<<<"$1"|fold -w1;}
h(){ p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=m=${x%:*};k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;rev<<<${k[@]}$'\n'${p[@]}$'\n'${l[@]}|sed 's/ //g;y/_/ /;s/ *$//';}
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`
i=`h $i $s`;e=${i##*$'\n'};echo "From:
${i%$e}$s

=`rev<<<$e`

To:
`h $o $e $d`"
35
468 symbols perl
Thu Apr 21 11:55:41 2016 megahallon
#!/usr/bin/perl
@i=map{chomp;substr$_,6}<>;sub l{length$_[0]}sub z{$p=$3//$1;$l=$1-$p+1;$p+=$l;substr$f[$_[0]],-$p,$l,++$n x$l}@f=map{' 'x l$_}@i[0,2];$m=qr/(\d+)(:(\d+))?/;while($i[1]=~/$m/g){z(0);$r.=substr$i[0],-$p,$l}$n=0;while($i[3]=~/$m/g){z(1);substr$i[2],-$p,$l,substr$r,$q,$l;$q+=$l}($p,$w)=map{s/(\d)\1*/$1.' 'x(l($&)-1)/ger=~s/\s+$//r}@f;($g,$h)=map{s#(\d)\1*#l($&)!=1 ? "/"."-"x(l($&)-2)."\\":"^"#ger=~s/\s+$//r}@f;print"From:\n$p\n$g\n$i[0]\n\n=$r\n\nTo:\n$w\n$h\n$i[2]";
36
470 symbols bash
Fri Aug 12 22:49:48 2016 hidefromkgb
g(){ rev<<<"$1"|fold -w1;}
h(){ p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=${x%:*};m=$x;k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;rev<<<${k[@]}$'\n'${p[@]}$'\n'${l[@]}|sed 's/ //g;y/_/ /;s/ *$//';}
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`
i=`h $i $s`;e=${i##*$'\n'};echo "From:
${i%$e}$s

=`rev<<<$e`

To:
`h $o $e $d`"
37
475 symbols bash
Fri Aug 12 22:34:32 2016 hidefromkgb
g(){ rev<<<"$1"|fold -w1;}
h(){ p=${@: -1};k=(`yes _|head -${#p}`);p=(${k[@]});l=(`g $3`);r=(`g $2`)
for x in ${1//,/ };do n=${x#*:};x=${x%:*};m=$x;k[$x]=$[++j]
while((m>=n));do p[$m]=-;l[$[${#3}?m--:y++]]=${r[$[${#3}?y++:m--]]};done
p[$x]=\/;p[$n]=^;((n<x))&&p[$n]=\\
done;rev<<<${k[@]}$'\n'${p[@]}$'\n'${l[@]}|sed 's/ //g;y/_/ /;s/ *$//';}
read -d $'\4' s i d o<<<`tr -d \ |cut -d: -f2-`
i=`h $i $s`;e=${i##*$'\n'};echo "From:
${i%$'\n'*}
$s

=`rev<<<$e`

To:
`h $o $e $d`"