corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
20 | office | 1 | partition([], _, [], []). |
2 | partition([X|Xs], Pivot, Smalls, Bigs) :- |
||
3 | ( X @< Pivot -> |
||
4 | Smalls = [X|Rest], |
||
5 | partition(Xs, Pivot, Rest, Bigs) |
||
6 | ; Bigs = [X|Rest], |
||
7 | partition(Xs, Pivot, Smalls, Rest) |
||
8 | ). |
||
9 | |||
10 | quicksort([]) --> []. |
||
11 | quicksort([X|Xs]) --> |
||
12 | { partition(Xs, X, Smaller, Bigger) }, |
||
13 | quicksort(Smaller), [X], quicksort(Bigger). |
||
14 | |||
15 | perfect(N) :- |
||
16 | between(1, inf, N), U is N // 2, |
||
17 | findall(D, (between(1,U,D), N mod D =:= 0), Ds), |
||
18 | sumlist(Ds, N). |