यूरिनल प्रोटोकॉल

38

पृष्ठभूमि

तथाकथित "यूरिनल प्रोटोकॉल", उस आदेश का वर्णन करता है जिसमें व्यक्तिगत मूत्रालयों को पुरुषों के बाथरूम में चुना जाता है, कई स्थानों पर चर्चा की गई है। इस xkcd ब्लॉग पोस्ट में एक संस्करण दिया गया है । यह प्रश्न थोड़ी भिन्नता की चिंता करता है:

व्यवस्था : एक पंक्ति में एन यूरिनल।
प्रोटोकॉल : प्रत्येक नया व्यक्ति उन उपयोगों में से सबसे दूर के यूरिनल में से एक का चयन करता है।

ध्यान दें कि इस स्थान पर कोई प्रतिबंध नहीं है जिस पर पहले व्यक्ति द्वारा मूत्रालय उठाया गया है।

अद्यतन : अलग-अलग तरीकों की संख्या का क्रम जिसमें n लोग n urinals का चयन कर सकते हैं 1, 2, 4, 8, 20 से शुरू होता है ... ध्यान दें कि यह OEIS A095236 के समान नहीं है , जो इसमें की तुलना में थोड़ा सख्त प्रतिबंधों का वर्णन करता है। सवाल।

कार्य

0 और 10 के बीच एक पूर्णांक n, आउटपुट (किसी भी क्रम में) को देखते हुए सभी संभव क्रम जिसमें n लोग n urinals पर कब्जा कर सकते हैं। ,, लोगों को (पहले 9 लोगों के लिए 1-9, 0 दसवें के लिए) का प्रतिनिधित्व करने वाम-पंथी मूत्रालय से शुरू अंकों के एक दृश्य के साथ: प्रत्येक आदेश अंतिम व्यवस्था के रूप में मुद्रित किया जाना चाहिए वैकल्पिक के बीच गैर-शब्दसंख्यात्क विभाजक (लेकिन उससे पहले नहीं या उसके बाद) अंक। उदाहरण के लिए, निम्नलिखित आउटपुट दोनों मान्य हैं:

>> 3
132
213
312
231

>> 4
1|3|4|2
1|4|3|2
3|1|4|2
4|1|3|2
2|3|1|4
2|4|1|3
2|3|4|1
2|4|3|1

आप STDIN (या निकटतम विकल्प), कमांड-लाइन तर्क या फ़ंक्शन तर्क के माध्यम से इनपुट लेते हुए एक प्रोग्राम या फ़ंक्शन लिख सकते हैं। परिणामों को STDOUT (या निकटतम विकल्प) पर मुद्रित किया जाना चाहिए।

स्कोरिंग

सबसे छोटा कोड जीतता है। मानक नियम और शर्तें लागू होती हैं।

code-golf  combinatorics 
— उड़ी ग्रामटा
स्रोत
1
हम्म। 5 यूरिनल के लिए मुझे यह मिलता है । इसकी जगह 16 पंक्तियाँ होनी चाहिए। क्या कोई कृपया विस्तार से बताएगा कि उनमें से कौन सा समाधान गलत है? यह वर्तमान में लागू हो रहा है: किसी भी एक यूरिनल में से किसी एक को अधिकतम दूरी के साथ चुनें।
— 16 सितंबर को knedlsepp
1
सैंडबॉक्सिंग के लिए इतना: :( कल्पना के रूप में कार्य में वर्णित है, अनुक्रम परिभाषा नहीं है। मैं जैसे ही मैं एक कंप्यूटर पर अपडेट करूँगा।
— उड़ी ग्रांट
1
@knedlsepp Rows 3, 4, 17, 18 गलत हैं। इनमें, आप व्यक्ति spanको लंबाई 1 में 3 # जगह देते हैं , जहां spanलंबाई 2 उपलब्ध है। मैं अचानक खुद को भ्रमित करने में कामयाब रहा हूं। ऐसा प्रतीत होता है कि ओपी जानबूझकर लिंक से निकला है, और इस प्रकार लिंक का पालन किया जाना चाहिए?
— ब्रेनसैट
ध्यान दें कि टास्क A095236 के समान नहीं है।
— उरई ग्रांट
क्या यह प्रारूप को [1, 3, 2] में आउटपुट करने की अनुमति है, जहां प्रत्येक ऐसे समाधान को न्यूलाइन्स द्वारा अलग किया जाता है? (इसलिए न केवल ",", बल्कि "[" और "का अंत"] "की शुरुआत भी होती है
— orlp

जवाबों:

11

पायथ, ५३ ५१

MhSm^-dG2HjbmjdmehxkbQusmm+dkfqgTdeSmgbdQUQGUtQm]dQ

