﻿:- use_module(library(lists)).

/*1) Praedikat schreiben
        Liste umdrehen und die umgedrehte Liste an die umgedrehte Liste hängen
        Tipp verwenden sie reverse und append
        umgedreht_doppelt(L,R)
        umgedreht_doppelt([1,2],[2,1,2,1])
*/      


/*2) a) Liste umdrehen und die Liste [yolo] hinten anfuegen Tip verwenden sie reverse. 
		Sie koennen append benutzen, das ist aber nicht noetig.
        yolo(L,R)
        yolo([1,2],[2,1,yolo])

        b) Liste umdrehen und yolo vorne anfuegen, verwenden sie KEIN append
        yolo2([1,2],[yolo,2,1] )
*/



/*3) wenn "jayz" ein Element der Liste L ist, loesche "witch" aus der Liste. Tip verwenden Sie member und delete
        jayz(L,R).
        jayz([1,2,jayz,witch], [1,2,jayz]).
*/      

        
/*4) setzen Sie Parameter in die Grammatik so ein, dass die Sprache
        a^n b^m c^n akzeptiert wird
s−−>a( ), b( ), c( ). 


a(0) −−> [].
a(New) −−> [a], a(Count), {New is Count+1}. 
b(0) −−> [].
b(New) −−> [b], b(Count), {New is Count+1}.
c(0) −−> [].
c(New) −−> [c], c(Count), {New is Count+1}. 
*/
/*
5) zaehlen sie alle "a" in einer Liste
a_in_list(L,X)
a_in_list([a,a,a,b],3)
*/

