Help for this page

Select Code to Download


  1. or download this
    sub f{
(pop=~/w+/g)[4]
}
  2. or download this
    perl -e# -e# -e# -e# -egoto+TPC
  3. or download this
    sub f{
$p=$_=pop;1while(!/^($p){2,}$/&&$p=~s/.$//);$p
}
  4. or download this
    sub f{
$p=$_=pop;1while(!/^(\Q$p\E){2,}$/&&$p=~s/.$//s);$p
}
  5. or download this
    sub f{
map{chr hex$_}pop=~/../g
}
  6. or download this
    sub f{
$x=pop;map{$_>$x?$x=$_:0}@_;$x
}
  7. or download this
    sub f{
grep{s/.//}sort map{/[aeiou]/;"$&$_"}@_
}