यह एक पुनरावृत्त दृष्टिकोण है। स्थानों के आदेशित सेटों में आंशिक रूप से भरे हुए संभावित को देखते हुए, हम सभी इष्टतम स्थानों को देखते हैं, फिर संबंधित स्थान सूची बनाते हैं, और दोहराते हैं।

परिणाम फॉर्म में उत्पन्न होते हैं [<first person's location>, <second person's location> ...], फिर इसे वांछित प्रारूप में बदल दिया जाता है। MhSm^-dG2Hएक सहायक फ़ंक्शन को परिभाषित करता है जो किसी दिए गए स्टाल से एक कब्जे वाले स्टाल (चुकता) तक न्यूनतम दूरी पाता है। मनोरंजक रूप से, विभाजक स्वतंत्र है।

उदाहरण चलाते हैं।

स्पष्टीकरण:

सबसे पहले, हेल्पर फ़ंक्शन g, जो G के बीच न्यूनतम वर्ग दूरी और H के किसी भी मान का पता लगाता है।

MhSm^-dG2H
M             def g(G,H): return
 hS           min(                         )
   m     H        map(lambda d:        , H) 
    ^-dG2                      (d-G)**2

इसके बाद, हम उस मूत्रालय और किसी भी कब्जे वाले मूत्रालय के बीच न्यूनतम वर्ग दूरी के मूत्रल स्थानों पर अधिकतम पाते हैं:

( Qइनपुट है।)

eSmgbdQ
eS          max(                                   )
  m   Q         map(lambda b:      , range(len(Q)))
   gbd                       g(b,d)

dइस मामले में कब्जे वाले मूत्रालयों की सूची है, जबकि यह bमूत्रल स्थानों पर स्थित है।

इसके बाद, हम उन सभी मूत्रल स्थानों का पता लगाते हैं जिनके निकटतम कब्जे वाले मूत्रालय से न्यूनतम वर्ग दूरी ऊपर पाए गए अधिकतम मूल्य के बराबर है।

fqgTdeSmgbdQUQ
f           UQ    filter(lambda T:                             , range(len(Q)))
 qgTd                             g(T,d) ==
     eSmgbdQ                                <value found above>

इसके बाद, हम ऊपर पाए गए मूत्रल स्थानों को जोड़कर बनाई गई मूत्रल स्थान सूचियों को उत्पन्न करेंगे d। हम मूत्रल स्थानों की प्रत्येक पिछली सूची के लिए ऐसा करेंगे, इस प्रकार सूची को लंबाई से Nबढ़ाकर N+1। Gदी गई लंबाई के कब्जे वाले मूत्रल स्थानों की कानूनी सूचियों की सूची है।

smm+dkfqgTdeSmgbdQUQG
sm                  G    sum(map(lambda d:                               ,G)
  m+dk                                   map(lambda k:d+[k],            )
      fqgTdeSmgbdQUQ                                        <above list>

अगला, हम उपर्युक्त अभिव्यक्ति को बार-बार लागू करेंगे, कब्जे वाले मूत्रल स्थानों की सूची की पूरी सूची तैयार करने के लिए। uकम करने का कार्य, ठीक यही करता है, क्योंकि इसके दूसरे तर्क में कई बार तत्व होते हैं।

usmm+dkfqgTdeSmgbdQUQGUtQm]dQ
usmm+dkfqgTdeSmgbdQUQG           reduce(lambda G,H: <the above expression)
                      UtQ        repeat Q-1 times
                         m]dQ    starting with [[0], [1], ... [Q-1]].

ऊपर प्रतिनिधित्व है, जो चला जाता है से कन्वर्ट [<1st location>, <2nd location>, ... ],, वांछित उत्पादन फार्म के लिए [<person in slot 1>, <person in slot 2>, ... ]। फिर, आउटपुट फॉर्म आउटपुट स्ट्रिंग में शामिल हो जाता है और मुद्रित होता है। मुद्रण निहित है।

