corrade-nucleus-nucleons – Blame information for rev 20

Subversion Repositories:
Rev:
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).