Файл перестановки случайным образом с некоторыми дополнительными ограничениями

Ваши данные в качестве примера и ограничения на самом деле только позволяют несколько решений — необходимо играть John B. любая песня, например. Я собираюсь предположить, что Ваш фактический полный плей-лист не по существу John B со случайным другим материалом для разбивания его.

Это - другой случайный подход. В отличие от решения @frostschutz, это работает быстро. Это не гарантирует результат, который соответствует Вашим критериям, как бы то ни было. Я также представляю второй подход, который работает над Вашими данными в качестве примера — но я подозреваю, приведет к плохим результатам на Ваших реальных данных. Запутывая Ваши реальные данные, я добавляю подход 3 — который является случайной универсальной формой, кроме него избегает двух песен тем же художником подряд. Обратите внимание, что это только делает 5, "тянет" в "деку" остающихся песен, если после этого это все еще столкнется с дублирующимся художником, то это произведет ту песню так или иначе — этот путь, ее гарантируемый, который на самом деле закончит программа.

Подход 1

В основном это генерирует плей-лист в каждой точке, спрашивая, "от каких художников у меня все еще есть неиграемые песни?" Затем выбирая случайного художника и наконец случайную песню от того художника. (Таким образом, каждый художник взвешивается одинаково, не в пропорции к количеству песен.)

Дайте ему попытку на своем фактическом плей-листе и посмотрите, приводит ли это к лучшим результатам, чем однородно случайный.

Использование: ./script-file < input.m3u > output.m3u Удостоверьтесь, что chmod +x это, конечно. Обратите внимание, что это не обрабатывает строку для подписи, которая является наверху некоторых файлов M3U правильно..., но Ваш пример не имел этого.

#!/usr/bin/perl
use warnings qw(all);
use strict;

use List::Util qw(shuffle);

# split the input playlist by artist
my %by_artist;
while (defined(my $line = <>)) {
    my $artist = ($line =~ /^(.+?) - /)
        ? $1
        : 'UNKNOWN';
    push @{$by_artist{$artist}}, $line;
}

# sort each artist's songs randomly
foreach my $l (values %by_artist) {
    @$l = shuffle @$l;
}

# pick a random artist, spit out their "last" (remeber: in random order)
# song, remove from the list. If empty, remove artist. Repeat until no
# artists left.
while (%by_artist) {
    my @a_avail = keys %by_artist;
    my $a = $a_avail[int rand @a_avail];
    my $songs = $by_artist{$a};
    print pop @$songs;
    @$songs or delete $by_artist{$a};
}

Подход 2

Как второй подход, вместо выбора случайный художник, которого можно использовать, выбирает художника с большинством песен, который является также не последним художником, которого мы выбрали. Заключительный абзац программы затем становится:

# pick the artist with the most songs who isn't the last artist, spit
# out their "last" (remeber: in random order) song, remove from the
# list. If empty, remove artist. Repeat until no artists left.
my $last_a;
while (%by_artist) {
    my %counts = map { $_, scalar(@{$by_artist{$_}}) } keys %by_artist;
    my @sorted = sort { $counts{$b} <=> $counts{$a} } shuffle keys %by_artist;
    my $a = (1 == @sorted)
        ? $sorted[0]
        : (defined $last_a && $last_a eq $sorted[0])
            ? $sorted[1]
            : $sorted[0];
    $last_a = $a;
    my $songs = $by_artist{$a};
    print pop @$songs;
    @$songs or delete $by_artist{$a};
}

Остальная часть программы остается такой же. Обратите внимание, что это безусловно не самый эффективный способ сделать это, но это должно быть достаточно быстро для плей-листов любого нормального размера. С Вашими данными в качестве примера все сгенерированные плей-листы запустятся с песни John B., затем песня Anna A., затем песня John B. После этого это намного менее предсказуемо (как все, но John B. имеет одну песню в запасе). Обратите внимание, что это принимает Perl 5.7 или позже.

Подход 3

Использование совпадает с предыдущими 2. Отметьте 0..4 часть, это - то, куда 5 попыток макс. прибывают из. Вы могли количество попыток, например, 0..9 дал бы 10 общих количеств. (0..4 = 0, 1, 2, 3, 4, то, которое Вы заметите, является на самом деле 5 объектами).

