#title: Exercício tipo infantil
#author: jj 
#Obs: ListPerl, importcol, import ls, import file, num/str
#let:

n a   = {[20..26]} ;
s b   = import F/animais.list ;
 a ~ b ;
s a1  = import F/animais.list ;
peso = {[10..100]};

s file= import `ls` ;
macho = importcol(1,F/femea.tab);
femea = importcol(2,F/femea.tab);
macho ~ femea;
n peso_final = #a*#peso

#question:

\begin{enumerate}
\item  Quanto pesam #a #a1\mbox{s} (cada #a1 pesa #peso)?
\item  Qual a fêmea do #macho?
\item  Existe um ficheiro \verb!#file!
\end{enumerate}


#sugestion:
#resolution:
 $ total = #a \times peso(#a1) $
#result:
 Peso final: $ #peso_final $ \\ #macho → #femea
#Verify: