#title: Escolha...
#author: jj
#let:

 ## escolha fração (1..1000)2 ∧ p != q ∧ p < 100 ∧ q < 100

 v[2] = perl{ escolha_esp() };

f g   = perl{ outra() };

#question:

  #v[0] / #v[1]

  $ #g $

#sugestion:
#resolution:
#result:

#perl

sub cc{                          ## choice de um conjunto de coisas
  my ($v1,$v2)=_choice(@_);
  return $v1;
}

sub outra{
  my $v = cc("7/2", "8/3") ;
  warn("V= $v\n");
  return ([$v]);
}

sub escolha_esp{ my ($p,$q,$ite);
    $p = cc( 1..1000 );   ## ou até $b = cc(1, 1/2 , 1/3, 20..30);
    $q = cc( 1..1000 );   ## ou até $b = cc("a","era uma vez","2/3");
    
    while( $ite < 1000 and not( $p != $q and $p < 100 and $q < 100) ){
      $p = cc( 1..1000 );
      $q = cc( 1..1000 );
      $ite++;
    }
    die("Paciencia esgotada\n") if ($ite == 1000);
    warn("$ite $p / $q\n");
    return([$p,$q]);
}