কনসেন্ট্রিক এএসসিআইআই হেক্সাগন আঁকুন


15

সংক্ষিপ্ততম প্রোগ্রামটি লিখুন যা স্বতন্ত্র ধনাত্মক পূর্ণসংখ্যার একটি সেট নেয় এবং স্ল্যাশ, আন্ডারস্কোর, স্পেস এবং নিউলাইনগুলি থেকে তৈরি সেই দিকের দৈর্ঘ্যের সাথে কেন্দ্রীক হেক্সাগনগুলির একটি ASCII রেন্ডারিং আউটপুট করে ।

Https://mothereff.in/byte-counter জয় হিসাবে গণনা করা বাইট মধ্যে সংক্ষিপ্ততম প্রোগ্রাম ।

উদাহরণ

(তারা কম লাইনের ব্যবধানের সাথে আরও ভাল দেখায়))

যদি ইনপুট হয় 1তবে আউটপুটটি পাশের দৈর্ঘ্য 1 সহ ষড়ভুজ হওয়া উচিত:

 __ 
/  \
\__/

লক্ষ্য করুন যে হেক্সাগনের শীর্ষ এবং নীচে দুটি আন্ডারস্কোর ব্যবহার করা হয়েছে যাতে এটি আরও ভাল অনুপাতে থাকে।

সাধারণভাবে, N হেক্সাগন আকারে প্রতিটি কোণে N স্ল্যাশ এবং 2 * N উপরের এবং নীচে উভয়দিকে আন্ডারস্কোর রয়েছে।

যদি ইনপুট হয় 1 2তবে আউটপুটটি পাশের দৈর্ঘ্য 1 এবং 2 সহ কেন্দ্রীভূত হেক্সাগন হওয়া উচিত:

  ____
 / __ \
/ /  \ \
\ \__/ /
 \____/

যদি ইনপুট হয় 1 3তবে আউটপুটটি হওয়া উচিত:

   ______
  /      \
 /   __   \
/   /  \   \
\   \__/   /
 \        /
  \______/

যদি ইনপুট হয় 1 3 2তবে আউটপুটটি হওয়া উচিত:

   ______
  / ____ \
 / / __ \ \
/ / /  \ \ \
\ \ \__/ / /
 \ \____/ /
  \______/

প্রভৃতি

আই / ও বিধি

ইনপুট অবশ্যই কমান্ড লাইন বা স্টিডিন থেকে আসতে হবে তবে যে কোনও বিন্যাসে সবচেয়ে সুবিধাজনক হতে পারে।

উদাহরণস্বরূপ, যদি আপনি একটি কমান্ড লাইন আর্গুমেন্ট প্রতিটি নম্বর দিতে পারে: > myprogram 1 3 2, অথবা আপনি একটি পূর্ববিন্যাসিত তালিকা হিসাবে নম্বর ইনপুট ব্যবহারকারী চটপট পারে: [1, 3, 2]

আউটপুট অবশ্যই stdout বা আপনার ভাষার নিকটতম সমতুল্য যেতে হবে।

অতিরিক্ত বিধি

  • ইনপুট সর্বদা স্বতন্ত্র ইতিবাচক পূর্ণসংখ্যার একটি সেট হবে, অগত্যা কোনও ক্রমে নয়
  • আউটপুট অবশ্যই ...
    • /\ _এবং নিউলাইনগুলি ছাড়াও কোনও অক্ষর নেই ।
    • কোনও চলার স্থান বা অপ্রয়োজনীয় নেতৃস্থানীয় স্থান নেই।
    • না বিদেশী নেতৃস্থানীয় নতুন লাইন ধারণ কিন্তু এক থাকতে পারে ঐচ্ছিক চিহ্ন সম্পর্কে newline।
  • যদি কিছুই ইনপুট না থাকে তবে আউটপুট কিছুই না (সম্ভবত একটি নতুন লাইন বাদে)।
  • যদি এটি আপনাকে সহায়তা করে তবে ধরে নিতে পারেন ইনপুট পূর্ণসংখ্যা 2 16 এরও কম ।

