Andreas van Cranenburgh, 0440949 Dennis Roof, 0490474 1. %radio -> rAdIjO ca( [r, a, d] / 'A' ). ca( [d, i, o] / 'I' ). ca( [i, o, ' '] / j ). ca( [o, ' ', ' '] / 'O' ). %ideaal ca( [_, i, d] / 'I' ). ca( [_, a, a] / 'A' ). ca( [a, a, _] / ' ' ). %appelflap ca( [_, p, p] / 'P' ). ca( [p, p, _] / ' ' ). ca( [_, f, _] / v ). %trottoir ca( [_, t, t] / 'T' ). ca( [t, t, _] / ' ' ). ca( [o, i, r] / 'A' ). ca( [_, o, i] / w ). %louche ca( [o, u, c] / e ). ca( [u, c, h] / s ). ca( [e, c, h] / s ). ca( [c, h, e] / j ). ca( [s, h, e] / j ). ca( [s, h, u] / j ). ca( [c, h, u] / j ). ca( [h, e, _] / u ). ca( [j, e, _] / u ). 2. de antwoorden staan in de syntax van het zelfgemaakte programma: # example rule table: N E M S W new_M # _ is wildcard (inspired by Prolog) a. # move image down: movedown = ["1____1", "0____0"] b. #invert image: invert = ["__1__0", "__0__1"] c. # move image down and invert: movedowninvert = ["1____0", "0____1"] d1. #show edges: edges = ["111110"] d2. #blur blur = ["001000", "001010", "001100", "001110", "011000", "011010", "011100", "101000", "101010", "101100", "111000"]