पीपीसीजी उपयोगकर्ता नाम नीचे गोल्फ

32

चैट में की गई एक टिप्पणी और आगामी बातचीत ने मुझे यह चुनौती देने के लिए प्रेरित किया।

क्या मैं इधर-उधर इनिशियल्स द्वारा संदर्भित एकमात्र व्यक्ति हूँ? हम सब नीचे गोल्फिंग चीजों के बारे में हैं। हमारे पास MB और D-nob और ... O हो सकते हैं।

अगर मुझे "सीएच" के रूप में जाना जाता है, तो मुझे लगता है कि बाकी सभी को एक प्रारंभिक-आधारित उपनाम होना चाहिए।

यहाँ शीर्ष 100 प्रोग्रामिंग पहेलियाँ और प्रतिष्ठा के साथ खेलने के लिए कोड गोल्फ उपयोगकर्ताओं की एक सूची है:

Martin Büttner
Doorknob
Peter Taylor
Howard
marinus
Dennis
DigitalTrauma
David Carraher
primo
squeamish ossifrage
Keith Randall
Ilmari Karonen
Quincunx
Optimizer
grc
Calvin's Hobbies
ugoren
Mig
gnibbler
Sp3000
aditsu
histocrat
Ventero
xnor
mniip
Geobits
J B
Joe Z.
Gareth
Jan Dvorak
isaacg
edc65
Victor
steveverrill
feersum
ace
Danko Durbić
xfix
PhiNotPi
user23013
manatwork
es1024
Joey
daniero
boothby
nneonneo
Joey Adams
Timwi
FireFly
dansalmo
grovesNL
breadbox
Timtech
Flonk
algorithmshark
Johannes Kuhn
Yimin Rong
copy
belisarius
professorfish
Ypnypn
trichoplax
Darren Stone
Riot
ProgramFOX
TheDoctor
swish
minitech
Jason C
Tobia
Falko
PleaseStand
VisioN
leftaroundabout
alephalpha
FUZxxl
Peter Olson
Eelvex
marcog
MichaelT
w0lf
Ell
Kyle Kanos
qwr
flawr
James_pic
MtnViewMark
cjfaure
hammar
bitpwner
Heiko Oberdiek
proud haskeller
dan04
plannapus
Mr Lister
randomra
AShelly
ɐɔıʇǝɥʇuʎs
Alexandru
user unknown

( यह है कि मैं इसे कैसे मिल गया )

चुनौती

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

उपनाम बनाने के लिए दिए गए क्रम में सूची में प्रत्येक स्ट्रिंग S पर इस विधि को लागू करें:

  1. स्प्लिट एस को रिक्त स्थान द्वारा अलग किए गए शब्दों में, प्रक्रिया में सभी रिक्त स्थान को हटा दें।
  2. सबसे छोटे से सबसे लंबे समय तक, एस में शब्दों के पहले अक्षरों की स्ट्रिंग के गैर-रिक्त उपसर्गों को सूचीबद्ध करें।
    जैसे Just Some Name→ J, JS,JSN
  3. इस सूची में पहला आइटम चुनें, जो पहले से ही चुने गए उपनाम के समान नहीं है।
    जैसे अगरJust Some Name पहला तार था तो Jउपनाम होने की गारंटी है।
  4. उपसर्गों को फिर से सूचीबद्ध करें, लेकिन इस बार इसमें प्राकृतिक शब्द में पहले शब्द का दूसरा अक्षर शामिल है।
    जैसे Just Some Name→ Ju, JuS,JuSN
  5. इस सूची के लिए चरण 3 में भी ऐसा ही करें, अगर कोई विशिष्ट उपनाम मिला है तो रोक दें।
  6. पहले शब्द के शेष अक्षरों के साथ इस प्रक्रिया को दोहराएं, अंत में दूसरे शब्द में अक्षर डालें, फिर तीसरा, और इसी तरह, जब तक कि एक अद्वितीय उपनाम नहीं मिलता है।
    : जैसे पहले अद्वितीय यहाँ सूचीबद्ध स्ट्रिंग उपनाम हो जाएगा
    Jus, JusS, JusSN
    Just, JustS, JustSN
    Just, JustSo, JustSoN(ध्यान दें किo बाद नहीं जोड़ा गया था Just)
    Just, JustSom, JustSomN
    Just, JustSome, JustSomeN
    Just, JustSome, JustSomeNa
    Just, JustSome, JustSomeNam
    Just, JustSome,JustSomeName

अंत में सभी इनपुट स्ट्रिंग्स को एक अद्वितीय उपनाम (संभवतः स्ट्रिंग के समान) के साथ समाप्त होना चाहिए। आप मान सकते हैं कि इस पद्धति का उपयोग करके इनपुट स्ट्रिंग में से कोई भी एक ही उपनाम पर नहीं जाएगा।