না 1অন্তরতম বা দূরতম ষড়ভূজ পড়ুন?
নিনজাবার্মনকি

@ এসএলএসএল 1(বা যে কোনও সংখ্যা) এর দৈর্ঘ্য 1 এর সাথে ষড়্ভুজকে বোঝায় ((যে 1 স্ল্যাশ = 2 আন্ডারস্কোরের সতর্কীকরণের সাথে)) সুতরাং 1সর্বদা অভ্যন্তরীণ ষড়্ভুজকে বোঝায়।
ক্যালভিনের

উত্তর:


4

সিজেম, 148 116 109 বাইট

এটি আমার প্রত্যাশার চেয়ে অনেক বেশি সময় নিয়েছে। মূলত, আমি কেবল ডায়মন্ডের চ্যালেঞ্জগুলির মতো, উপরের বাম চতুর্ভুজটিকে পুনরাবৃত্তভাবে তৈরি করতে চেয়েছিলাম এবং তারপরে বাকী অংশটি মিররিং থেকে পেয়েছি। তবে আমি লক্ষ্য করিনি যে আন্ডারস্কোরগুলি উপরের এবং নীচের অর্ধেকের মধ্যে মিরর প্রতিসাম্যকে মানায় না। সুতরাং আমি ডান অর্ধেকটি পুনরাবৃত্তভাবে উত্পন্ন করতে এবং তারপরে কেবল একবার (বাম দিকে) আয়না করতে হয়েছিল most

S]2[l~]:(f#:+2bW%{_,2/~:T;{IT):T1<'\'/?S?S++}%__,2/=,2/I'_S?*_S+a@+\I'/S?S++a+}fI{)T)2*2$,-*1$W%"\/"_W%er@N}/

এটি এখানে পরীক্ষা করুন।

একটি ফিবোনাচি-এর উদাহরণ:

8 3 1 5 2
        ________________
       /                \
      /                  \
     /     __________     \
    /     /          \     \
   /     /   ______   \     \
  /     /   / ____ \   \     \
 /     /   / / __ \ \   \     \
/     /   / / /  \ \ \   \     \
\     \   \ \ \__/ / /   /     /
 \     \   \ \____/ /   /     /
  \     \   \______/   /     /
   \     \            /     /
    \     \__________/     /
     \                    /
      \                  /
       \________________/

ব্যাখ্যা:

উপরে বর্ণিত হিসাবে, আমি ডান অর্ধটি পুনরাবৃত্তভাবে তৈরি করে শুরু করি। এটি, প্রথমদিকে গ্রিডে আমি কেবল একটি একক স্থান পেয়েছি এবং তারপরে প্রতিটি সম্ভাব্য রিংয়ের জন্য, আমি হয় বিদ্যমান গ্রিডকে ফাঁকা জায়গায় বা একটি নতুন আধা-ষড়্চাগ্রাকে ঘিরে রেখেছি।

এটি শেষ হয়ে গেলে, আমি প্রতিটি লাইন বাম দিকে আয়না করি এবং সঠিক সারিবদ্ধকরণের জন্য নেতৃস্থানীয় স্পেস দিয়ে প্যাড করি। কোডটির একটি বিচ্ছেদ এখানে রয়েছে:

"Prepare the input and the grid:";
S]2[l~]:(f#:+2bW%
S]                "Push string with a space and wrap it in an array. This is the grid.";
  2               "Push a 2 for future use.";
   [l~]           "Read and evaluate the input, wrap it in an array.";
       :(         "Decrement each number by 1.";
         f#       "Map each number i to 2^i.";
           :+     "Sum them all up.";
             2b   "Get the base two representation.";
               W% "Reverse the array.":
"At this point, the stack has the proto-grid at the bottom, and an array of 1s and
 0s on top, which indicates for each hexagon if it's present or not.";

"Next is a for loop, which runs the block for each of those 0s and 1s, storing the
 actual value in I. This block adds the next semi-hexagon or spaces.";
{ ... }fI

"First, append two characters to all existing lines:";
_,2/~:T;{IT):T1<'\'/?S?S++}%
_                            "Duplicate the previous grid.";
 ,2/                         "Get its length, integer-divide by 2.";
    ~:T;                     "Get the bitwise complement and store it in T. Discard it.";
        {                 }% "Map this block onto each line of the grid.";
         I                   "Push the current hexagon flag for future use.";
          T):T               "Push T, increment, store the new value.";
              1<'\'/?        "If T is less than 1, push \, else push /.";
                     S?      "If the current flag is 0, replace by a space.";
                       S++   "Append a space and add it to the current line.";

