Eργασια σε lisp

[Nick_Iommi]

καλησπερα σας,

 

εχω να κανω μια εργασια σε lisp που αφορα την υλοποιηση εντολων μετακινησης πλακιδιων σε 

ενα πλαισιο οπου ολα τα πλακιδια ειναι 7 (3 απο αυτα ειναι λευκα ,3 ειναι μαυρα και ενα ειναι κενο)

πχ μια αρχικη κατασταση θα μπορουσε να ειναι αυτη :

(M  L   L   K   L   M   M). (Μ για μαυρα ,L για λευκα και Κ για κενο.)

 

Ο χρηστης μπορει να μετακινησει ενα πλακιδιο στην κενη θεση μονο αν αυτο ειναι διπλα του(αποσταση 1 απο το κενο) ή αν απεχει αποσταση  2 απ το κενο.

 

πχ στην αρχικη κατασταση μπορω να μετακινησω το 2ο πλακιδιο κ η κατασταση στη συνεχεια να ειναι

(Μ  Κ  L    L   L   M  M)

 

Επειδη εχω σπασει το κεφαλι μ ,κ δν βρισκω κατι αξιολογο,με ποιες functions tis lisp 

μπορω να πραγματοποιησω τις μετακινησεις?

Στο μανουαλ που εχω δεν υπαρχει καποια function που να μετακινει ή να αντικαθιστα το 2ο με το 4ο στοιχειο της λιστας.Επισης με ποια εντολη μπορω να ελεγχω την αποσταση ενος στοιχειου απο ενα αλλο?

Οποιαδηποτε βοηθεια ευπροσδεκτη!!!