Download
/*

  Magic sequence problem in B-Prolog.

  http://www.dcs.st-and.ac.uk/~ianm/CSPLib/prob/prob019/spec.html
  """
  A magic sequence of length n is a sequence of integers x0 . . xn-1 between 
  0 and n-1, such that for all i in 0 to n-1, the number i occurs exactly xi 
  times in the sequence. For instance, 6,2,1,0,0,0,1,0,0,0 is a magic sequence 
  since 0 occurs 6 times in it, 1 occurs twice, ...
  """

  Model created by Hakan Kjellerstrand, hakank@gmail.com
  See also my B-Prolog page: http://www.hakank.org/bprolog/

*/

% Licenced under CC-BY-4.0 : http://creativecommons.org/licenses/by/4.0/

%
% Reporting both time and backtracks
%
time2(Goal):-
        cputime(Start),
        statistics(backtracks, Backtracks1),
        call(Goal),
        statistics(backtracks, Backtracks2),
        cputime(End),
        T is (End-Start)/1000,
        Backtracks is Backtracks2 - Backtracks1,
        format('CPU time ~w seconds. Backtracks: ~d\n', [T, Backtracks]).


go :-
        time2(solve(400,_Sequence)).


go2 :-
        foreach(N in 4..40,
                [Sequence],
                time2(solve(N,Sequence))
               ).

solve(N, Sequence) :-
        format('\n~d: ',[N]),
        length(Sequence, N),
        Sequence :: 0..N-1,

        % Note: I would like to use global_cardinality/2 instead 
        %       but didn't get it right.
        foreach(I in 0..N-1, count(I,Sequence,#=,Sequence[I+1])),
        % Alternative
        % foreach(I in 0..N-1, exactly(Sequence[I+1],Sequence,I)),

        N #= sum(Sequence),
        Integers @= [ I : I in 0..N-1],
        scalar_product(Integers, Sequence, #=, N),

        % labeling([inout],Sequence) -> 
        labeling([degree],Sequence) -> 
        % labeling([ff],Sequence) -> 
            writeln(Sequence)
        ;
            writeln('Something wrong happened.'),
            true.