jbmjdmehxkbQ
jbm             '\n'.join(map(λ k:                                    ,<above>)
   jdm     Q                      ' '.join(map(λ b:                ,Q)
        xkb                                        b.index(k)
      eh                                                     +1 %10
— isaacg
स्रोत
दमनित, मुझे पायथ में पुनरावर्ती समाधान लिखना बंद कर देना चाहिए। मैं हमेशा बाहर निकलता हूं: पी
— ऑरलपी
kajsdlkas^23asdjkla1lasdkj~JZasSSA- लगभग आधा आकार।
— ऑप्टिमाइज़र
जब मैं कम व्यस्त होता हूं, तो मैं एक स्पष्टीकरण जोड़ूंगा।
— इसाॅक
8

पायथ, 75 71 67

DcGHFk_UQJf!s:GeS,0-TkhS,h+TklGUQIJRsmcX>G0dhHhHJ)R]Gjbmjdmebkcm0Q0

पुनरावर्ती दहनशील समाधान।

यह इस पायथन समाधान से काफी प्रत्यक्ष अनुवाद है:

N = int(input())

def gen(l, p):
    for d in reversed(range(N)):
        s = []
        for i in range(N):
            if not sum(l[max(0,i-d):min(i+d+1, len(l))]):
                s.append(i)

        if s:
            r = []
            for possib in s:
                j = l[:]
                j[possib] = p+1
                r += gen(j, p+1)

            return r

    return [l]

print("\n".join(" ".join(str(x % 10) for x in sol) for sol in gen([0] * N, 0)))
— orlp
स्रोत
वह कैसे काम करता है? "पुनरावर्ती दहनशील समाधान" से अधिक विस्तार से।
— tbodt
@tbodt ने पायथन कोड जोड़ा, जिसे मैंने पायथ में अनुवाद करने से पहले लिखा था।
— orlp
5

सी, 929 878 बाइट्स

यह एक राक्षस है, दोस्तों। माफ़ कीजिये।

typedef unsigned long U;typedef unsigned char C;U f(int*u,n){C c[8],a[8];*(U*)(&c)=-1;int i,b=0,l=-9,s=-2,f=0,d;for (i=0; i<n; i++) {if (!u[i]&&s<0)s=i,l=0;if(!u[i])l++;if(u[i]&&s>=0){if(!s)l=2*l-1;d=(l-1)/2;if(b<d)*(U*)(a)=0,*(U*)(c)=-1,*c=s,*a=l,f=1,b=d;else if(b==d)c[f]=s,a[f++]=l;s=-1;}}if(s>=0&&l){l=2*l-1;d=(l-1)/2;if(b<d)*(U*)(c)=-1,*c=s,*a=l,f=1,b=d;else if(b==d)c[f]=s,a[f++]=l;}d=f;for(i=0;i<d;i++){if((c[i]+1)&&c[i]){if(c[i]+a[i]==n)c[i]=n-1;else{if(!(a[i]%2))c[f++]=b+c[i]+1;c[i]+=b;}}}return*(U*)c;}void P(int*u,n,i,c,m){for(i=0;i<n;i++){if(!u[i])c++;if(u[i]>m)m=u[i];}if(!c){for(i=0;i<n;i++)printf("%d",u[i]==10?0:u[i]);printf("\n");}else{int s[8][n];for(i=0;i<8;i++)for(c=0;c<n;c++)s[i][c]=u[c];U t=f(u,n);C*H=&t;for(i=0;i<8;i++)if((C)(H[i]+1))s[i][H[i]]=m+1,P(s[i],n,0,0,0);}}void L(n){int u[n],i,j;for(i=0;i<n;i++){for(j=0;j<n;j++)u[j]=j==i?1:0;P(u,n,0,0,0);}}

परिभाषित करता है 3 काम करता है, f(int*,int), P(int*,int,int,int,int), और L(int)। कॉल करें L(n), और यह STDOUT को आउटपुट करता है।

इसके लिए आउटपुट n=5:

14352
15342
31452
31542
41352
51342
41532
51432
24153
25143
34152
35142
23415
23514
24513
25413
24315
25314
24351
25341

अद्यतन: मैंने विभाजकों को हटा दिया और कोड को ठीक कर दिया। पुराना कोड न केवल n = 7 + के लिए विफल रहा, बल्कि n = 10 (oops!) के लिए कुछ भी आउटपुट करने में विफल रहा। मैंने इस गुच्छा का अधिक अच्छी तरह से परीक्षण किया है। यह अब n = 13 तक इनपुट का समर्थन करता है (हालांकि इसे हेक्साडेसिमल में प्रिंट "%d"करना चाहिए "%x")। इनपुट का आकार निर्भर करता है sizeof(long)और इसे 8व्यवहार में माना जाता है ।

