Как написать правильно (в функциональном стиле)

val in = new Scanner(System.in)
    val s = in.nextLine()
    var arr=new Array[Int](s.length()+5)
    arr(0)=0
    for{i<-1 to s.length()-1}
        if (s(i)==s(i-1)){
          arr(i)=arr(i-1)+1
        }
        else
          arr(i)=arr(i-1)
    val k = in.nextInt()
    
    for{i<-1 to k}{
        val left=in.nextInt()-1
        val r=in.nextInt()
        var ans = arr(r-1)-arr(left)
        println(ans)
    }

object Sample extends App {
  implicit def intTimes(i: Int) = new {
    def times(block: => Unit) { times (_ => block) }
    def times(block: Int => Unit) { 1 to i foreach block }
  }
 
  val scanner = new java.util.Scanner(System.in)
  val s = scanner.nextLine()
  val m = scanner.nextInt()
 
  m times {
    val (l, r) = (scanner.nextInt(), scanner.nextInt())
    println(l until r count (i => s(i - 1) == s(i)))
  }
}

object Sample extends App {
  val scnr = new java.util.Scanner(System.in)
  val s = scnr.nextLine().sliding(2).scanLeft(0) {
    case (acc, pair) => acc + (if (pair(0) == pair(1)) 1 else 0)
  }.toArray
 
  val m = scnr.nextInt()
 
  1 to m foreach { _ =>
    val (l, r) = (scnr.nextInt(), scnr.nextInt())
    println(s(r - 1) - s(l - 1))
  }
}