File: bug082.scala

package info (click to toggle)
scala 2.3.0-1.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 14,000 kB
  • ctags: 325
  • sloc: xml: 1,772; sh: 1,248; java: 390; makefile: 36
file content (18 lines) | stat: -rw-r--r-- 461 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 

object Main {

    def min0[A](less: (A, A) => Boolean, xs: List[A]): Option[A] = xs match {
        case List()  => None
        case List(x) => Some(x)
//      case x :: Nil => Some(x)
        case y :: ys => min0(less, ys) match {
            case Some(m) => if (less(y, m)) Some(y) else Some(m)
        }
    }

    def min(xs: List[Int]) = min0((x: Int, y: Int) => x < y, xs);

    def main(args: Array[String]) =
        Console.println(min(List()));

}