Name: Anonymous 2008-09-13 22:28
LISP
perl -le'sub max{(sort@_)[-1]}sub foldl(&@){return
$_[1]if@_<3;my$v=$_[0]->(@_[1,2]);splice@_,1,2,
$v;goto&foldl}sub zipWith(&@){my@r;for(0..-max
(-$#{$_[1]},-$#{$_[2]})){push@r,$_[0]->($_[1]
[$_],$_[2][$_])}\@r}print@{+foldl{zipWith\&max,
@_}map{[split//]}qw/LISP FIOC Perl/}'