view release on metacpan or  search on metacpan

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

tan aleatòries com la loteria, per tant fa una cosa com aquesta:

  @resultat = ( 1, 'X', 2 );

  foreach $fila ( 1 .. 14 ) {
      print $fila, " ", $resultat[ int rand 3 ], "\n";
  }

=head3 Però potser no volem que ho sigui

En canvi, la seva dona vol poder decidir quin resultat tindrà
el seu equip favorit. Així doncs, cal una llista de resultats
desitjats:

  @resultat = ( 1, 'X', 2 );
  %quiniela = (
      # volem que l'equip de la fila 4 obtingui un 1
      4 => 1,
      # volem que l'equip de la fila 6 obtingui una X
      6 => 'X',
  );

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

  use Lingua::Romana::Perligata;

  adnota Illud Cribrum Eratothenis

  maximum tum val inquementum tum biguttam tum stadium egresso scribe.
  vestibulo perlegementum da meo maximo .
  maximum tum novumversum egresso scribe.
  da II tum maximum conscribementa meis listis.
  dum damentum nexto listis decapitamentum fac sic
      lista sic hoc tum nextum recidementum cis vannementa da listis.
      next tum biguttam tum stadium tum nextum tum novumversum
          scribe egresso.
  cis

=head3 Don::Mendo

Modules for "La venganza de Don Mendo", Sir Mendo's revenge.

  use Don::Mendo;
  $don_mendo = Don::Mendo->new;