"So for hexagons this appends '\ ' to the top half and '/ ' to the bottom half.
 For empty rings, it appends '  ' to all lines.";

"Now add a new line to the top and the bottom:"    
__,2/=,2/I'_S?*_S+a@+\I'/S?S++a+
__                               "Get two copies of the grid.";
  ,2/                            "Get its length, integer-divide by 2.";
     =                           "Get that line - this is always the middle line.";
      ,2/                        "Get ITS length, integer'divide by 2.";
         I'_S?*                  "Get a string of that many _ or spaces depending on the 
                                  current flag.";
               _S+               "Duplicate and a space.";
                  a@+            "Wrap in an array, pull up the grid, and prepend the line.";
                     \           "Swap with the other copy.";
                      I'/S?      "Choose between / and a space depending on the flag.";
                           S++   "Append a space, and add both characters to the line.";
                              a+ "Wrap in an array, and append line to the grid.";

"This is all. Rinse and repeat for all rings. The result will look something like this:

_____ 
     \ 
___   \ 
__ \   \ 
_ \ \   \ 
 \ \ \   \ 
_/ / /   / 
__/ /   / 
___/   / 
      / 
_____/ 

Note that there are still trailing spaces.";

"Finish up all lines. These will not be joined together any more, but simply left
 on the stack in pieces to printed out back-to-back at the end of the program.
 The following runs the given block for each line:";
{ ... } /

"This generates the necessary indentation, then mirrors the lines and puts them
 in the right order:"
)T)2*2$,-*\_W%"\/"_W%er\N
)                         "Slice off that trailing space, but leave it on the stack.";
 T                        "Remember T? That still has something like the the size of
                           the grid from the last iteration. In fact it's N-1, where
                           N is the largest visible hexagon. We can use that to figure
                           out how many spaces we need.";
  )2*                     "Increment and double.";
     2$                   "Copy the current line.";
       ,-                 "Subtract its length from 2*N.";
         *                "Repeat the space that often. This is our indentation.";
          \_              "Swap with the line and duplicate.";
            W%            "Reverse the line.";
              "\/"_W%er   "Replace slashes with backslashes and vice versa.";
                       \  "Swap with the original line.";
                        N "Push a line break.";

5

পাইথন - 251, 240, 239 228

l=input()+[0];m=max(l);A=abs;R=range
for j in R(2*m+1):print''.join([[' \\'[(A(j-i+m-1)/2.in l)*(2*m-i)/(j-m-.5)>1],'/'][(A(3*m-i-j)/2.in l)*(i-m-j+.5)/(j-.5-m)>0],'_'][(A(m-j)in l)*(A(2*m-i-.5)<A(m-j))]for i in R(4*m)).rstrip()

বিকল্প পদ্ধতির (251):

l=input()+[0]
l.sort()
m=max(l)
M=2*m
s=[[' ']*m*4for j in' '*(M+1)]
for i in l:
 I=2*i;s[m-i][M-i:M+i]=s[m+i][M-i:M+i]='_'*I
 for k in range(i):K=k+1;s[m-k][M-I+k]=s[m+K][M+I-K]='/';s[m-k][M+I-K]=s[m+K][M-I+k]='\\'
for t in s:print''.join(t).rstrip()

3

এপিএল (ইউটিএফ -8 এ 222 বাইট)

(এবং ১৩৩ টি চর)

