Help for this page
## pseudocode my @list = shuffle get_tracks; my @list1 = @list[0..@list/2-1]; ... shuffle @list1; shuffle @list2; }
## pseudocode my @style_levels = ( [ qw/noise/ ], ... my $next_style = ${ $style_levels[$next_index] }[ rand @{$style_le +vels[$next_index]} ]; ## choose a style of this level return get_song { style => $next_style }; ## pick some song of + this style }
www.com | www.net | www.org
No recent polls found