אחד ממבני הנתונים הנפוצים והשימושיים ביותר הוא רשימה מקושרת - אוסף של ערכים. ב־Common Lisp, ובניבי Lisp נוספים, ניתן ליצור רשימה מקושרת בשתי דרכים עיקריות, באמצעות codice_25 ובאמצעות codice_26.
שימוש במילה השמורה codice_25.
בשיטה זו, מגדירים את הרשימה המקושרת באופן רקורסיבי. codice_25 קולט שני אופרנדים: הערך שבחוליה, והפניה לאיבר הבא. הרשימה נגמרת כאשר ההפניה לאיבר הבא היא codice_29 - כלום (השקול לערך הבוליאני codice_30 בשפות תכנות מסוימות).
דוגמה להגדרה של רשימה מקושרת בעלת איבר אחד,
רשימה בעלת שני איברים,
שתי הרשימות תכילנה codice_31 .
דוגמה להגדרת רשימה בעלת 6 איברים,
הרשימה תכיל codice_32.
שימוש במילה השמורה codice_26.
הדרך הקלה יותר ליצור רשימות מקושרות ב־Common Lisp ובניבי Lisp אחרים היא להשתמש בהוראת ה־codice_26.
לדוגמה,
יצירת משתנים.
ניתן ליצור משתנים ב־Common Lisp ב־3 דרכים,
להלן השוואה בין הקוד הנדרש ליצירת רשימה זהה בשיטות השונות,
(set 'foo '(1 2 3)) ;foo =&gt; (1 2 3) same function, simpler expression
(setq foo '(1 2 3)) ;foo =&gt; (1 2 3) similar function, different syntax
(setf foo '(1 2 3)) ;foo =&gt; (1 2 3) more capable function
פונקציות.
ב־Common Lisp הגדרת פונקציות נעשית באמצעות המילה השמורה codice_50 (קיצור ל־"define function")
מבנה הגדרת פונקציה חדשה,
"Optional documentation string."
(body-expression))
דוגמה לפונקציית ריבוע (פרבולה) פשוטה. הפונקציה קולטת ערך ופולטת את הערך הריבועי שלו,
(defun f x
(* x x))
דוגמה לפונקציה רקורסיבית אשר סוכמת את המספרים הטבעיים מ־0 עד למספר הטבעי הנתון.
כלומר, עבור הפרמטר formula_4 נֵעשָה החישוב formula_5. או בכתיב סכימה מסורתי, formula_6.
(if (eq n 0)
(+ (summation (- n 1)) n)))
על אותו עיקרון, יישום לאלגוריתם נאיבי לפעולת העצרת שקולט מספרים טבעיים בלבד,
(if (eq n 0)
(* (recursive-factorial (- n 1)) n)))
וכן פונקציה רקורסיבית אשר מצטמצמת (היות שגם היא ביטוי) למספר הגדול ביותר ברשימה הנקלטת אליה,
(if (eq lst nil)
(recursive-maximum (max (car lst) item) (cdr lst))))
ורוניקה גרין
ורוניקה גרין (באנגלית: Veronica Guerin; 5 ביולי 1958 – 26 ביוני 1996) הייתה עיתונאית אירית שנרצחה בידי ברוני סמים, בשל סיקורי הסחר בסמים שפרסמה. המקרה עורר תרעומת ברחבי אירלנד. סרט על מקרה הרצח בשם "ורוניקה גרין" יצא בשנת 2002 בבימויו של ג'ואל שומאכר.
תחילת דרכה.
הוריה של גרין היו כריסטופר וברנדט. אביה היה רואה חשבון. גרין, שהייתה מכונה "רוני", גדלה עם ארבעת אחיה ואחיותיה בדבלין, ולמדה בבית ספר קתולי שם הצטיינה בספורט. היא שיחקה כדורסל וקמוגי, ובגיל 15 שיחקה במשחק הגמר הארצי של אירלנד בכדורגל עם פריצת דיסק. לאחר שסיימה את לימודיה, היא שיחקה בנבחרת הנשים של אירלנד לכדורסל, וכן בנבחרת הכדורגל הלאומית של אירלנד.
גרין למדה ראיית חשבון בטריניטי קולג' בדבלין. היא נישאה לגרהם טרלי ב-1985, ובנם קתאל נולד ב-1990.
קריירת יחסי ציבור: 1983-1990.
ב-84–1983, היא שימשה כמזכירת פיאנה פול בפורום החדש של אירלנד. היא הייתה עוזרתו האישית של צ'ארלס הוהי, והפכה לחברה של משפחתו, והייתה נוסעת לחופשות עם הילדים שלו. ב-1987 היא שימשה כסוכנת בחירות וגזברית המפלגה בצפון דבלין.
קריירת עיתונות: 1990-1996.
ב-1990, היא שינתה קריירה, ועשתה מעבר לעיתונאות ככתבת עבור "Sunday Business Post" ו-"Sunday Tribune". גרין, שכתבה במדור הפשע, הייתה מחויבת להבאת מידע מיד ראשונה, והייתה רודפת אחר סיפור ישירות למקור ללא התחשבות בביטחונה האישי. זה אפשר לה לבנות יחסים קרובים הן עם הרשויות, כגון גרדה שיכנה (המשטרה האירית), והן עם הפושעים, כאשר שני הצדדים כיבדו את היושרה שלה. היא גם הייתה כותבת על פעילויות הצבא הרפובליקני האירי באירלנד.
מ-1994 ואילך, היא התחילה לכתוב על פשע עבור "Sunday Independent". היא השתמשה בידע שלה בראיית חשבון כדי לאתר את ההכנסות מפעילות בלתי חוקית, ובסיקורים שלה השתמשה בשמות רחובות או שמות בדויים עבור דמויות פשע מאורגן כדי לעקוף חוקי דיבה.
כשהחלה לסקור סוחרי סמים, והשתמשה במידע מג'ון טריינור, שהורשע בסחר בסמים, היא קיבלה מספר איומים על חייה. הפעם הראשונה שהופנתה כלפיה אלימות התרחשה באוקטובר 1994, כאשר שתי יריות נורו לתוך ביתה אחרי שפורסמה הכתבה על רצח ראש ארגון הפשע מרטין קייהיל. גרין התעלמה מה"אזהרה". יום אחרי שכתבה מאמר על ג'רי "הנזיר" האץ', ב-30 בינואר 1995, היא פתחה את הדלת ומצאה גבר המכוון אקדח לראשה. היורה החמיץ, וירה בה ברגל. למרות זאת, היא נשבעה להמשיך בחקירה שלה. הוצאת העיתון התקינה מערכת אבטחה כדי להגן עליה, והמשטרה נתנה לה ליווי סביב לשעון, למרות שהיא לא בקשה זאת, וטענה שזה מפריע לה בעבודתה.
ב-13 בספטמבר 1995, הפושע המורשע ג'ון גיליגן, הבוס של טריינור, תקף אותה כאשר היא התעמתה איתו בנושא אורח חייו הבזבזני, כאשר הוא לכאורה חסר מקור הכנסה. מאוחר יותר הוא הגיע לביתה, ואיים לחטוף ולאנוס את הבן שלה, ולהרוג אותה אם היא תוסיף לכתוב עליו.
גרין זכתה בפרס חופש העיתונות הבינלאומי מטעם הוועדה להגנת עיתונאים בדצמבר 1995.
הרצח.
בערבו של ה-25 ביוני 1996, חברי כנופיית הסמים גיליגן - צ'ארלס בודן, בריאן מיהן, קירן 'muscles' קונקנון, פיטר מיטצ'ל ופול וורד - נפגשו במרכז ההפצה של הכנופיה. באודן, האחראי על הפצה ותחמושת, חילק לאחרים אקדחים.
ב-26 ביוני 1996, גרין נהגה במכוניתה בפאתי העיר דבלין, ולא הייתה מודעת לכך שעוקבים אחריה. כשעצרה ברמזור אדום, היא נורתה שש פעמים על ידי אחד משני הגברים היושבים על אופנוע שעצר לצידה.
כשעה לאחר רציחתה של גרין, התקיימה פגישה ברחוב מור בדבלין בין באודן, מיהן, ומיטשל. באודן מאוחר יותר הכחיש תחת שבועה בבית המשפט כי מטרת הפגישה הייתה להיפטר מהנשק, אלא שזה היה תירוץ להופיע במקום ציבורי ולמקם אותם הרחק מהאירוע.
בעת הרצח, טריינור היה בתהליך בקשת צו מבית המשפט נגד גרין כדי למנוע ממנה לפרסם ספר על מעורבותו בפשע מאורגן. גרין נהרג יומיים לפני שהיא הייתה אמורה לנאום בכנס פורום החופש בלונדון. נושא המושב שלה היה "מתים לספר את הסיפור: עיתונאים בסכנה".
בהלוויה השתתפו טישך (ראש ממשלת) אירלנד, ג'ון ברוטון, וכן הרמטכ"ל. ב-4 ביולי, יצאה קריאה מאיגודי עובדים ברחבי אירלנד לדקת דומיה לזכרונה של גרין, בה השתתפו אנשים מכל רחבי אירלנד. גרין קבורה בבית הקברות של דרדיסטאון, במחוז דבלין.
לאחר הרצח.
הרצח של גרין עורר זעם רב. טיסך ג'ון ברוטון נינה זאת "מתקפה על הדמוקרטיה". האירכטס (הפרלמנט האירי) הכירו בפוטנציאל של אכיפת חוקי המס חוקי כאמצעי להרתיע ולהעניש פושעים. בתוך שבוע מהרצח, חוקק את חוק הכנסות הפשע לשנת 1996, ואת חוק הלשכה לנכסי הפשע לשנת 1996, כדי שהממשלה תוכל להחרים נכסים שנרכשו בכסף שהושג באמצעות מעשי פשע. בעקבות החוק, הוקמה הלשכה לנכסי פשע, CAB.
לאחר הרצח של גרין, באודן נעצר, כמו גם שאר חברי כנופיית גיליגן שהיו עדיין באירלנד. בהסכם עם התובע הכללי של אירלנד, באודן הסכים להפוך לעד מדינה, ולהיות האדם הראשון כדי להיכנס לתוכנית הגנת העדים של אירלנד. עם חסינות מפני העמדה לדין על רצח גרין, הוא היה העד היחיד לתת עדות נגד כל ארבעת חברי כנופיית סמים במשפטים שלהם בבית הדין הפלילי: פטריק הולנד, פול "היפו" וורד, בריאן מיהן וג'ון גיליגן. החקירה בדבר מותה של גרין הובילה ליותר מ-150 מעצרים והרשעות, כמו גם מציאת שלל סמים ונשק. פשעי סמים באירלנד פחתו בכ-15% באותה שנה.
בשנת 1997 באודן העיד שהאדם לו סיפק את האקדח היה פטריק "דאצ'י" הולנד, והחשד בירי גרין נפל עליו. הולנד מעולם לא הורשע ברצח, והוא הכחיש את האשמה עד מותו ביוני 2009, עת שהה בכלא בבריטניה.
בנובמבר 1998, לאחר מתן עדות מצד באודן ואחרים, פול "היפו" וורד הורשע ברצח ונגזר עליו מאסר עולם כשותף לדבר עבירה, כי הוא היה זה שנפטר מכלי הרצח ומהאופנוע. הרשעה זו בוטלה אחר כך בערעור.
בריאן מיהן נמלט לאמסטרדם עם טריינור (אשר מאוחר יותר ברח לפורטוגל). לאחר שבית המשפט דחה ראיות נוספות מצד באודן, מיהן הורשע על סמך עדותו של ראסל וורן, חבר כנופיה שהפך לעד מדינה. וורן עקב אחרי גרין בשעות שלפני הרצח, ואז מסר בטלפון את הפרטים למיהן. מיהן הורשע ברצח גרין, ונידון למאסר עולם.
ג'ון גיליגן עזב את אירלנד יום לפני רצח גרין, וטס לאמסטרדם. הוא נעצר כעבור שנה באנגליה, כשניסה לעלות על טיסה חזרה לאמסטרדם, אחרי שבחיפוש שגרתי במטען שלו התגלו 500,000 דולר במזומן. גיליגן טען שאלו רווחים מהימורים, אך הוא הואשם בהלבנת הון. לאחר קרב משפטי שארך שלוש שנים, הוא הוסגר לאירלנד ב-3 בפברואר 2000. שם, הוא הועמד לדין וזוכה ברצח גרין, ומאוחר יותר הורשע בייבוא 20 טונות של קנאביס ונידון ל-28 שנות מאסר, שהופחתו ל-20 שנים בערעור.