एक ASCII बुनना वक्र बनाएं

Question

इस प्रश्न के उद्देश्य के लिए एक घूमने वाला वक्र वह है जो बाएं से दाएं की सामान्य दिशा का अनुसरण करता है, लेकिन बार-बार n + 1 को 90 डिग्री से बाईं ओर मोड़ता है और फिर n + 1 दाईं ओर मुड़ता है (n> 0 के लिए)।

वास्तव में मेन्डियर में ही nसेगमेंट होंगे।

के साथ बदल दिया जाता है +।

मेन्डर्स की चौड़ाई (दो के बीच की दूरी +) 3 क्षितिज पर है ( ---) और 1 ऊर्ध्वाधर पर ( |)

यहाँ 1 से 5 के आकार वाले एकल खंडों में एक वक्र वक्र है:

                                                           +-------------------+
                                                           |                   |
                                       +---------------+   |   +-----------+   |
                                       |               |   |   |           |   |
                       +-----------+   |   +-------+   |   |   |   +---+   |   |
                       |           |   |   |       |   |   |   |   |   |   |   |
           +-------+   |   +---+   |   |   +---+   |   |   |   +---+   |   |   |
           |       |   |   |   |   |   |       |   |   |   |           |   |   |
   +---+   +---+   |   +---+   |   |   +-------+   |   |   +-----------+   |   |
   |   | 1     |   | 2         |   | 3             |   | 4                 |   | 5
---+   +-------+   +-----------+   +---------------+   +-------------------+   +   

चुनौती:

दो सकारात्मक संख्याओं को देखते हुए nऔर m, mआकार के साथ एक घूमने वाली वक्र के सेगमेंट बनाएं n। आप एक पूर्ण कार्यक्रम या एक फ़ंक्शन लिख सकते हैं।

इनपुट:

n > 0 वक्र का आकार

m > 0 ड्रा करने के लिए खंडों की संख्या

आउटपुट:

एक एएससीआईआई का प्रतिनिधित्व करने वाली वक्र की वक्र।

उदाहरण:

n = 3
m = 2
   +-----------+   +-----------+   
   |           |   |           |
   |   +---+   |   |   +---+   |
   |   |   |   |   |   |   |   |
   +---+   |   |   +---+   |   |
           |   |           |   |  
-----------+   +-----------+   +

n = 2
m = 5
   +-------+   +-------+   +-------+   +-------+   +-------+   
   |       |   |       |   |       |   |       |   |       |   
   +---+   |   +---+   |   +---+   |   +---+   |   +---+   |   
       |   |       |   |       |   |       |   |       |   |   
-------+   +-------+   +-------+   +-------+   +-------+   +

n = 4
m = 4
   +---------------+   +---------------+   +---------------+   +---------------+
   |               |   |               |   |               |   |               |
   |   +-------+   |   |   +-------+   |   |   +-------+   |   |   +-------+   |
   |   |       |   |   |   |       |   |   |   |       |   |   |   |       |   |
   |   +---+   |   |   |   +---+   |   |   |   +---+   |   |   |   +---+   |   |
   |       |   |   |   |       |   |   |   |       |   |   |   |       |   |   |
   +-------+   |   |   +-------+   |   |   +-------+   |   |   +-------+   |   |
               |   |               |   |               |   |               |   | 
---------------+   +---------------+   +---------------+   +---------------+   +

जीत मापदंड:

यह कोड-गोल्फ है , इसलिए प्रत्येक भाषा में बाइट्स में सबसे छोटा कोड जीत जाता है। कृपया अपना कोड स्पष्ट करें, यदि आपके पास करने का समय है।

Comments

भविष्य की चुनौती के लिए सुझाव: पहला आंकड़ा प्लॉट करें (बढ़ती मेयर के साथ), ग्राफिकल आउटपुट की अनुमति

— लुइस मेंडो

क्या यह nमोड़ नहीं है ?

— लाईफ़डेवेन जू

@LuisMendo हाँ, जब मैंने 1-5 छवि की रचना की, तो मैंने महसूस किया कि इसके भीतर एक अच्छी चुनौती है - सकारात्मक एल की एक सूची L को देखते हुए, आकार L (i)

— गैलन इवानोव्स

@LiefdeWen यह इस बात पर निर्भर करता है कि आप कहां से गिनती शुरू करते हैं। मुझे लगता है कि यह n+1उदाहरण देखते समय, विशेष रूप से एकल खंडों के बीच ..

— गैलेन इवानोव

Answer 1

चारकोल , 52 34 33 बाइट्स

Ｎθ↶ＦＮＦ⊗⊕θ«+⊖⊗×⊕﹪κ²∨↔⁻θ∧κ⊖κ¹¿›κθ↷↶

