#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= importcom( ls );
macho = importcol(F/femea.tab,1);
femea = importcol(F/femea.tab,2);
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}

\batatas

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