लिली की लसान्या का बचा हुआ खाना

(defun optional-parameters (&optional x (y 'default) (z nil z-supplied-p))
  (list x y (if z-supplied-p (list :z-was-supplied z)
                             (list :z-was-not-supplied z))))

(optional-parameters)          ; => (NIL DEFAULT (:Z-WAS-NOT-SUPPLIED NIL))
(optional-parameters 5 nil 10) ; => (5 NIL (:Z-WAS-SUPPLIED 10))

(defun keyword-parameters (&key x (y 'default) (z nil z-supplied-p))
  (list x y (if z-supplied-p (list :z-was-supplied z)
                             (list :z-was-not-supplied z))))

(keyword-parameters)            ; => (NIL DEFAULT (:Z-WAS-NOT-SUPPLIED NIL))
(keyword-parameters :y 5)       ; => (NIL 5 (:Z-WAS-NOT-SUPPLIED NIL))
(keyword-parameters :z 10 :x 5) ; => (5 DEFAULT (:Z-WAS-SUPPLIED 10))

(defun could-be-confusing (&optional x y &key z) (list x y z))
(could-be-confusing :z 'huh?) ; => (:Z HUH? NIL)

(defun rest-of-it (req &optional opt &rest rest) (list req opt rest))
(rest-of-it 1)         ; => (1 NIL NIL)
(rest-of-it 1 2)       ; => (1 2 NIL)
(rest-of-it 1 2 3)     ; => (1 2 (3))
(rest-of-it 1 2 3 4 5) ; => (1 2 (3 4 5))

निर्देश

लिस्प एलियन लिली ने आपकी मदद से निश्चित रूप से बहुत सारी लज़ान्या बनाई है। वे आपको कुछ बचा हुआ खाना देकर धन्यवाद देना चाहते हैं। लेकिन पहले उनके पास उन फंक्शनों में से एक के बारे में कुछ सुझाव हैं जिनमें आपने उनकी मदद की थी।

इस अभ्यास में आप कुछ और फंक्शन लिखेंगे, जो लिली को उनकी लज़ान्या पकाने में मदद करेंगे और साथ ही उन्हें आपके साथ बचा हुआ खाना बाँटने में भी मदद करेंगे।

आपके पास छह काम हैं: तीन मौजूदा लज़ान्या पकाने वाले फंक्शनों को बेहतर बनाने के बारे में, और तीन बचा हुआ खाना बाँटने के बारे में।

1. preparation-time-in-minutes को इस्तेमाल करना आसान बनाइए

लिली कहते हैं कि उन्हें आपका preparation-time-in-minutes इस्तेमाल करना थोड़ा मुश्किल लगा, क्योंकि फंक्शन इस्तेमाल करने से पहले उन्हें सारी परतें गिननी पड़ती थीं। लिली सोचते हैं कि क्या आप फंक्शन का एक ऐसा रूप बना सकते हैं जो परतों को (कितनी भी हों) आर्गुमेंट के तौर पर ले, और फिर इस आधार पर तैयारी का समय निकाले कि कितनी परतें थीं? याद रहे, एक परत तैयार करने में 19 मिनट लगते हैं।

(preparation-time 'sauce 'cheese 'right-handed-macaroni 'cheese 'sauce
                  'left-handed-macaroni 'sauce 'sauce 'cheese 'cheese)
                  ;; => 190 (because there are 10 layers.)

2. ओवन में लगने वाला अनुमानित समय बदलने की सुविधा दीजिए

लिली के माता-पिता हमेशा अपनी लज़ान्या 337 मिनट तक पकाते थे, लेकिन लिली मानते हैं कि दूसरे लिस्प एलियन अपनी लज़ान्या ज़्यादा या कम समय तक पकाना पसंद करते हैं।

इसलिए अच्छा होगा कि remaining-minutes-in-oven expected-minutes-in-oven का इस्तेमाल न करे, बल्कि एक वैकल्पिक पैरामीटर ले, जो तय करे कि समय लंबा, बहुत लंबा, छोटा या बहुत छोटा होना चाहिए। लंबा या छोटा होने का मतलब है 337 के डिफ़ॉल्ट समय में 100 जोड़ना या घटाना। बहुत लंबा या बहुत छोटा होने का मतलब है 200 जोड़ना या घटाना। अगर कोई पैरामीटर न दिया जाए, या आर्गुमेंट 'normal' हो, तो 337 की डिफ़ॉल्ट वैल्यू लौटाई जानी चाहिए।

(remaining-minutes-in-oven)             ;; => 337
(remaining-minutes-in-oven :normal)     ;; => 337
(remaining-minutes-in-oven :shorter)    ;; => 237
(remaining-minutes-in-oven :very-short) ;; => 137
(remaining-minutes-in-oven :longer)     ;; => 437
(remaining-minutes-in-oven :very-long)  ;; => 537

3. लिली को एक और पसंदीदा पकाने का तरीका याद आता है

वह बदलाव आपने अभी पूरा ही किया था कि लिली को याद आता है कि कुछ लिस्प एलियन ऐसे भी हैं जिन्हें बहुत ही कम पकाने का समय पसंद है। वास्तव में वे इसे कच्चा ही चाहते हैं। तो अब फंक्शन को 0 लौटाना चाहिए अगर आर्गुमेंट NIL हो, और वे ही वैल्यू भी लौटानी चाहिए जो पिछले काम में थीं।

(remaining-minutes-in-oven)     ;; => 337
(remaining-minutes-in-oven nil) ;; => 0

4. बचा हुआ खाना बाँटना

अब जब आपने लज़ान्या पकाने वाले फंक्शनों को बेहतर बनाने में मदद की है, तो बहुत सारी लज़ान्या बच गई है! लिली आपकी सारी मदद का बदला चुकाना चाहते हैं, इसलिए वे बचा हुआ खाना आपके साथ बाँटना चाहते हैं। इसके लिए आपको एक फंक्शन लिखना होगा जो तीन पैरामीटर लेता है: बचे हुए खाने की कुल मात्रा, लिली को उनकी अलमारियों में मिले बचे खाने के डिब्बों की संख्या, और आपके लिए वही संख्या। चूँकि बचे खाने के डिब्बे ढूँढने में अलग-अलग समय लग सकता है, और सही मात्रा तब तय हो सकती है जब आप और लिली अपनी-अपनी अलमारियाँ ढूँढ़ रहे हों, इसलिए आप दोनों सहमत होते हैं कि फंक्शन को आर्गुमेंट किसी भी क्रम में मिल सकते हैं, ताकि जैसे-जैसे हर संख्या तय होती जाए, आप उसे लिखते जाएँ। जब आपके पास तीनों संख्याएँ हों, तो आप फंक्शन कॉल का ब्रैकेट बंद करके उसे इवैल्यूएट कर सकते हैं।

फंक्शन को बचे खाने में से जो बचा रहेगा उसकी मात्रा लौटानी चाहिए, यानी बचे खाने के वज़न और आपने तथा लिली ने मिलकर जितने डिब्बे ढूँढे उनकी कुल संख्या के बीच का अंतर।

(split-leftovers :weight 20 :human 10 :alien 5) ;; => 5
(split-leftovers :weight 20 :alien 10 :human 2) ;; => 8
(split-leftovers :alien 12 :weight 20 :human 4) ;; => 4

5. अनुमान लगाना

अपनी-अपनी अलमारियों तक कुछ चक्कर लगाने के बाद आप दोनों सहमत होते हैं कि अच्छा होगा अगर फंक्शन यह मान ले कि आपके या लिली के पास, मान लीजिए, 10 डिब्बे हैं, अगर यह बताया न गया हो।

(split-leftovers :weight 20 :human 5) ;; => 5
(split-leftovers :weight 20 :alien 5) ;; => 5
(split-leftovers :weight 20)          ;; => 0

6. बचे हुए खाने की मानक मात्रा

और भी बेहतर यह होगा कि फंक्शन मान ले कि डिब्बों में भरने लायक खाना बचा हुआ है। तो अगर वज़न न दिया गया हो, तो फंक्शन को :just-split-it लौटाना चाहिए। लेकिन अगर वज़न दिया गया हो और वह nil हो, तो उसे :looks-like-someone-was-hungry लौटाना चाहिए।

(split-leftovers :human 5 :alien 5) ;; => :JUST-SPLIT-IT
(split-leftovers :weight NIL :human 5 :alien 5) ;; => :LOOKS-LIKE-SOMEONE-WAS-HUNGRY