שלום.

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

אני מעוניין לזהות את הרשימה הקצרה יותר - לא בעיה, פשוט משווה את אורך הרשימות באמצעות פונקציית (length lst). ברגע שמצאתי את הרשימה הקצרה יותר, אני צריך "למלא" אותה עד שתגיע לאורך הרשימה הארוכה יותר במספרים מתחילת הרשימה הקצרה יותר. אם הרשימה הארוכה יותר מכילה יותר מפי 2 איברים, אזי צריך שוב לדחוף לסוף הרשימה מספרים מתחילתה של הקצרה.

דוגמאות לפלט:

קוד:

(buildEqualLength '(1 2 3 4) '(5 6 7)) ----> (5 6 7 5)
(buildEqualLength '(1 2) '(5 6 7 8 9)) ----> (1 2 1 2 1)
(buildEqualLength '(9 8 7) '(1)) ----> (1 1 1)
(buildEqualLength '(1 2 3 4 5 6 7 8 9 10 11) '(1 2 3)) ----> (1 2 3 1 2 3 1 2 3 1 2)

יש לי כיוונים, אשמח לזווית חדשה.

תודה

נכון אתם אנשים כשרים, אך לא לזאת הייתה כוונתי. רציתי שתהיו כחיות הנוהמות ביער לילות שלמים.

דרך אפשרית היא להגדיר רשימה חדשה שהיא העתק של המקורית וליצור פונקציה שכל עוד הגודל של הקצרה(החדשה) קטן משל הארוכה, היא עושה append של הרשימה הקצרה לרשימה המועתקת ואז קוראת לעצמה.
ברגע שהרשימה הקצרה כבר יותר ארוכה מהארוכה, אפשר ליצור פונקציה חדשה שעוברת בו זמנית ל-cdr של הרשימה הקצרה והארוכה וברגע שהארוכה מגיעה ל-null, אז תגדיר גם שלקצרה יהיה null באותו המקום.

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

תודה. בסוף הסתדרתי.
שכפלתי את הרשימה הקצה longer % shorter פעמים עם append בתת פונקציה, ואז קיצרתי את הרשימה בהפרש שבין הרשימה המשורשרת החדשה והרשימה המקורית הארוכה בתת פונקציה נוספת.
פחות או יותר מה שאמרת

נכון אתם אנשים כשרים, אך לא לזאת הייתה כוונתי. רציתי שתהיו כחיות הנוהמות ביער לילות שלמים.