#title: Língua PT simples (4)
#author: jj
#let:

a           = sectionlines(animais);
b[6] ~ c[6] = sectioncols(femeas);

#question:
\:
.1 Afinal o #a existe ou não
.1 Qual a femea do #b[0]?
.1 Qual a femea do #b[1]?
.1 Qual a femea do #b[2]?
.1 Qual o macho da #c[3]?
.1 Qual o macho da #c[4]?
.1 Qual o macho da #c[5]?
 #

#sugestion:
 Consultar o dicionário... ou visitar a arca de Noé

#resolution:
 isto é a resolução 



#result:
 #a \\
 #c[0]\\
 #c[1]\\
 #c[2]\\
 #b[3]\\
 #b[4]\\
 #b[5]\\


#verification:
 #a type=myfun func=myfun;
 #c[0] func=myfun;
 #c[1] type=s func=myfun;
 #c[2] type=s func=icastr;
 #b[3] type=s func=icastr;
 #b[4] type=s func=icastr;
 #b[5] type=s func=icastr;



#obs:
multi-valor; files internas: funções sectionlines, sectioncols


#verifyfunctions:

add_fun(myfun => sub{ my ($a,$r) = @_; return ($r eq "abcdef");}, "notype");


#tab femeas
galo:galinha
pato:pata
pavão:pavoa
bode:cabra
carneiro:ovelha
leão:leoa
boi:vaca
zangão:abelha
homem:mulher
cavalo:égua
porco:porca


#tab animais
narval
diabo da Tasmânia
colibri
piopardo
bufalante
gambuzino