File: t2949.scala

package info (click to toggle)
scala 2.9.2%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 67,208 kB
  • sloc: java: 27,488; xml: 4,412; python: 2,297; sh: 734; makefile: 16; ansic: 6
file content (15 lines) | stat: -rw-r--r-- 353 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
// $Id$

import scala.util.continuations._

object Test {

  def reflect[A,B](xs : List[A]) = shift{ xs.flatMap[B, List[B]] }
  def reify[A, B](x : A @cpsParam[List[A], B]) = reset{ List(x) }

  def main(args: Array[String]): Unit = println(reify {
    val x = reflect[Int, Int](List(1,2,3)) 
    val y = reflect[Int, Int](List(2,4,8))
    x * y
  })
}