sequencer/sequencer.ecl at master · josefinnilsson/sequencer · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
:- lib(ic).
:- lib(ic_search).

consecArtist([]).
consecArtist([_]).
consecArtist([X,Y|T]) :-
  A1 is getArtist(X),
  A2 is getArtist(Y),
  A1 \== A2,
  consecArtist([Y|T]),!.

bpmDiff([]).
bpmDiff([_]).
bpmDiff([X,Y|T]) :-
  BPM1 is getBPM(X),
  BPM2 is getBPM(Y),
  abs(BPM1-BPM2) =< 7,
  bpmDiff([Y|T]).

shuffle([],[]).
shuffle(L, [H|T]) :-
  append(V,[H|U],L),
  append(V,U,W),
  shuffle(W,T).

getID(track(ID,_,_),ID).
getBPM(track(_,_,B), B).
getArtist(track(_,A,_), A).

generateSequence(L1, L2) :-
  shuffle(L1, L2),
  consecArtist(L2),
  bpmDiff(L2).

sequencer(Tracks) :-
  shuffle(Tracks, Perm),
  consecArtist(Perm),
  bpmDiff(Perm),
  search(Perm, 3, input_order, indomain, complete, []),
  writeln(Perm),
  fail.

readData(_S,end_of_file,[]) :- !.
readData(S,X,[X|R]) :-
        read(S,Y),
        readData(S,Y,R).

:-mode output_data(++,+).
outputData(File,L):-
        open(File,'write',S),
        (foreach(X,L),
         param(S) do
           writeq(S,X),writeln('.')
        ),
        close(S).

sequence(Tracks, Seq) :-
  open(Tracks,read,S),
  read(S,X),
  readData(S,X,Res),
  close(S),
  generateSequence(Res,Seq).