Как сделать Scala Control Abstraction в Repeat To?

Question

Я Питер Пилигрим. Я видел, как Мартин Одерский создал контрольную абстракцию в Scala. Однако я пока не могу повторить это в IntelliJ IDEA 9. Это IDE?

package demo

class Control {

  def repeatLoop ( body: => Unit ) = new Until( body )

  class Until( body: => Unit ) {
    def until( cond: => Boolean ) {
      body;
      val value: Boolean = cond;
      println("value="+value)
      if ( value ) repeatLoop(body).until(cond)
      // if  (cond) until(cond)
    }
  }

  def doTest2(): Unit = {
    var y: Int = 1
    println("testing ... repeatUntil() control structure")
    repeatLoop {
      println("found y="+y)
      y = y + 1
    }
    { until ( y < 10 ) }
  }

}

Сообщение об ошибке гласит:

Информация: компиляция завершена с 1 ошибкой и 0 предупреждениями
Информация: 1 ошибка
Информация: 0 предупреждений
C: \ Users \ Питер \ IdeaProjects \ HelloWord \ SRC \ демонстрационная \ Control.scala
Ошибка: ошибка: ошибка строки (57): Control.this.repeatLoop ({
scala.this.Predef.println ("найдено у =". + (у));
у = у. + (1)
}) типа Control.this.Until не принимает параметры
repeatLoop {

В функции curry можно считать, что тело возвращает выражение (значение y + 1), однако параметр тела объявления repeatUntil ясно говорит, что это можно игнорировать или нет?

Что означает ошибка?

Answer 1

Вот решение без StackOverflowError.

scala>   class ConditionIsTrueException extends RuntimeException
defined class ConditionIsTrueException

scala>   def repeat(body: => Unit) = new {
 |     def until(condition: => Boolean) = { 
 |       try {
 |         while(true) {
 |           body
 |           if (condition) throw new ConditionIsTrueException
 |         }   
 |       } catch {
 |         case e: ConditionIsTrueException =>
 |       }   
 |     
 |     }   
 |   }
repeat: (body: => Unit)java.lang.Object{def until(condition: => Boolean): Unit}

scala> var i = 0              
i: Int = 0

scala> repeat { println(i); i += 1 } until(i == 3)
0
1
2

scala> repeat { i += 1 } until(i == 100000)       

scala> repeat { i += 1 } until(i == 1000000)

scala> repeat { i += 1 } until(i == 10000000)

scala> repeat { i += 1 } until(i == 100000000)

scala> 

Согласно Джесперу и Рексу Керру, здесь есть решение без исключения.

def repeat(body: => Unit) = new {
  def until(condition: => Boolean) = { 
    do {
      body
    } while (!condition)
  }   
}

Answer 2

Вам не нужна вторая пара скобок, использование должно быть:

repeatLoop (x) until (cond) //or...
repeatLoop {x} until {cond}

А не:

repeatLoop {x} { until(cond) } //EXTRA PAIR OF BRACES

Ошибка означает , чтоScala считает, что вы пытаетесь вызвать метод с подписью, например:

def repeatLoop(x: => Unit)(something: X) //2 parameter lists

, и не может найти такой метод.Он говорит, что «repeatLoop (body)» не принимает параметры .Полный список кода для решения, вероятно, выглядит примерно так:

object Control0 {
  def repeatLoop(body: => Unit) = new Until(body)

  class Until(body: => Unit) {
    def until(cond: => Boolean) {
      body;
      val value: Boolean = cond;

      if (value) repeatLoop(body).until(cond)
    }
  }


  def main(args: Array[String]) {
    var y: Int = 1
    println("testing ... repeatUntil() control structure")
    repeatLoop {
      println("found y=" + y)
      y += 1
    }.until(y < 10)
  }
}

Здесь необходимо сделать два полезных замечания:

1. Решение не является хвостово-рекурсивным иприведет к StackOverflowError для длинных итераций (попробуйте while (y < 10000))
2. until кажется мне неправильным (было бы более естественно остановиться, когда условие станет истинным, а не продолжатьпока это правда).

Answer 3

Как насчет одного вкладыша для повторения до .

def repeat(b: => Unit) = new AnyRef {def until(c: => Boolean) {b; while (! c) b}}

Что, например, дает: -

scala> repeat {
     |   println("i = "+i)
     |   i+=1
     | } until (i >= 10)
i = 0
i = 1
i = 2
i = 3
i = 4
i = 5
i = 6
i = 7
i = 8
i = 9

Answer 4

Как и выше, но рекурсивно:)

def repeat(b: => Unit) = new {def until(c: => Boolean) = { b; if (c) until(c) }}

var i = 0
repeat {
  println(i)
  i+=1
} until (i < 10)

Это тоже оптимизировано @tailrec.

Llove scala:)