File: fquicksort.mvel

package info (click to toggle)
mvel 2.5.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,316 kB
  • sloc: java: 46,157; xml: 292; makefile: 6
file content (17 lines) | stat: -rw-r--r-- 372 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
/**
 * Sample MVEL 2.1 Script
 * "Functional QuickSort"
 * by: Mike Brock, Inspired by: Dhanji Prasanna
 */

def quicksort(list) {
    list.size() <= 1 ? list :
        (pivot = list[0]; (quicksort(($ in list if $ < pivot)) + pivot)
            + quicksort(($ in list if $ > pivot)))
}

// create a list to sort
list = [5,2,4,1,18,10,15,1,0];

// sort it!
quicksort(list);