Sou iniciante em Prolog e tenho dúvida na manipulação de lista e a soma de seus itens.
Tenho um predicado historico(RA,[i1,i2,i3,...,in])
onde ra
é o Registro Acadêmico de um aluno e cada i
é um item, com a forma item(CM,SM,AN,NT,FQ)
, sendo que CM
é o código da matéria cursada, SM
é o semestre, AN
é o ano, NT
a nota, e FQ
a frequência.
Além disso, o predicado curriculo(Codigocurso,[i1,i2,...,in])
onde cada i
é o código de uma matéria, nos mostra as matérias de cada curso.
O predicado materia(Codigomateria,Nomemateria,Creditosmateria)
nos mostra quantos créditos tem cada matéria no seu terceiro parâmetro.
Suponha que tenho os seguintes fatos:
historico(08080808,[item(1,1,2008,3.0,0.77),item(1,2,2008,6.5,0.90),item(5,1,2009,8.0,0.80)]).
materia(1,algoritmos_e_programacao_para_computadores_1,4).
materia(2,paradigmas_de_programacao,4).
materia(3,programacao_orientada_a_objetos,4).
curriculo(1,[1,2,3]).
Quero fazer uma função que verifique qual a porcentagem de créditos já cumpridos por um certo aluno.
Para isso, terei a função porcentagemcreditos(RA,Codigocurso,Porcentagemjacumprida)
.
Preciso primeiramente somar os créditos de todas as matérias do curso do aluno (considerando as matérias presentes no currículo), mas não sei como somar os itens de uma lista para que eu tenha o total de créditos de um curso.
Além disso, a função porcentagemcreditos
deve desconsiderar as matérias que forem extracurriculares, ou seja, se ele cursou alguma matéria que não está no currículo do seu curso.
Para contextualizar, tenho as seguintes regras que já criei, mas acho que não serão necessárias, apenas as regras que já mencionei:
curso(CODIGOCURSO,NOMECURSO).
materia(CODIGOMATERIA,NOMEMATERIA,CREDITOSMATERIA).
curriculo(CODIGOCURSO,[CODIGOMATERIA1,CODIGOMATERIA2,...,CODIGOMATERIAn).
aluno(RA,NOME).
cursa(RA,CODIGOCURSO).
historico(RA,[ITEM1,ITEM2,...,ITEMn). (como mostrei anteriormente).
pertence_curso(M,C):-curriculo(C,Lista),member(M,Lista).