This is great, I've been meaning to learn one of the more functional languages. The tutorial-in-website format is fantastic.
ltrs.foldLeft(List[(Char,Int)]()){
case ((prevchr,cnt)::tl,chr) if(prevchr==chr) =>(prevchr,cnt+1)::tl
case (tbl,chr) => (chr,1)::tbl
}
Keeping track of cnt, chr, t1, tbl, etc is hard enough, even when you're not trying to learn the syntax as well.