यहां बताया गया है कि यह कैसे काम करता है, और क्यों इस तरह के एक अजीब प्रतिबंध मौजूद हैं:

ये बहुत उपयोग किए गए थे, इसलिए हम उन्हें युगल बाइट को बचाने के लिए परिभाषित करते हैं:

typedef unsigned long U; typedef unsigned char C;

यहाँ है f:

U f(int*u,n){
    C c[8],a[8];
    *(U*)(&c)=-1;
    int i,b=0,l=-9,s=-2,f=0,d;
    for (i=0; i<n; i++) {
        if (!u[i]&&s<0)
            s=i,l=0;
        if(!u[i])
            l++;
        if(u[i]&&s>=0){
            if(!s)
                l=2*l-1;
            d=(l-1)/2;
            if(b<d)
                *(U*)(a)=0,
                *(U*)(c)=-1,
                *c=s,
                *a=l,
                f=1,
                b=d;
            else if(b==d)
                c[f]=s,a[f++]=l;
            s=-1;
        }
    }
    if(s>=0&&l){
        l=2*l-1;
        d=(l-1)/2;
        if(b<d)
            *(U*)(c)=-1,
            *c=s,
            *a=l,
            f=1,
            b=d;
        else if(b==d)
            c[f]=s,a[f++]=l;
    }
    d=f;
    for(i=0;i<d;i++){
        if((c[i]+1)&&c[i]){
            if(c[i]+a[i]==n)
                c[i]=n-1;
            else{
                if(!(a[i]%2))
                    c[f++]=b+c[i]+1;
                c[i]+=b;
            }
        }
    }
    return*(U*)c;
}

fआकार के पूर्णांकों की एक सरणी लेता है n, और nस्वयं। यहां एकमात्र चतुर बिट यह है कि यह एक रिटर्न देता है unsigned long, जिसे char[8]कॉलिंग फ़ंक्शन द्वारा परिवर्तित किया जाता है । एरे में प्रत्येक वर्ण इस प्रकार या तो 0xFFएक इंडेक्स के लिए या अगले व्यक्ति के लिए एक वैध मूत्रालय की ओर इशारा करते हुए सेट किया गया है। के लिए n<10, हम अधिक से अधिक 5 पकड़ के लिए हर वैध मूत्रालय अगले व्यक्ति उपयोग कर सकते हैं बाइट्स कभी नहीं की जरूरत है।

यहाँ है P:

void P(int*u,n,i,c,m){
    for(i=0;i<n;i++){
        if(!u[i])c++;
        if(u[i]>m)m=u[i];
    }
    if(!c){
        for(i=0;i<n;i++)
            printf("%d",u[i]==10?0:u[i]);
        printf("\n");
    }
    else{
        int s[8][n];
        for(i=0;i<8;i++)
            for(c=0;c<n;c++)
                s[i][c]=u[c];
        U t=f(u,n);
        C*H=&t;
        for(i=0;i<8;i++)
            if((C)(H[i]+1))
                s[i][H[i]]=m+1,P(s[i],n,0,0,0);
    }
}

Puआकार की एक सरणी लेता है nजिसमें वास्तव में एक तत्व निर्धारित होता है 1, और बाकी सभी होते हैं 0। यह फिर पाता है और हर क्रमचय को पुनरावर्ती रूप से प्रिंट करता है।

यहाँ है L:

void L(n){
    int u[n],i,j;
    for(i=0;i<n;i++){
        for(j=0;j<n;j++)
            u[j]=j==i?1:0;
        P(u,n,0,0,0);
    }
}

Lबस P nहर बार अलग-अलग शुरुआती स्थितियों के साथ बार कॉल करें ।

रुचि के लिए, यह (कम golfed) fमें अनुक्रम उत्पन्न होगा A095236 ।

