10 रैकेट सिंगल-लाइनर्स जो आपके दोस्तों को प्रभावित करेंगे

मैं अपनी पसंदीदा भाषा में "10 वन-लाइनर्स" के भूल गए विषय पर लौटना चाहता हूं। होबे पर स्टॉर्मी की चर्चा कई महीने पहले हुई थी । दुर्भाग्य से, कई ने वास्तव में एकल-लाइनर्स का उल्लेख नहीं किया और उनमें से कई पठनीय नहीं थे। मैं रैकेट पर एक संस्करण प्रस्तावित करना चाहता हूं, जो कुछ स्थानों पर मूल स्काला उदाहरण को भी पार करता है।

1. सूची में प्रत्येक आइटम को डबल करें

आप यह कर सकते हैं:

(for/list ((i (in-range 10))) (* 2 i)) 

या तो:

 (map (curry * 2) (build-list 10 (λ (x) x))) 

2. सूची में सभी नंबरों को सारांशित करें

 (apply + (build-list 10000 (λ (x) x))) 

3. प्रतिस्थापन की जाँच करें

 (define wordlist '("Racket" "akka" "play framework" "sbt" "curring")) ;   (define tweet "This is an example tweet talking about Racket and curring") ;   

पहली घटना पाता है (यदि नहीं, तो # रिटर्न):

 (findf (curryr regexp-match? tweet) wordlist) 

ट्वीट में मौजूद सब्स्टीटयूट शब्द सूची में से चयन करता है:

 (filter (curryr regexp-match? tweet) wordlist) 

4. एक फ़ाइल से पढ़ना

 (file->string "file.txt") ;    (file->lines "file.txt") ;    

5. गीत "जन्मदिन मुबारक हो"

टाइम्स विकल्प

 (for-each (λ (x) (display (string-append "Happy Birthday" (if x ", dear John" " to You") "\n"))) '(#f #f #t #f)) 

दो विकल्प

 (for ((x (in-range 4))) (display (string-append "Happy Birthday" (if (= x 2) ", dear John" " to You") "\n"))) 

तीन विकल्प

 (display-lines (build-list 4 (λ (x) (string-append "Happy Birthday" (if (= x 2) ", dear John" " to You"))))) 

6. संख्याओं की सूची को छानना

 (partition (curry > 60) '(49 58 76 82 88 90)) 

दो सूचियाँ लौटाता है - एक जो शर्त को पूरा करता है और एक जो नहीं करता है।

7. वेब सेवा से XML प्राप्त करना और पार्स करना

मानक लाइब्रेरी डाउनलोड करें:

 (require net/url xml) 

निम्न क्रिया परिणामस्वरूप xml को किसी प्रकार के दस्तावेज़ की संरचना में रखती है

 (define doc (read-xml (get-pure-port (string->url "http://search.twitter.com/search.atom?&q=racket")))) 

यदि वांछित है, तो आप परिणामी दस्तावेज़ को पेड़ में पार्स कर सकते हैं - लिस्प का मूल स्वरूप, जो रैकेट है:

 (xml->xexpr (document-element doc)) 

8. सूची में न्यूनतम (या अधिकतम) खोजें

संख्या जोड़ने से अधिक जटिल नहीं:

 (apply max '(14 35 -7 46 98)) (apply min '(14 35 -7 46 98)) 

9. समानांतर प्रसंस्करण

कुछ डेटा होने दो। परीक्षण के रूप में, हम सामान्य सूची देते हैं:

 (define data-list '(ABCDEFGH)) 

और कुछ प्रक्रिया है। स्पष्टता के लिए, हम प्रतीक के कई मुद्रण चुनते हैं:

 (define (process sym) (for ((n (in-range 10))) (display sym))) 

समानांतर प्रसंस्करण इस तरह शुरू होता है:

 (for ((x data-list)) (thread (λ () (process x)))) 

10. एराटोस्थनीज की छलनी

कार्य बल्कि एल्गोरिदम है। इसे हल करने के कई तरीके हैं।
यहां 2 से अधिकतम संख्या की सूची दी गई है

 (define (eratosphen max) (let er ([lst null] [cur 2]) (cond [(> cur max) (reverse lst)] [(ormap (λ (x) (= (remainder cur x) 0)) lst) (er lst (add1 cur))] [else (er (cons cur lst) (add1 cur))]))) 

यह एक पंक्ति में लिखने लायक नहीं है।
और अगर आपको केवल एराटोस्थनीज की छलनी विधि का उपयोग करके सादगी के लिए संख्या की जांच करने की आवश्यकता है, तो कोड वास्तव में लाइन में फिट हो सकता है (जाँच की जाने वाली संख्या 113 होनी चाहिए)।

 (let check ([cur 2] [n 113]) (cond [(= (remainder n cur) 0) #f] [(> (sqr cur) n) #t] [else (check (add1 cur) n)])) 

लेकिन मैं अभी भी इसे "सीढ़ी में" तोड़ दूंगा, इस समस्या के अन्य सभी समाधानों की तरह।