ΒΟΗΘΕΙΑ ΓΙΑ ROLOG

[cheffrai]

Καλημέρα θα ήθελα μία βοήθεια,μας έχουν δώσει τις εξής ασκήσεις:

 

1)

Να ορισθεί το κατηγόρημα eswt_ginomeno(Dian1,Dian2,Apot) το οποίο να δίνει στην τιμή της μεταβλητής Αpot το εσωτερικό γινόμενο των διανυσμάτων Dian1 και Dian2 (τα διανύσματα έχουν την μορφή λιστών), π.χ. αν Dian1=[1,5,42,3,99] και Dian2=[4,1,12,27,2] τότε θα πρέπει να είναι Apot=1*4+5*1+42*12+3*27+99*2=792.

2)

Να κατασκευάσετε το κατηγόρημα break1(Number,list,Less,More)το οποίο να χωρίζει

τη λίστα ακεραίων List σε δύο λίστες less και More,ανάλογα με το αν είναι μικρότερα ή μεγαλύτερα (ίσα) απο τον αριθμό Number.

3)

Να γραφεί κατηγόρημα square_even(L)όπου για είσοδο μια λίστα L θα επιστρέφει την ίδια λίστα με τους ζυγούς αριθμούς υψομένους στο τετράγωνο.για παραδειγμα για είσοδο [1,2,3,4] η έξοδος θα είναι [1,4,3,16]

 

Αν μπορεί κάποιος να λύσει έστω και μία θα ήταν μεγάλη βο΄θεια για μένα.

[nojipa]

1)Εαν θελεις βοηθεια ξεκίνα να λυνεις εσυ και εαν σε καποιο σημειο δεν ξερεις η δεν εχεις καταλαβει κατι, εμφάνισε το σημειο, να σε βοηθησουμε εμεις οσο θελεις μετα.

2) Εαν θελεις να πληρωσεις καποιον να στις κανει εισαι σε λαθος μερος, πανε στο Αγγελίες - Zήτηση.