Name: Anonymous 2009-07-13 13:47
Write a routine which makes string uppercase or lowercase in language of your choice in least possible execution time.
#!/usr/bin/perl -C
print+(grep/\p{Lu}/,/./g)>=(grep/\p{Ll}/,/./g)?lc:uc while<>