[Roma.pm] una facile

[kanak at perl.it]

> for(inizializzazione; controllo; incremento) { ... }

ed ecco qua che subito mi levi le castagne dal fuoco..

per avere intervalli random entro una certa durata massima, prima
avrei dovuto fare meccanismi di 3-4 righe almeno invece ora:

for(my $sec = 0; $sec < $durata; $sec+=1/(2**(d(3)-1))) {
  $dur=$sec-$oldsec;
  push @ritb, emp($dur, kick());
  $oldsec=$sec;
}

mi fa delle "note" da 1/4, 1/2 o 1 secondo a caso.. finche' non finisce
la durata del pezzo!


PS
"d" e' la mia sub preferita:

sub d{
  my $dado = shift;
  return int rand($dado)+1;
}