U f(int*u,n) {
    C c[8];
    *(U*)(&c) = -1;
    int i,b=0,l=-10,s=-2,f=0,d;
    for (i=0; i<n; i++) {
        if (!u[i]&&s<0) {
            s=i,l=0;
        }
        if(!u[i]){
            l++;
        }
        if (u[i]&&s>=0) {
            if (!s) {
                l=2*l-1;
            }
            if (b<l) {
                *(U*)(&c)=-1;
                c[0]=s;
                f=1;
                b=l;
            }
            else if (b==l)
                c[f++]=s;
            s=-1;
        }
    }
    if (s>=0&&l) {
        l=2*l-1;
        if (b<l) {
            *(U*)(&c)=-1;
            c[0]=s;
            f=1;
            b=l;
        }
        else if (b==l)
            c[f++]=s;
    }
    d=f;
    for (i=0; i<d; i++) {
        if ((c[i]+1)&&c[i]) {
            if (c[i]+b==n) {
                c[i]=n-1;
            }
            else{
                if (!(b%2)) {
                    c[f++]=(b-1)/2+c[i]+1;
                }
                c[i]+=(b-1)/2;
            }
        }
    }
    return *(U*)c;
}
— BrainSteel
स्रोत
"4" ... "शुरू में कल्पना के खिलाफ लगता है: यदि पहली संख्या 1 है, तो अगला 5 होना चाहिए
— एनातोलीग
2
@anatolyg No. यहाँ "1 4" कैसे हो सकता है की चरण-दर-चरण व्याख्या है: gist.github.com/orlp/a5706ba664b70209b48a
— orlp
याद रखें, विभाजक वैकल्पिक हैं। आप% d के बाद स्थान को हटाकर 1 बाइट (!) बचा सकते हैं
— उड़ी ग्रांट
@UriZarfaty धन्यवाद! दरअसल, यहां एक टन बाइट बचाई जानी है। मैं वर्तमान में एक बेहतर समाधान और स्पष्टीकरण लिख रहा हूं।
— ब्रेनसैट
@yo 'मुझे लगता है कि आप आउटपुट को थोड़ा भ्रमित कर रहे हैं। 14352साधन # 1 के आउटपुट ने सबसे बाईं ओर का मूत्रालय चुना। व्यक्ति # 2 ने सबसे सही में से एक को चुना, जिसने फिर # 3 को बीच में मजबूर कर दिया। यह अगले मूत्रालय की संख्या नहीं है जो आउटपुट होना चाहिए।
— ब्रेनसैट
4

अजगर 2, 208

n=input()
r=range(n)
l=[0]*n
def f(a,d=-1):
 if a>n:print''.join(l);return
 for i in r:
  t=min([n]+[abs(i-j)for j in r if l[j]])
  if t==d:p+=[i]
  if t>d:p=[i];d=t
 for i in p:l[i]=`a%10`;f(a+1);l[i]=0
f(1)

पुनरावर्ती दृष्टिकोण।

— Jakube
स्रोत
4

जावास्क्रिप्ट (ईएस 6) 153 160 169

संपादित करें Math.min का उपयोग करके (निश्चित रूप से) अधिकतम दूरी: सुव्यवस्थित कोड और 16 बाइट्स सहेजे गए।

पुनरावर्ती खोज, n> 10 के साथ काम कर सकती है, बस% 10 को हटा दें (और प्रतीक्षा करने के लिए तैयार रहें जबकि कंसोल अपने सभी आउटपुट को अनियंत्रित करता है)।

मैं स्लॉट का उपयोग करने के लिए एक एकल सरणी का उपयोग करता हूं (सकारात्मक संख्याएं) या निकटतम स्लॉट से वर्तमान दूरी (नकारात्मक संख्याएं <और >कोड में स्वैप की जाती हैं)।

F=n=>{(R=(m,d,t,x=Math.min(...d=m?
  d.map((v,i)=>(c=i<t?i-t:t-i)?v<c?c:v:m%10)
  :Array(n).fill(-n)))=>
x<0?d.map((v,i)=>v>x||R(-~m,d,i)):console.log(d+[]))()}

Ungolfed

F=n=>{
  var R=(m, // current 'man', undefined at first step
   d, // slot array
   t // current position to fill
  ) =>
  {
    if (m) // if not at first step
    {
      d[t] = m % 10; // mark slot in use, (10 stored as 0 )
      d = d.map((v,i) => { // update distances in d[] 
        var c = i<t ? i-t : t-i; // distance from the current position (negated)
        return v < c ? c : v; // change if less than current distance
      });
    }
    else
    {
      d = Array(n).fill(-n) // fill distance array with max at first step
      // negative means slot free, value is the distance from nearest used slot
      // >= 0 means slot in use by man number 1..n 
    }
    var x = Math.min(...d);
    if ( x < 0 ) // if there is still any free slot
    {
      d.forEach((v,i) => { // check distance for each slot 
        if (v <= x) // if slot is at max distance, call recursive search
          R(-~m, [...d], i) // ~- is like '+1', but works on undefined too
      });
    }
    else
    {
      console.log(d+[]); // no free slot, output current solution
    }
  }

  R() // first step call
}

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