इसे ऑनलाइन आज़माएं! लिंक कोड के वर्बोज़ संस्करण के लिए है। स्पष्टीकरण:

Ｎθ

मेन्डर के आकार को इनपुट करें।

↶

ड्राइंग के दाईं ओर से शुरू होता है और बाएं काम करता है।

ＦＮ

मेन्डरों की वांछित संख्या पर लूप।

Ｆ⊗⊕θ«

मेन्डर के खंडों पर लूप।

+

प्रिंट करें a +।

∨↔⁻θ∧κ⊖κ¹

k$n, n, n-1, n-2 ... 3, 2, 1, 1, 1, 2, 3, ... n$

⊖⊗×⊕﹪κ²...

क्षैतिज रेखाओं की लंबाई दोगुनी और चौगुनी करने के बीच वैकल्पिक है क्योंकि क्षैतिज रेखाएं दो बार लंबी होती हैं, लेकिन +उस खाते को लेने के लिए प्रिंट करने से पहले परिणाम में कमी होती है ।

¿›κθ↷↶

अगले सेगमेंट के लिए उचित रूप से पिवट करें।

Answer 2

APL (Dyalog Classic) , 108 101 95 बाइट्स

' -+|'[⊃,/⎕⍴⊂b/⍨3 1⍴⍨≢⍉b←⌽⊖2@a⌽1@(a←⊂0 0)⊖0,⊃{((4|-⊖⍉⍵),⍉¯2↑⍉⍵)⍪(2/⍪⍳2),¯2↑⍵}/⎕⍴⊂46 16 47⊤⍨3⍴4]

इसे ऑनलाइन आज़माएं!

Answer 3

पायथन 3 , 371 354 346 328 298 290 बाइट्स