उदाहरण

मेरी गलती को ठीक करने के लिए अपडेट किया गया!

इनपुट के लिए

Martin Buttner
Doorknob
Peter Taylor
Howard
marinus
Dennis
DigitalTrauma
David Carraher
Martin Bitter
Martin Butter
Martin Battle
Martini Beer
Mart Beer
Mars Bar
Mars Barn

उपनाम होगा

M
D
P
H
m
De
Di
DC
MB
Ma
MaB
Mar
MarB
Mars
MarsB

विवरण

  • इनपुट एक फ़ाइल (प्रति पंक्ति एक नाम) से हो सकता है, या एक समय में एक नाम स्टडिन / कमांड लाइन के माध्यम से, या स्ट्रिंग्स की सूची के फ़ंक्शन तर्क के रूप में, या नामों के बीच newlines के साथ एक स्ट्रिंग के एक फ़ंक्शन arg के रूप में हो सकता है।
  • आउटपुट को स्टैडआउट (प्रति पंक्ति एक उपनाम) पर मुद्रित किया जाना चाहिए या फ़ंक्शन द्वारा स्ट्रिंग की सूची के रूप में, या उपनामों के बीच नईलाइन के साथ एक स्ट्रिंग के रूप में लौटाया जाना चाहिए।
  • आदर्श रूप से प्रोग्राम उन नामों के लिए काम करेंगे जिनमें लाइन टर्मिनेटर को छोड़कर कोई भी वर्ण है । हालाँकि, आप मान सकते हैं कि सभी नामों में केवल मुद्रण योग्य ASCII है । (पीपीसीजी के नाम नहीं हैं)
  • केवल नियमित अंतरिक्ष वर्ण शब्द विभाजक के रूप में गिना जाता है। अग्रणी और अनुगामी स्थानों को अनदेखा किया जा सकता है।

स्कोरिंग

बाइट्स में सबसे कम सबमिशन जीतता है। टाईब्रेकर जल्द से जल्द पोस्ट किए गए उत्तर पर जाता है।

code-golf  string 
— केल्विन के शौक
स्रोत
49
यह बताता है कि क्यों मैं रात के बीच में जाग गया इस अस्पष्ट भावना के उल्लंघन के साथ।
— मार्टिन एंडर

जवाबों:

8

CJam, 58 53 बाइट्स

यह एक बहुत गोल्फ हो सकता है .. लेकिन शुरुआत के लिए:

LqN/{:Q1<aQ,,:)QS/f{{1$<_,@-z1e>}%W<s}+{a1$&!}=a+}/N*

कोड विस्तार :

L                         "Put an empty array on stack. This is the final nickname array";
 qN/{  ...   }/           "Read the input and split it on new lines. Run the block for each";
     :Q1<a                "Store each name in Q and get its first char. Wrap it in an array";
          Q,,:)           "Get an array of 1 to length(name) integers";
               QS/        "Split the name on spaces";
f{{           }%   }      "for each of the integer in the array, run the code block";
                          "and then for each of the name part, run the inner code block";
   1$<                    "Copy the integer, take first that many characters from the";
                          "first part of the name";
      _,@-z1e>            "Get the actual length of the part and the number of characters";
                          "to be taken from the next name part, minimum being 1";
                W<        "Get rid of the last integer which equals 1";
                  s       "Concat all name parts in the array";
                    +     "Add the list of nick names as per spec with the first character";
{     }=                  "Get the first nick name that matches the criteria";
 a1$&                     "Wrap the nick name in an array and do set intersection with";
                          "the copy of existing nick names";
     !                    "Choose this nick name if the intersection is empty";
N*                        "After the { ... }/ for loop, the stack contains the final";
                          "nick names array. Print it separated with new lines";

इसे यहाँ ऑनलाइन आज़माएँ

— अनुकूलक
स्रोत
2
ओपी के लिए मेरी टिप्पणी देखें: यदि 'जू' या 'जुस' 'जस्ट सम नेम', 'मर्टिन बटर' शोलुड 'मा', तो 'माब', 'मार', 'मार्ब' के लिए वैध उपनाम हैं।
— edc65
@ Edc65 जो कहता है वह सच है। उसके लिए माफ़ करना। यदि आप चाहें तो मैं आपको चीजों को बदलने की अनुमति नहीं दूंगा; यह मेरी गलती थी।
— केल्विन के शौक
9

जावास्क्रिप्ट (ईएस 6) 159

ऐनक का अनुसरण करना और उदाहरण नहीं।

मैं एक मौजूदा मध्य शब्द (शुरुआत में, पहला शब्द) वाले उम्मीदवार उपनाम उत्पन्न करता हूं। करंट के पहले के शब्दों का इस्तेमाल 'जैसा है' है। वर्तमान के बाद के शब्द बिना किसी योगदान के - या सिर्फ पहला - चरित्र है। वर्तमान शब्द प्रत्येक लूप के लिए 1 और चरित्र के साथ योगदान देता है।