F(5)

1,4,3,5,2
1,5,3,4,2
3,1,4,5,2
3,1,5,4,2
4,1,3,5,2
5,1,3 , 4,2
4,1,5,3,2
5,1,4,3,2
2,4,1,5,3
2,5,1,4,3
3,4,1,5,2
3 , 5,1,4,2
2,3,4,1,5
2,3,5,1,4
2,4,3,1,5
2,5,3,1,4,4,4,34
, 1,3
2,5,4,1,3
2,4,3,5,1
2,5,3,4,1

— edc65
स्रोत
1

MATLAB, 164

function o=t(n),o=mod(r(zeros(1,n)),10);function o=r(s),o=[];d=bwdist(s);m=max(d);J=find(d==m);if~d,o=s;J=[];end,n=max(s)+1;for j=J,o=[o;r(s+n*(1:numel(s)==j))];end
— knedlsepp
स्रोत
1

पर्ल, 174

बहुत कम नहीं, लेकिन मजेदार। मैं use feature 'say';बाइट कुल की ओर नहीं गिन रहा हूं ।

$n=pop;@u="_"x$n." "x$n."_"x$n;for$p(1..$n){@u=map{my@r;for$x(reverse 0..$n){
s/(?<=\D{$x}) (?=\D{$x})/push@r,$_;substr $r[-1],pos,1,$p%10/eg and last;
}@r}@u}y/_//d&&say for@u

डी-golfed:

$n = pop; # Get number of urinals from commandline
@state = ( "_" x $n . " " x $n . "_" x $n );

for my $person (1 .. $n) {
  # Replace each state with its list of possible next states.
  @state = map {
    my @results;
    for my $distance (reverse 0 .. $n) {
      # If there are any spots with at least $distance empty on
      # both sides, then add an entry to @results with the current
      # $person number in that spot, for each spot. Note that this
      # is only used for its side-effect on @results; the modified $_
      # is never used.
      s{
        (?<=\D{$distance})
        [ ]
        (?=\D{$distance})
      }{
        push @results, $_;
        substr $results[-1], pos(), 1, $person % 10;
      }xeg
      # If we found any spots, move on, otherwise try
      # with $distance one lower.
      and last;
    }
    # New state is the array we built up.
    @results;
  } @state;
}

# After adding all the people, remove underscores and print the results
for my $result (@state) {
  $result =~ tr/_//d;
  say $result;
}
— हॉब्स
स्रोत
1

सी, 248 बाइट्स

यह कोड वांछित परिणाम उत्पन्न करने के लिए एक पुनरावर्ती अल्गोरिथम का उपयोग करता है।

void q(char*f,int l,int d,char*o){char*c=f;while(f<c+l){if(!*f){sprintf(o+4*d,"%03i,",f-c);*f=1;q(c,l,d+1,o);*f=0;}f++;}if(d+1==l){o[4*d+3]=0;printf("%s\n",o);}}int main(int i,char**v){int k=atoi(v[1]);char*c=calloc(k,5),*o=c+k;q(c,k,0,o);free(c);}

विस्तारित:

void printperms(char* memory,int length,int offset,char*output)
{
    char*temp_char=memory;
    while(memory<temp_char+length)
    {
        if(!*memory)
        {
            sprintf(output+4*offset,"%03i,",memory-temp_char);
            *memory=1;
            printperms(temp_char,length,offset+1,output);
            *memory=0;
        }
        memory++;
    }
    if(offset+1==length)
    {
        output[4*offset+3]=0;
        printf("%s\n",output);
    }
}

int main(int i,char**v)
{
    int argument=atoi(v[1]);
    char*t=calloc(argument,5),*output=t+argument;
    printperms(t,argument,0,output);
    free(t);
}
— Gerwin
स्रोत
1

बैश, 744 674 बाइट्स

