איך אפשר לבדוק אם 2 רשימות שוות אך לא בהכרח באותו סדר?

נגיד יש בעולמון:

פרטים(1,[מושה, יוסי, אבי]).

פרטים(2,[יוסי, מושה, אבי]).

אם ידוע שהן לא באותו סדר צריך לבדוק כל איבר ברשימה 1 ולבדוק אותו מול כל איבר ברשימה 2

בקיצור 2 לולאות אחת בתוך השנייה

או למיין אותן.

נכון, עדיף למיין אותם אלפבתית ולהשוות.

אגב, אם יש משפט In (כמו ב python) אתה יכול לעשות:

if [1, 2, 3] in [3, 2, 1]

אוקי, זה מה שיצא:

דומה(_רשימה,_רשימה2):-

פרטים(_שם1,_רשימה),

פרטים(_שם2,_רשימה2),

_שם1 \= _שם2,

מצא_כל(_איבר, ( חבר(_איבר, _רשימה), חבר(_איבר, _רשימה2) ), _רשימת_משותפים),

מספר_איברים_ברשימה(_מספר_איברים,_רשימה),

מספר_איברים_ברשימה(_מספר_איברים2,_רשימה2),

מספר_איברים_ברשימה(_מספר_איברים3,_רשימת_משותפים),

%אם מספר איברים ברשימה שנוצרה(_רשימת_משותפים) שווה למספר איברים ברשימה2

% וגם מספר האיברים בין הרשימות _רשימה ו _רשימה2 שווה

_מספר_איברים2 = _מספר_איברים3,

_מספר_איברים = _מספר_איברים2.

%אז הרשימות דומות, כי מספר איברים המשותפים שווה למספר איברים בכל משני הרשימות.

בנתיים עובד.

תודה לTheReaper על הרעיון ולכל האחרים.

הלוואי והיינו לומדים פייתון במקום פרולוג.

אמנם למדתי פרולוג רק שבוע באוניברסיטה, אבל אני זוכר שהוא באנגלית. כמו כל שפת תכנות ראוייה לשמה.

מה הולך פה?

פסדו קוד, גם לא ממש נראה כמו פרולוג עד כמה שאני זוכר, וגם אני ממש בספק אם מישהו היה מספיק משועמם לכתוב פארסר לפרולוג שיעבוד עם עברית..

זה לא פסדו-קוד. זה פרולוג "בסביבת העבודה" "פעמון" - עיברי על ידי מכון וייצמן.

כן-כן ואתם לא יודעים עד כמה זה "כיף".

dear lord...

אני מניח שמישהו עשה את זה כפרוייקט לתזה או משהו?

אני מקווה שהוא לא קיבל את התזה. אני מקווה שזרקו אותו/ה מהאוניברסיטה וגם שללו לו/ה את התואר הראשון. אולי בטקס כזה, שבו הפרופסור קורע ממנו/ה את דרגות התואר (אני יודע שאין כזה דבר, אבל שווה להמציא אותם רק כדי שיהיה אפשר לקרוע אותם בטקס מיוחד ממי שגורם נזק כה גדול למדעים).

אני מוכן לסלוח לאותו אדם רק אם השנה היתה 1985 כשהוא כתב את זה. ואם כך, המטרה החדשה היא מי שמכריח אתכם לעבוד עם זה.

למיטב ידיעתי, בתיכון מלמדים פרולוג רק בעברית.