import sys
v=sys.argv
s=int(v[1])
n=range
r="   |"
t="   +---"
h="-"*4
e=" "*4
def C(l):print(l*int(v[2]))
for i in n(-(-s//2)):q=s-i+~i;R=r*i;C(R+t+h*q+"+"+R);C(R+r+e*q+R+r)
for i in n(s//2):q=s//2-i;R=r*~-q;w=2*i+s%2;C(R+t+h*~-w+"+"+r*(q+((i>0)|s%2)));C(R+e*-~w+R+2*r)
C(h*~-s+"---+   +")

-20 बी सीलिंगकैट के लिए धन्यवाद

इसे ऑनलाइन आज़माएं!

पूर्व गोल्फ:

import sys

import math

def draw_curve(curve_size, curve_count, out=sys.stdout):
    for i in range(math.ceil(curve_size / 2)):
        for j in range(curve_count):
            out.write("   |" * i)
            out.write("   +---")
            out.write("----" * (curve_size - 2 * i - 1))
            out.write("+")
            out.write("   |" * i)

        out.write("\n")

        for j in range(curve_count):
            out.write("   |" * (i + 1))
            out.write("    " * (curve_size - 2 * i - 1))
            out.write("   |" * (i + 1))

        out.write("\n")

    for i in range(curve_size // 2):
        for j in range(curve_count):
            out.write("   |" * (curve_size // 2 - i - 1))
            out.write("   +---")
            out.write("----" * (2 * i - (0 if curve_size % 2 else 1)))
            out.write("+")
            out.write("   |" * (curve_size // 2 - i + (1 if i or curve_size % 2 else 0)))

        out.write("\n")

        for j in range(curve_count):
            out.write("   |" * (curve_size // 2 - i - 1))
            out.write("    " * (2 * i + (2 if curve_size % 2 else 1)))
            out.write("   |" * (curve_size // 2 - i + 1))

        out.write("\n")

    for j in range(curve_count):
        out.write("----" * (curve_size - 1))
        out.write("---+   +")

if __name__ == "__main__":
    draw_curve(int(sys.argv[1]), int(sys.argv[2]))

Answer 4

C (gcc) , 559 540 523 511 494 484 476 468 456 447 443 बाइट्स

#define S memset
l,o,p,q,r;g(c,d,n)char*d;{q=~c;for(p=n*2;q%2*p;bcopy(n*2-p--?"|   |":"+---+",d-q*l*p,5));p=n-1;c--%2?S(S(d-~l-r*!q,45,r++)-2*l,45,r=n*4-1),d[r*=q-1]='|',d[r-l]=d[r+l]=43,p&&g(c%4,memcpy(q?d+p*4+l:d-l-n*4,q?"+   |":"|   +",5),p):p&&g(c%4,d,p,d[-q]=45,d[q*=l]=43,*(d-=q*(n*2*l-l-2)-2)=32);}f(n,m){char b[(o=n-~n)*(l=n*4+5)];g(0,strcpy(S(S(b,32,l*o),45,l)+l-6,"+   +"),n);for(o*=m;b[o/m*l-1]=0,o--;o%m||puts(""))printf(b+o/m*l);}

इसे ऑनलाइन आज़माएं!

थोड़ा कम गोल्फ वाला

#define S memset
l,o,p,q,r;
g(c,d,n)char*d;{
 q=~c;
 for(p=n*2;q%2*p;bcopy(n*2-p--?"|   |":"+---+",d-q*l*p,5));
 p=n-1;
 c--%2?
  S(S(d-~l-r*!q,45,r++)-2*l,45,r=n*4-1),
  d[r*=q-1]='|',
  d[r-l]=d[r+l]=43,
  p&&
   g(c%4,memcpy(q?d+p*4+l:d-l-n*4,q?"+   |":"|   +",5),p)
 :
  p&&
   g(c%4,d,p,d[-q]=45,d[q*=l]=43,*(d-=q*(n*2*l-l-2)-2)=32);
}
f(n,m){
 char b[(o=n-~n)*(l=n*4+5)];
 g(0,strcpy(S(S(b,32,l*o),45,l)+l-6,"+   +"),n);
 for(o*=m;b[o/m*l-1]=0,o--;o%m||puts(""))
  printf(b+o/m*l);
}

Answer 5

डैश - POSIX शेल स्क्रिप्ट, 528 बाइट्स

इसे ऑनलाइन आज़माएं!

golfed:

Y=0;p(){ eval A${1}_${2}='$3';};for Z in `seq $2`;do case $1 in 1)L='r3 u1 r3 d1';;2)L='r7 u1 l3 u1 r7 d3';;3)L='r11 u3 l3 d1 l3 u3 r11 d5';;4)L='r15 u5 l7 d1 r3 d1 l7 u5 r15 d7';;5)L='r19 u7 l11 d3 r3 u1 r3 d3 l11 u7 r19 d9'
esac;for A in $L;do d(){ C=-;case "$1" in r*)X=$((X+1));;l*)X=$((X-1));;u*)Y=$((Y+1));C=\|;;d*)Y=$((Y-1));C=\|;;esac;p $X $Y $2 $C;};for I in `seq ${A#*[a-z]}`;do d $A;done;d $A +;done;done;for Y in `seq 20 -1 0`;do for X in `seq 0 99`;do eval F="\"\$A${X}_${Y}\"";L=${L}${F:- };done;echo "$L";L=;done

ungolfed:

#!/bin/sh

# helper function for emulating an array, the language does not know it
p(){ eval A${1}_${2}='$3';}
Y=0

for Z in `seq $2`;do

 # define the possible patterns:
 # list="direction+count direction+count ..."
 case $1 in
  1)L='r3 u1 r3 d1';;
  2)L='r7 u1 l3 u1 r7 d3';;
  3)L='r11 u3 l3 d1 l3 u3 r11 d5';;
  4)L='r15 u5 l7 d1 r3 d1 l7 u5 r15 d7';;
  5)L='r19 u7 l11 d3 r3 u1 r3 d3 l11 u7 r19 d9'
 esac

 for A in $L;do
  # helper function for going into needed direction
  # and plot char into array
  d(){
   C=-
   case "$1" in
    r*)X=$((X+1));;
    l*)X=$((X-1));;
    u*)Y=$((Y+1));C=\|;;
    d*)Y=$((Y-1));C=\|;;
   esac
   p $X $Y $2 $C
  }

  # write char as long as needed into array,
  # append in the same direction as last element the '+'
  for I in `seq ${A#*[a-z]}`;do
   d $A
  done
   d $A +
  done
 done

# echo the array linewise
for Y in `seq 20 -1 0`;do
 for X in `seq 0 99`;do
  eval F="\"\$A${X}_${Y}\"";L=${L}${F:- }
 done
 echo "$L";L=
done

Answer 6

पायथन 2 , 261 बाइट्स

n,m=input()
i=0;h,v,p,s=map(tuple,'hv+ ');k=p;R=[h+s]
exec"h,v=v,h;R=zip(*R)[::-1];R=[s+R[0][:-1]+k+h+p]+[s+r+s+v for r in R[1:]]+[h*2*i+h+p+s+p];i+=1;k=v;"*n
for r in[[(3-i%2*2)*{h[0]:'-',v[0]:'|'}.get(c,c)for i,c in enumerate(l)]*m for l in R]:print''.join(r)

इसे ऑनलाइन आज़माएं!

Esolanging Fruit द्वारा इस टिप से 5 बाइट्स ।