<- xs, a <= x]
gtX = [a | a x]
试玩一下:
> quickSortWithLog [9, 0, 8, 10, -5, 2, 13, 7]...{[0,8,-5,2,7]}
{[-5]}
{[]}
[-5,0{[2,7]}
{[]}
,2{[]}
,7,8,9{[]}
,10{[]}
,13]
从日志得知,第一趟左边是[0,8,-5,2,7]...(pivot是9),继续下去是[-5](pivot是0),然后左边就是[]了(pivot是-5),(0的)另一边的第一趟左边是[2,7],继续下去左边就是[]了。...能够用来捕获错误,如果没发生错误就直接什么都不做。...")
return x
} `catchError` error
捕获错误,再直接用error丢出去,所以得到了报错:
*** Exception: error occurred
上面do block