#!perl -ap056
sub b{$_=lc;y/aeiouy//."/".y/a-z0-9//}$c=$b=': ';map{$c.=pack$l=A.(($l=y///c)>3?++$l:4),$_;$b.=pack$l,b}@F;$c=~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=(@F."$c
".b."$b
")x!!@F;s/ *$//mg
|
creeping slowly...
#!perl -an056
ub a{$_=lc;y/aeiouy//."/".y/a-z0-9//}$a=$b=': ';for(@F){$a.=pack$l=A.(($l=y///c)>3?++$l:4),$_;$b.=pack$l,a}$a=~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=@F."$a
".a."$b
";s/ *$//mg;@F&&print
|
Oops. this time fer sure.
#!perl -an056
sub a{$_=lc;y/aeiouy//."/".y/a-z0-9//}$a=$b=': ';for(@F){$a.=pack$l=A.(($l=y///c)>3?++$l:4),$_;$b.=pack$l,a}$a=~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=@F."$a
".a."$b
";s/ *$//mg;@F&&print
|
Oops. this time fer sure.
#!perl -an056
sub a{$_=lc;y/aeiouy//."/".y/a-z0-9//}$a=$b=': ';for(@F){$a.=pack$l=A.(($l=y///c)>3?++$l:4),$_;$b.=pack$l,a}$a=~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=@F."$a
".a."$b
";s/ *$//mg;@F&&print
|
There's obviously a better way. But what?
#!perl -an056
sub a{$_=lc;y/aeiouy//."/".y/a-z0-9//}$a=$b=': ';for(@F){$l=($l=y///c)>3?++$l:4;$a.=pack"A$l",$_;$b.=pack"A$l",a}$a=~s/(.{59})...+\S.*/$1.../&&$b=~s/(.{58}\S*).*/$1/;$_=+@F."$a
".a."$b
";s/ *$//mg;@F&&print
|
Better, but still crap.
#!perl -ap056
sub a{$_=lc;y/aeiouy//."/".y/a-z0-9//}$_=@F?do{$a=$b='';for(@F){$f=$a=~y///c-$b=~y///c;$a.=' 'x-$f."$_ ";$b.=' 'x$f.a.' ';}$a=~s/(.{57}).{5,}/$1.../&&$b=~s/(.{56}\S*).*/$1/;s/ *$/
/for$a,$b;+@F.": $a".a.": $b"}:''
|
Horrible, but it's my first passing algorithm, golfed up only a little.
#!perl -ap056
sub a{$_=lc;y/aeiouy//."/".y/a-z0-9//}$_=@F?do{$a=$b='';
for(@F){$f=$a=~y///c-$b=~y///c;$a.=' 'x-$f."$_ ";$b.=' 'x$f.a.' ';$a=~s/(.{57}).*/$1.../,$b=~s/(.{56}\S*).*/$1/,last if$a=~y///c>61}s/ *$/
/for$a,$b;+@F.": $a".a.": $b"}:''
|