diff options
author | Martin Odersky <odersky@gmail.com> | 2003-03-03 14:33:53 +0000 |
---|---|---|
committer | Martin Odersky <odersky@gmail.com> | 2003-03-03 14:33:53 +0000 |
commit | 6749e5dd658522cb63600021a9ee5a86f911cfeb (patch) | |
tree | a22d4bf7f2bf71b5775418dfddaa31a1640313d1 /sources/examples/sort2.scala | |
parent | e1fb3fb655a067039870016b3a47e2305d692d98 (diff) | |
download | scala-6749e5dd658522cb63600021a9ee5a86f911cfeb.tar.gz scala-6749e5dd658522cb63600021a9ee5a86f911cfeb.tar.bz2 scala-6749e5dd658522cb63600021a9ee5a86f911cfeb.zip |
*** empty log message ***
Diffstat (limited to 'sources/examples/sort2.scala')
-rw-r--r-- | sources/examples/sort2.scala | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/sources/examples/sort2.scala b/sources/examples/sort2.scala new file mode 100644 index 0000000000..a4e32a9cd4 --- /dev/null +++ b/sources/examples/sort2.scala @@ -0,0 +1,12 @@ +module sorter { + +def sort (a: List[Int]): List[Int] = { + val pivot = a at (a.length / 2); + def leqPivot(x: Int) = x <= pivot; + def gtPivot(x: Int) = x > pivot; + def eqPivot(x: Int) = x == pivot; + sort(a filter leqPivot) + ::: sort(a filter eqPivot) + ::: sort(a filter gtPivot) +} +}
\ No newline at end of file |