आप कितने सुस्त और थोड़े पवित्र हैं?

मैंने गलती से एक सहकर्मी से दूसरे के लिए इस तथ्य के बारे में एक कहानी सुनी कि सबकुछ बहुत ही शांत है और स्क्रिप्टिंग भाषाओं में सुविधाजनक है। कथाकार ने पर्ल को कुछ बहुत ही शांत, सरल और सरल के रूप में प्रचारित किया।
मैं विरोध और बाधित नहीं कर सकता था, यह कहते हुए कि अजगर अधिक समझदार होगा, और यह कम संभावनाएं प्रदान नहीं करता है।
फिर मुझसे पूछा गया कि अजगर में नियमित अभिव्यक्ति के साथ चीजें कैसी हैं, और परिणामस्वरूप हम इस समस्या पर आए:

एक पंक्ति है, आपको इसमें सभी शब्दों को प्रदर्शित करने की आवश्यकता है जो एन बार होते हैं।

बेशक, कार्य पूरी तरह से तुच्छ है, और समाधान लिखना मिनटों की बात है, लेकिन इस डंबल ने कम से कम कुछ घंटों के लिए सभी को खा लिया। यदि आप डंबेस के आगे झुकते हैं, तो आपका स्वागत है


यहाँ समाधान हैं:

test1.py 3 मिनट लेखन। "युद्ध और शांति" इस निर्णय पर हावी नहीं हुए

#!/usr/bin/env python import re n = 5 with open("./input_file.txt", "r") as f: s = f.read() l = re.findall(r'\w+',s) print repr([x for x in l if l.count(x) == n]) 

test2.pl लेखन 30 मिनट (किसी कारण से एक व्यक्ति इसे लंबे समय तक पोंछता है )। "युद्ध और शांति" पर काम के घंटे: 0m0.282s

 #!/usr/bin/perl open FH, "<input_file.txt"; local $/; $str = <FH>; $n = 5; %h = (); $h{$1}++ while $str =~ /(\w+)/g; print '['.(join ", ", grep {$h{$_} == 5} keys %h).']'; 

पहले समाधान का कार्य समय बिल्कुल भी संतुष्ट नहीं था, इसलिए यह लिखा गया था:
test3.py 3 मिनट लेखन। "युद्ध और शांति" पर काम के घंटे: 0m0.285s

 #!/usr/bin/env python import re n = 5 with open("./input_file.txt", "r") as f: s = f.read() d={} for x in re.findall(r'\w+',s): if x in d: d[x] += 1 else: d[x] = 1 print repr([k for k,v in d.items() if v == n]) 

test4.pl लेखन 30 मिनट (फिर से बहुत लंबा समय)। "युद्ध और शांति" पर काम के घंटे: 0m0.221s
लेकिन अफसोस, नतीजा गलत है

 #!/usr/bin/perl open FH, "<./input_file.txt"; local $/; $str = <FH>; $n = 5; chomp($str); foreach(split(/ /, $str)){$h{$_}++;} my $res ="["; foreach(keys(%h)) {if($h{$_} == $n){$res .= "$_, ";}} $res .= "]"; print $res; 

test5.hs 10 मिनट लिख रहा है। "युद्ध और शांति" पर काम के घंटे: 0m2.948s
आदमी ने यह कहने के लिए बनाया था "लेकिन मैं हास्केल पर भी जा सकता हूं", लेकिन परिणाम प्रभावशाली नहीं था

 import Data.List import Data.Char main = interact -- IO $ unlines -- combine meta-data into string . map (\(n, w) -> if (n == 5) then show w else "") . sort -- sort meta-data by occurances . map (\s -> (length s, head s)) -- transform to sublist meta-data . group -- break into sublists of unique words . sort -- sort words . words -- break into words . map (\c -> -- simplify chars in input if isAlpha c then toLower c else ' ') 

ठीक है, यदि हां, तो C ++ में हम भी लागू करते हैं
test6.cpp लेखन 5 मिनट। "युद्ध और शांति" पर काम के घंटे: 0m0.640s

 #include <stdlib.h> #include <stdio.h> #include <errno.h> #include <string> #include <iostream> #include <set> std::multiset<std::string> words; void prepare() { char *p = 0; int err = 1; while ( 1 == scanf("%as", &p)) { words.insert(p); free(p); } if (errno) { perror("scanf"); abort(); } } void output(int n) { std::multiset<std::string>::iterator it(words.begin()); std::string out; for(;it!=words.end(); it = words.upper_bound(*it)) { if ( words.count(*it) == n ) out.append(" ," + *it); } if (out.find(" ,") == 0 ) out.erase(0, 2); std::cout<<"["<<out<<"]\n"; } int main(int argc, char **argv) { prepare(); output(atoi(argv[1])); return 0; } 

टिप्पणियों में अपने समाधान सुझाएं यदि आप नीरसता से ग्रस्त हैं और एक समझदार समय में बेहतर करने में सक्षम हैं;)
इस फाइल को input_file.txt के रूप में इस्तेमाल किया गया था , यह गुटेनबर्ग लाइब्रेरी से "वॉर एंड पीस" है