scalania_p11

  def encodeModified(list: List[Symbol]) : List[Any] = {
			list.foldRight(List[Any]()) { 
				(h, l) => 
				  if (l.isEmpty) 
				    List(h) 
				  else 
				    l.head match {
				case (x: Int, y) => 
				  if (y == h) 
					  (x + 1, y) :: l.tail 
				  else 
					  h :: l
				case e => 
				  if (e == h) 
				    (2,h) :: l.tail 
				  else 
				    h :: l
				}
			}
	}
	encodeModified(List('a, 'a, 'a, 'a, 'b, 'c, 'c, 'a, 'a, 'd, 'e, 'e, 'e, 'e))