[A&C + ProgPar]Evaluatievorm

[Shinta]

Van: Dirk Janssens[SMTP:DIRK.JANSSENS@UA.AC.BE]
Verzonden: vrijdag 6 april 2007 10:27:28
Aan: Overdulve Kristof
Onderwerp: Re: Evaluatievorm Algoritmen & Complexiteit en Programmeerparadigma's
Automatisch doorgezonden volgens een regel

Geachte mr Overdulve

Voor Algoritmen en Complexiteiet is er inderdaad maar één, schriftelijk, examen. Dat is een open-boek examen (gebruik van de syllabus en eigen notities toegelaten), zodat er geen echt verschil te maken is tussen "oefeningen" en "theorie".

Voor Programmeerparadigma's beginnen we met een schriftelijk theorie-examen (open boek), gevolgd door een deel over de oefeningen. Voor dat laatste deel probeer ik vanaf 11.00 lokaal G025 te reserveren, maar ik heb nog geen bevestiging. Desnoods kan ook dat laatste deel schriftelijk, omdat er toch geen ruimte is om erg grote opdrachten te geven. In elk geval blijft het hele examen op één halve dag (21 juni, 9.00-13.00).

Met vriendelijke groet,
D. Janssens

Wat ik me nu wel afvraag is welke vragen hij kan stellen nu datta openboek is ..

[Robbe]

eigelijk vrij veel, want een groot deel van wat hij in de les uitlegt staat heel summier tot niet in de cursus...

[Shinta]

eigelijk vrij veel, want een groot deel van wat hij in de les uitlegt staat heel summier tot niet in de cursus...

hmm probleem :p ik let niet zo goed op in die lessen :p

[Robbe]

eigelijk vrij veel, want een groot deel van wat hij in de les uitlegt staat heel summier tot niet in de cursus...

hmm probleem :p ik let niet zo goed op in die lessen :p

me neither

[slimmy]

no one does :/

[slimmy]

is er toevallig nog iets in de lessen gezegt wa we allemaal moeten kennen, hoe de oefeningen nu zullen gegeven worden (voor prog paradigmas en alg en comp)

[Shinta]

is er toevallig nog iets in de lessen gezegt wa we allemaal moeten kennen, hoe de oefeningen nu zullen gegeven worden (voor prog paradigmas en alg en comp)

morge ist de laatste les

[slimmy]

geeft er iemand de oplossing van die PROLOG oefening met die nationaliteit van de eigenaar van de zebra vinden?

Vanachter slides 4...

[Shinta]

geeft er iemand de oplossing van die PROLOG oefening met die nationaliteit van de eigenaar van de zebra vinden?

Vanachter slides 4...

Code: Select all

/*

Auteur: Kristof Overdulve

Studentennr.: 20051392

Datum: 27/04/2007

Sessie 4 Prolog

*/



%Exercise 1

tran(eins,one).

tran(zwei,two).

tran(drei,three).

tran(vier,four).

tran(fuenf,five).

tran(sechs,six).

tran(sieben,seven).

tran(acht,eight).

tran(neun,nine).



listtran([], []).

listtran([Q|T1], [A|T2]) :- tran(Q, A), listtran(T1, T2).

listtran(T1, T2) :- listtran(T2, T1).



%Exercise 2

twice([], []).

twice([H|T1], [H, H|T2]) :- twice(T1, T2).



%Exercise 3

equals([], []).

equals([H|T1], [H|T2]) :- equals(T1, T2).

palindrome(T1) :- reverse(T1, A), equals(T1, A).



%Exercise 4

zebra(Zebraowner) :- Street = [H1, H2, H3],

			member(house(red, _, _), Street),

			member(house(blue, _, _), Street),

			member(house(green, _, _), Street),

			member(house(red, englishman, _), Street),

			member(house(_, spanish, jaguar), Street),

			sublist([house(_, _, snail), house(_, japanese, _)], Street),

			sublist([house(blue, _, _), house(_, _, snail)], Street),

			member(house(_, Zebraowner, zebra), Street).



%define a sublist

sublist(SubList, List) :- append(_, Suffix, List), 

			  append(SubList, _, Suffix).

[slimmy]

hebt gij de oplossingen ook van de laatste slides?

[Shinta]

hebt gij de oplossingen ook van de laatste slides?

ja, ma ni hier...

[Shinta]

Keb die sudoku solver niet. Kmoeter nogis over nadenke ma keb geen tijd...

[Shinta]

Slimmy, gij weet toch dawij buiten de slides nog een extra reeks hebben gekregen. Ale ja, een extra oefening. We moesten het 8 queens probleem oplossen (zie wikipedia ofzo ^^). Een oplossing hiervoor is als volgt:

Code: Select all

/*

 Author: Kristof Overdulve

 Date: 11/05/2007

 Sessie 7 Prolog

*/

		

/*

 * Checks whether the coordinates are between 1 and 8

 */

checkSyntax([H1, H2|_]) :- 

	CheckList = [1, 2, 3, 4, 5, 6, 7, 8],

	member(H1, CheckList),

	member(H2, CheckList).

	



/*

 * Checks whether the L is not under or above an X, right or left or

 * diagonal.

 */

checkAllCorrect([]).

checkAllCorrect([H|T]) :- 

	checkCorrect(H, T),

	checkAllCorrect(T).







checkCorrect(_, []).

checkCorrect([X1, Y1|_], [[X1Temp, Y1Temp]|TTemp]) :-

	%Check for horizontal equivalence

	X1 =\= X1Temp,

	Y1 =\= Y1Temp,

	X1-X1Temp =\= Y1-Y1Temp,

	X1-8+Y1 =\= X1Temp-8+Y1Temp,

	checkCorrect([X1, Y1|_], TTemp).

	

	

/*

 * Generates a solution to a field with X as (in the beginning) an empty

 * list and A the number of X'es 

 */

solution(Solution) :- solutionImpl([], 8, Solution).



solutionImpl(X, 0, Solution) :- Solution = X.

solutionImpl(X, A, Solution) :-

	ToAdd = [_, _],

	checkSyntax(ToAdd),

	checkCorrect(ToAdd, X),

	append(X, [ToAdd], NewX),

	B is A-1,

	solutionImpl(NewX, B, Solution).



	

	

	

	

	

[slimmy]

goe da ge da zegt, ik heb enkel die sudoku nog opgelost, en da ist

[Shinta]

goe da ge da zegt, ik heb enkel die sudoku nog opgelost, en da ist

dus nu ist uw beurt om die te posten .