यह अभी भी बहुत लंबा है :)। मैं पुनरावृत्ति के प्रत्येक चरण में सबसे दूर के मूत्रालयों को खोजने के लिए मूत्रल और एक बाढ़ एल्गोरिथ्म की पंक्ति का प्रतिनिधित्व करने के लिए एक स्ट्रिंग का उपयोग करता हूं। अनलॉक्ड कोड लगभग स्व-व्याख्यात्मक है। यूरिनल की संख्या कीबोर्ड से पढ़ी जाती है।

कोड (गोल्फ):

read l;u=----------;u=-${u::$l}-
s(){ u=${u:0:$1}$2${u:$((1+$1))};}
m(){ local u=$1;a=();while :;do [ 0 -ne `expr index - ${u:1:$l}` ]||break;t=$u;y=$u;for i in `seq $l`;do [ ${y:$i:1} = - ]||{ s $(($i-1)) X;s $(($i+1)) X;};done;done;while :;do k=`expr index $t -`;[ 0 != $k ]||break;t=${t:0:$(($k-1))}X${t:$k};if [ 1 -ne $k ]&&[ $(($l+2)) -ne $k ];then a+=($(($k-1)));fi;done;}
e(){ local u f b v;u=$1;f=$2;if [ 1 -eq $l ];then echo 1;return;fi;if [ 1 = $f ];then for i in `seq $l`;do v=$u;s $i 1;e $u 2;u=$v;done;else m $u;b=(${a[@]});if [ 0 -eq ${#b} ];then echo ${u:1:$l};else for i in ${b[@]};do v=$u;s $i $(($f%10));e $u $(($f+1));u=$v;a=(${b[@]});done;fi;fi;}
e $u 1

उपयोग:

$ source ./script.sh
input number of urinals from keyboard

और यह ungolfed जाता है:

read l  # read number of urinals
u=----------
u=-${u:0:$l}- #row is two positions longer (it will be helpful when finding the most distant urinals)

# So, for the end, with 6 men, u might look like this:
# -143652-

# subu no fellow_no => set urinal [number] occupied by [fellow_no]
# this is just convenience for resetting a character inside a string
subu(){ u=${u:0:$1}$2${u:$((1+$1))};}


# this will be iterated in longest to find the remotest places:
# -1---3---2- => spreadstep => X1X-X3X-X2X => spreadstep => X1XXX3XXX2X
# see longest() to get more explanation.
spreadstep()
{
    y=$u
    for i in `seq 1 $l`
    do
    if [ "${y:$i:1}" != "-" ]
    then
        subu $(($i-1)) X
        subu $(($i+1)) X
    fi
    done
}

# Find the urinals with the longest distance. It uses spreadstep() - see above.
# -1---3---2- => spreadstep => X1X-X3X-X2X => spreadstep => X1XXX3XXX2X
# ---> last state with free ones was X1X-X3X-X2X ,
#                                     123456789
# free urinals are no. 3 and no. 7 => save them to arr
longest()
{
    local u=$1
    arr=()
    while true
    do
        if [ 0 -eq `expr index - ${u:1:$l}` ]
        then
            break
        fi
        save=$u
        spreadstep
    done

    while true
    do
        index=`expr index $save -`
        if [ 0 == $index ]
        then
            break
        fi

        save=${save:0:$(($index-1))}X${save:$index}
        if [ 1 -ne $index ] && [ $(($l+2)) -ne $index ]
        then
            arr+=($(($index-1)))
        fi
    done
}

# main function, recursively called
# the first fellow may take any of the urinals.
# the next fellows - only those with the longest distance.
placements_with_start()
{
    local u=$1
    local fellow=$2
    if [ 1 -eq $l ] # special case - there is no 2nd fellow, so below code would work incorrect 
    then
        echo "1"
        return
    fi
    if [ 1 == $fellow ]       # may take any of urinals
    then
        for i in `seq 1 $l`
        do
            local _u=$u
            subu $i 1                     # take the urinal
            placements_with_start $u 2    # let the 2nd fellow choose :)
            u=$_u
        done
    else
        longest $u   # find the ones he can take
        local _arr=(${arr[@]})
        if [ 0 -eq ${#_arr} ]
        then
            echo ${u:1:$l}    # no more free urinals - everyone took one - print the result
        else
            for i in ${_arr[@]}
            do
                local _u=$u
                subu $i $(($fellow % 10))                # take urinal
                placements_with_start $u $(($fellow+1))  # find locations for for next fellow
                u=$_u
                arr=(${_arr[@]})
            done
        fi
    fi
}

placements_with_start $u 1
— pawel.boczarski
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.