#!/usr/bin/perl
use warnings qw(all);
use strict;

# read in playlist
my @songs = <>;

# Pick one randomly. Check if its the same artist as the previous song.
# If it is, try another random one. Try again 4 times (5 total). If its
# still the same, accept it anyway.
my $last_artist;
while (@songs) {
    my ($song_idx, $artist);
    for (0..4) {
        $song_idx = int rand @songs;
        $songs[$song_idx] =~ /^(.+?) - /;
        $artist = $1;
        last unless defined $last_artist;
        last unless defined $artist; # assume unknown are all different
        last if $last_artist ne $artist;
    }

    $last_artist = $artist;
    print splice(@songs, $song_idx, 1);
}

Если Вы не возражаете против него являющийся ужасно неэффективным...

while [ 1 ]
do
    R="`shuf playlist`"
    D="`echo "$R" | sed -e 's/ - .*//' | uniq -c -d`"
    if [ "$D" == "" ]
    then
        break
    #else # DEBUG ONLY:
    #    echo --- FAIL: ---
    #    echo "$D"
    #    echo -------------
    fi
done

echo "$R"

Это просто продолжает прокручиваться и прокручиваться, пока это не наталкивается на результат, который не имеет двух или больше Johns подряд. Если существуют так многие Johns в Вашем плей-листе, что такая комбинация не существует, или крайне маловероятно быть прокрученным, ну, в общем, это зависнет.

Результат в качестве примера с Вашим входом:

John B. - Song 4
Kyle C. - Song 1
Anna A. - Song 2
John B. - Song 3
Anna A. - Song 1
John B. - Song 1
U--Rock - Song 1
John B. - Song 2
I--Rock - Song 1
John B. - Song 5

Если Вы не прокомментируете строки отладки, то это скажет Вам, почему это перестало работать:

--- FAIL: ---
      3 John B.
-------------
--- FAIL: ---
      2 John B.
      2 John B.
-------------

Это должно помочь определить причину в случае, если она зависает неограниченно долго.

Другой подход с помощью Bash. Это читает плей-лист в произвольном порядке, пытается вставить строку в другом конце списка, если это - дубликат и откладывает единственную простофилю для перевставки его в другое место. Это перестало работать, если существуют тройные дубликаты (сначала, в последний раз, и отложенный идентичный), и это добавит те плохие записи в самый конец списка. Это, кажется, может решить обширный список, который Вы загрузили большую часть времени.

#!/bin/bash

first_artist=''
last_artist=''
bad_artist=''
bad_line=''
result=''
bad_result=''

while read line
do
    artist=${line/ - */}
    line="$line"$'\n'

    if [ "$artist" != "$first_artist" ]
    then
        result="$line""$result"
        first_artist="$artist"

        # special case: first = last
        if [ "$last_artist" == '' ]
        then
            last_artist="$artist"
        fi

        # try reinserting bad
        if [ "$bad_artist" != '' -a "$bad_artist" != "$first_artist" ]
        then
            first_artist="$bad_artist"
            result="$bad_line""$result"
            bad_artist=''
            bad_line=''
        fi
    elif [ "$artist" != "$last_artist" ]
    then
        result="$result""$line"
        last_artist="$artist"

        # try reinserting bad
        if [ "$bad_artist" != '' -a "$bad_artist" != "$last_artist" ]
        then
            last_artist="$bad_artist"
            result="$result""$bad_line"
            bad_artist=''
            bad_line=''
        fi
    else
        if [ "$bad_artist" == '' ]
        then
            bad_artist="$artist"
            bad_line="$line"
        else
            # first, last and bad are the same artist :(
            bad_result="$bad_result""$line"
        fi
    fi
done < <(shuf playlist)

# leftovers?
if [ "$bad_artist" != '' ]
then
    bad_result="$bad_result""$bad_line"
fi

echo -n "$result"
echo -n "$bad_result"

Это могло быть более умно... в Вашем примере John, John будет обычно придерживаться того, чтобы быть last_artist, потому что это всегда пытается добавить first_artist сначала. Таким образом, если это получает двух других промежуточных художников, не достаточно умно добавить то к началу и другому в конец для ухода от тройного Джона. Таким образом со списками, которые в основном требуют, чтобы любым художником был John, Вы получаете больше отказов, чем Вы должны.