যেহেতু এই প্রশ্নটি ইউটিএফ 8 উপস্থাপনে বিশেষত পরিমাণে বাইটের জন্য জিজ্ঞাসা করে, তাই আমাকে আসলে এটি কিছুটা উনলফুল করতে হয়েছিল যাতে এটি দীর্ঘতর হয় তবে এর ইউটিএফ 8 প্রতিনিধিত্ব সংক্ষিপ্ত হয়। (বিশেষত, যাতায়াত অপারেটরের চরিত্রটি তিনটি বাইট এবং যখন ()মাত্র দুটি হয়, যাতে অনুকূলিতকরণটি আর কাজ করে না, এবং এটি অ্যাসাইনমেন্টটি খুব ব্যয়বহুল করে তোলে))

{⎕←(~⌽∧\⌽⍵=' ')/⍵}¨↓⊃{⍵{⍺=' ':⍵⋄⍺}¨K↑(-.5×(K←⍴⍵)+⍴⍺)↑⍺}/{Z⍪⌽⊖Z←↑(⊂(⍵/' '),(2×⍵)/'-'),⍵{((-⍵)↑'/'),((2 4-.×⍵⍺)/' '),'\'}¨⌽⍳⍵}¨N[⍋N←,⎕]

পূর্ববর্তী সংস্করণ, যা অক্ষরে সংক্ষিপ্ত (124) তবে ইউটিএফ -8 (230, যা এটি দ্বিতীয় স্থানে রাখবে) উপস্থাপিত হলে আরও বাইট ব্যবহার করে:

M←' '⋄{⎕←⍵/⍨~⌽∧\⌽⍵=M}¨↓⊃{⍵{⍺=M:⍵⋄⍺}¨K↑⍺↑⍨-.5×(K←⍴⍵)+⍴⍺}/{Z⍪⊖⌽Z←↑(⊂(⍵/M),'-'/⍨2×⍵),⍵{('/'↑⍨-⍵),'\',⍨M/⍨2 4-.×⍵⍺}¨⌽⍳⍵}¨N[⍋N←,⎕]

টেস্ট:

      {⎕←(~⌽∧\⌽⍵=' ')/⍵}¨↓⊃{⍵{⍺=' ':⍵⋄⍺}¨K↑(-.5×(K←⍴⍵)+⍴⍺)↑⍺}/{Z⍪⌽⊖Z←↑(⊂(⍵/' '),(2×⍵)/'-'),⍵{((-⍵)↑'/'),((2 4-.×⍵⍺)/' '),'\'}¨⌽⍳⍵}¨N[⍋N←,⎕]
⎕:
      3 1 5 2
     ----------
    /          \
   /   ------   \
  /   / ---- \   \
 /   / / -- \ \   \
/   / / /  \ \ \   \
\   \ \ \  / / /   /
 \   \ \ -- / /   /
  \   \ ---- /   /
   \   ------   /
    \          /
     ----------

এটি শীর্ষ এবং নীচের দিকগুলির জন্য অনুমানগুলি পূরণ করে বলে মনে হচ্ছে না (সেগুলি হাইফেন নয়, আন্ডারস্কোর হওয়া উচিত) এবং ফলস্বরূপ নীচের দিকগুলির জন্য একটি লাইনে অফসেট হবে।
মার্টিন এেন্ডার

1

পার্ল 5, 352 ( anEপতাকাগুলির জন্য 349 বাইট +3 )

এটি সম্ভবত আরও অনেক কিছু গলিয়ে যেতে পারে ..

@b=sort{$a>$b}@F;map{$_<$j||($j=$_)}@b;$k=++$j;for(;$j--;){$z=$"x$j;for($e=$k;--$e>$j;){$z.=$e~~@b?'/ ':'  '} $z.=($j~~@b?'_':$")x(2*$j);$z.=$_~~@b?' \\':'  'for($j+1..$k-1);say$z}for(0..$k-2){$z=$"x$_;for($e=$k;--$e>$_;){$z.=($e-$k+1?$":'').($e~~@b?'\\':$")}$z.=(($_+1)~~@b?'_':$")x(2*$_+2);$z.=($_~~@b?'/':$").($_-$k+1?$":'')for($_+1..$k-1);say$z}

Ungolfed:

# sort list of side lengths 
@b=sort{$a>$b}@F; 
# set $k and $j to max side length + 1
map{$_<$j||($j=$_)}@b;$k=++$j;
for(;$j--;){
  $z=$"x$j;
  for($e=$k;--$e>$j;){$z.=$e~~@b?'/ ':'  '}
  $z.=($j~~@b?'_':$")x(2*$j);
  $z.=$_~~@b?' \\':'  'for($j+1..$k-1);
  say$z
}
for(0..$k-2){
  $z=$"x$_;
  for($e=$k;--$e>$_;){$z.=($e-$k+1?$":'').($e~~@b?'\\':$")}
  $z.=(($_+1)~~@b?'_':$")x(2*$_+2);
  $z.=($_~~@b?'/':$").($_-$k+1?$":'')for($_+1..$k-1);
  say$z 
}

উদাহরণ ( 1 5 3 14):

              ____________________________
             /                            \
            /                              \
           /                                \
          /                                  \
         /                                    \
        /                                      \
       /                                        \
      /                                          \
     /                 __________                 \
    /                 /          \                 \
   /                 /   ______   \                 \
  /                 /   /      \   \                 \
 /                 /   /   __   \   \                 \
/                 /   /   /  \   \   \                 \
\                 \   \   \__/   /   /                 /
 \                 \   \        /   /                 /
  \                 \   \______/   /                 /
   \                 \            /                 /
    \                 \__________/                 /
     \                                            /
      \                                          /
       \                                        /
        \                                      /
         \                                    /
          \                                  /
           \                                /
            \                              /
             \____________________________/

1

সি # - 388 316 বাইট

সম্পাদনা করুন: পরিবর্তিত হয়েছে কীভাবে এটি পিছনের জায়গাগুলি মুদ্রণ এড়িয়ে যায় এবং কিছু লিনকুইতে ফেলে দেয়

কমান্ড লাইন আর্গুমেন্ট নেয় সহজ প্রোগ্রাম। এটি একটি সর্বোচ্চ আয়তক্ষেত্র মাত্রা দ্বারা সংজ্ঞায়িত আয়তক্ষেত্রের প্রতিটি লাইনে প্রতিটি সম্ভাব্য চরের মধ্য দিয়ে পুনরাবৃত্তি করে এবং লাইনগুলি ছাঁটাই করে এবং ধারাবাহিকভাবে মুদ্রণের আগে (এটি alচ্ছিকভাবে নতুন লাইনের lineচ্ছিক উত্পাদন করে)।

গল্ফ কোড:

using System.Linq;class P{static void Main(string[]A){var I=A.Select(int.Parse);int m=I.Max(),i,j,y,x;for(j=m+1;j-->-m;){var r="";for(i=-2*m-1;++i<2*m-(y=j<0?-j-1:j);)r+="/\\_- "[(x=i<0?-i-1:i)>y&(x+=y)%2>0&x/2<m&&I.Contains(x/2+1)?(i^j)&1:x-y<(y=j<0?-j:j)&y<=m&I.Contains(y)?j<0?2:3:4];System.Console.WriteLine(r);}}}

অবরুদ্ধ কোড:

using System.Linq; // all important

class P
{
    static void Main(string[]A)
    {
        var I=A.Select(int.Parse); // create int array

        for(int m=I.Max(),j=m+1,i,y,x;j-->-m;) // for each line...
        {
            var r=""; // current line

            for(i=-2*m-1;++i<2*m-(y=j<0?-j-1:j);) // for each char...
                r+="/\\_- "[// append something to the current line
                (x=i<0?-i-1:i)>y&(x+=y)%2>0&x/2<m&&I.Contains(x/2+1)?
                    (i^j)&1: // slashes as appropriate - I can't work out why this bit works, but it seems to
                x-y<(y=j<0?-j:j)&y<=m&I.Contains(y)?
                    j<0?2:3: // _ or - if required
                4]; // otherwise a space

            System.Console.WriteLine(r); // print current line
        }
    }
}

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.