|
1 2 3 4 5 6 7 8 9 10 11 12 13 | quicksort([], []). quicksort([Head|Tail], SortedList):- split(Head, Tail, Klein, Gross), quicksort(Klein, Klein_Sortiert), quicksort(Gross, Gross_Sortiert), append(Klein_Sortiert, [Head|Gross_Sortiert], SortedList). split(_, [], [], []). split(Pivot, [Head|Tail], [Head|Klein], Gross):- Head =< Pivot, !, split(Pivot, Tail, Klein, Gross). split(Pivot, [Head|Tail], Klein, [Head|Gross]):- split(Pivot, Tail, Klein, Gross). |
cXVpY2tzb3J0KFtdLCBbXSkuCnF1aWNrc29ydChbSGVhZHxUYWlsXSwgU29ydGVkTGlzdCk6LQogICAgICAgIHNwbGl0KEhlYWQsIFRhaWwsIEtsZWluLCBHcm9zcyksCiAgICAgICAgcXVpY2tzb3J0KEtsZWluLCBLbGVpbl9Tb3J0aWVydCksCiAgICAgICAgcXVpY2tzb3J0KEdyb3NzLCBHcm9zc19Tb3J0aWVydCksCiAgICAgICAgYXBwZW5kKEtsZWluX1NvcnRpZXJ0LCBbSGVhZHxHcm9zc19Tb3J0aWVydF0sIFNvcnRlZExpc3QpLgoKICAgICAgc3BsaXQoXywgW10sIFtdLCBbXSkuCiAgICAgIHNwbGl0KFBpdm90LCBbSGVhZHxUYWlsXSwgW0hlYWR8S2xlaW5dLCBHcm9zcyk6LQogICAgICAgICAgICBIZWFkID08IFBpdm90LCAhLAogICAgICAgICAgICBzcGxpdChQaXZvdCwgVGFpbCwgS2xlaW4sIEdyb3NzKS4KICAgICAgc3BsaXQoUGl2b3QsIFtIZWFkfFRhaWxdLCBLbGVpbiwgW0hlYWR8R3Jvc3NdKTotCiAgICAgICAgICAgIHNwbGl0KFBpdm90LCBUYWlsLCBLbGVpbiwgR3Jvc3MpLg==
-
upload with new input
-
result: Success time: 0.03s memory: 6204 kB returned value: 0
quicksort([1,5,3,45,2,1], X).
X = [1, 1, 2, 3, 5, 45] EOF: halt
-
result: Success time: 0.02s memory: 6204 kB returned value: 0