उदाहरण 'बस कुछ नाम' => 'बस', 'कुछ', 'नाम'
Cw Just, स्थिति 1, कोशिश J, JS, JSN
Cw Just, स्थिति 2, कोशिश Ju, JuS, JuSN
Cw Just, स्थिति 3, कोशिश Jus, JusS, JusSN
Cw Just, स्थिति 4, कोशिश Just, JustS, JustSN
अब Justसमाप्त हो गया है ,Some Cw हो जाता है, स्थिति 2 पर फिर से शुरू हो जाती है (स्थिति 1 के लिए, सभी पहले से ही आजमाए गए)

Cw Some, स्थिति 2, कोशिश Just, JustSo, JustSoN
Cw Some, स्थिति 3, कोशिश Just, JustSom, JustSomN
Cw Some, स्थिति 4, कोशिश Just, JustSome, JustSomeN
अब Some, शून्य हो जाता हैName Cw हो जाता है, स्थान 2 पर पुन: प्रारंभ

Cw Name, स्थिति 2, कोशिश Just, JustSome, JustSomeNa
Cw Name, स्थिति 3, कोशिश Just, JustSome, JustSomeNam
Cw Name, स्थिति 4, कोशिश Just, JustSome, JustSomeName
बस हो गया दोस्तों!

कोड

(q वर्तमान शब्द स्थिति है, पी टुकड़ा करने की स्थिति है)

F=l=>
  l.map(w=>{ 
    for(w=w.match(/[^ ]+/g),q=p=0;
        w.every((w,i)=>~o.indexOf(t+=i<q?w:i>q?w[0]:w.slice(0,p+1)),t='')
        &&(w[q][p++]||(p=1,w[++q]));
       );
    o.push(t)
  },o=[])&&o

फ़ायरफ़ॉक्स / फायरबग कंसोल में टेस्ट करें

F(['Martin Buttner','Doorknob','Peter Taylor','Howard','marinus'
  ,'Dennis','DigitalTrauma','David Carraher'
  ,'Martin Bitter','Martin Butter','Martin Battle','Martini Beer','Mart Beer'])

["एम", "डी", "पी", "एच", "एम", "डी", "डी", "डीसी", "एमबी", "मा", "माब", "मार", " mARB "]

— edc65
स्रोत
2

PHP, 327 289 275 274 270

अभी भी थोड़ी गोल्फिंग क्षमता हो सकती है।

while($n=fgets(STDIN)){$c=count($w=preg_split('/\s+/',trim($n)));$p=[];for($k=0;$k<$c;$p[$k]++){for($t='',$j=0;$j<$c;$j++)$t.=substr($w[$j],0,$p[$j]+1);for($j=1;$j<=strlen($t);$j++)if(!in_array($v=substr($t,0,$j),$u))break 2;$k+=$p[$k]==strlen($w[$k]);}echo$u[]=$v,'
';}
  • कार्यक्रम स्टड / स्टडआउट पर काम करता है, एएससीआईआई पर काम करता है, यूटीएफ पर छोटी गाड़ी है
  • उपयोग: php -d error_reporting=0 golfnicks.php < nicknames.txt
  • या cat <<EOF | php -d error_reporting=0 golfnicks.php+ नामों की सूची +EOF
  • वेब ब्राउज़र में फ़ंक्शन के रूप में परीक्षण करने के लिए: ब्रेकडाउन प्राप्त करें, चिह्नित की गई सभी पंक्तियों को अनकम्प्रेस्ड करें // FUNCऔर जिस पर चिह्नित किया गया है, उस पर टिप्पणी करें //PROG। प्रयत्नf(array_fill(0,21,'Just Some Name'));

टूट - फूट

#error_reporting(0);function f($a){echo'<pre>'; // FUNC
#foreach($a as$n) // FUNC
while($n=fgets(STDIN)) // PROG
{
    $c=count($w=preg_split('/\s+/',trim($n)));     // split name to words, count them
    $p=[];                                         // initialize cursors
    for($k=0;$k<$c;$p[$k]++)
    {
        for($t='',$j=0;$j<$c;$j++)$t.=substr($w[$j],0,$p[$j]+1); // concatenate prefixes
        for($j=1;$j<=strlen($t);$j++)              // loop through possible nicks
            if(!in_array($v=substr($t,0,$j),$u))   // unused nick found
                break 2;                           // -> break cursor loop
        $k+=$p[$k]==strlen($w[$k]);                // if Cw exhausted -> next word
        // strlen()-1 would be correct; but this works too)
    }
    echo$u[]=$v,'
';
}
#echo '</pre>';} // FUNC
— टाइटस
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.