একটি ASCIIrisk আঁকুন

Question

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

চ্যালেঞ্জ

আপনার কাজটি এমন কোনও প্রোগ্রাম বা ফাংশন লিখতে হবে যা কোনও ইনপুট নেয় না এবং এই সঠিক পাঠ্যটিকে আউটপুট দেয়:

          !
         "#
         $%
         &'
         ()
         *+
         ,-
         ./
         01
23456789:;<=>?@ABCDEF
GHIJKLMNOPQRSTUVWXYZ[
        \]^_
       `a  bc
      de    fg
     hi      jk
    lm        no
   pq          rs
  tu            vw
 xy              z{
|}                ~

রেফারেন্সের জন্য, এই সাইটটি সম্পূর্ণ ASCII সারণি তালিকাভুক্ত করে।

বিধি

• আউটপুটটি হুবহু পাঠ্য হওয়া উচিত, যেমন উপরে দেখানো হয়েছে। শীর্ষস্থানীয় / পিছনের সাদা স্থান অনুমোদিত ites
• স্ট্যান্ডার্ড গল্ফিং লুফোলগুলি প্রয়োগ হয় - ইন্টারনেট থেকে এটি ASCIIrisk পড়েনি, ইত্যাদি etc.
• এটি কোড-গল্ফ , তাই সংক্ষিপ্ততম সমাধান (বাইটে) জিতেছে।

Comments

আমি এই চ্যালেঞ্জটি চেষ্টা করতে চাই ... তবে এটি বেশ ঝুঁকিপূর্ণ মনে হচ্ছে । আমার ভয়ঙ্কর হাস্যর ক্ষমা করুন।

— হাইপার নিউট্রিনো

স্ট্যাক ওভারফ্লোতে একটি নোব্যাডজোকস নীতি রয়েছে তাই আমাকে সেই মন্তব্যটি উপেক্ষা করতে হবে। দুঃখিত তবে এটি নীতি

ঠিক আছে. নীতি লঙ্ঘনের জন্য দুঃখিত। এর জবাব দিয়ে আমার মন্তব্য উপেক্ষা করার জন্য আপনাকে ধন্যবাদ।

— হাইপারনিউট্রিনো

Answer 1

05AB1E , 40 38 37 36 35 বাইট

žQ2ô376S3*£`2ôvyN·ð×ýð«}rsJ2äsr)˜.c

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

žQ                                   # push the printable ascii chars
  2ô                                 # split into pairs
    376S                             # split the number 376 into a list of digits
        3*                           # multiply each by 3 to get [9,21,18]
          £                          # divide the pairs of ascii chars into 
                                     # pieces of these sizes
           `                         # flatten list to stack
            2ô                       # split the "legs" of the asterisk into pairs of pairs
              v                      # loop over the pairs of pairs
               yN·ð×ý                # join the pairs by index*2 spaces
                     ð«              # append a space
                       }             # end loop
                        rs           # move the middle section to top of stack
                          J2ä        # convert to a string split into 2 pieces
                             sr      # rearrange the stack in the correct order
                               )˜    # wrap in a flattened list
                                 .c  # pad each element with spaces on either side

Comments

žQ2ôÐ9£s30£R21£RøsrR18£R2ôvyN·ð×ý})˜.C», আমি 39 পেয়েছিলাম, তবে আমি মনে করি আপনি জিপ দিয়ে কিছু শেভ করতে পারেন।

— ম্যাজিক অক্টোপাস আরন

@ কারাসোকম্পিউটিং: আমি মনে করি না যে জিপগুলি এখানে খুব কার্যকর কারণ আমরা চাই অক্ষরগুলি ক্রমবর্ধমান। শুরুতে জোড়ায় সবকিছু বিভক্ত করা ভাল ধারণা ছিল। এটি অনেকগুলি r এবং s ব্যবহার করে অপব্যয় বোধ করে তবে আমি এর চারপাশে কোনও উপায় দেখি না।

— Emigna

Answer 2

পাইথন 3 , 110 বাইট

s='%c';print(('\n'.join(['%10c%c']*9+[s*21]*2+[' '*(8-i)+s*2+'  '*i+s*2for i in range(9)]))%(*range(32,128),))

টেমপ্লেট উত্পন্ন করে

         xx
         xx
         xx
         xx
         xx
         xx
         xx
         xx
         xx
xxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxx
        xxxx
       xx  xx
      xx    xx
     xx      xx
    xx        xx
   xx          xx
  xx            xx
 xx              xx
xx                xx

সঙ্গে %cজন্য x, তারপর স্ট্রিং ক্ষেপক ব্যবহার range(32,128)প্যাটার্ন মধ্যে ASCII মান সন্নিবেশ করতে।

এটি অনলাইন চেষ্টা করুন!

পাইথন 2 একটি বাইট দীর্ঘ, লম্বা টিপল আনপ্যাকিংয়ের সাথে কম তবে সংক্ষিপ্ত print।

s='%c';print('\n'.join(['%10c%c']*9+[s*21]*2+[' '*(8-i)+s*2+'  '*i+s*2for i in range(9)]))%tuple(range(32,128))

Comments

এটি একটি আইফেল টাওয়ার অনুরূপ পুরষ্কার প্রাপ্য!

— সার্জিওল

Answer 3

ভি , 54 , 50 বাইট

¬ ~9ñ9É 11|á
ñ2ñ20lá
ñ$18é 9ñ^y|Ehé
Pf xxywk$hP>ñd

এটি অনলাইন চেষ্টা করুন!

স্বাভাবিকের থেকে ভিন্ন, এই প্রোগ্রামটিতে কোনও ছাপানো অক্ষর নেই।

ব্যাখ্যা:

¬ ~                     " Insert the entire printable ASCII range
   9ñ           ñ       " 9 times:
     9É                 "   Insert 9 spaces at the beginning of this line
        11|             "   Move to the 11'th column on this line
           á<CR>        "   And append a newline after the 11'th column

এখন বাফারটি এর মতো দেখাচ্ছে:

          !
         "#
         $%
         &'
         ()
         *+
         ,-
         ./
         01
23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

এখন আমরা মাঝখানে আপ:

2ñ        ñ             " Two times:
  20l                   "   Move 20 characters to the right (because 'l' == 'right', duh)
     á<CR>              "   Append a newline

এটি এখানে কিছুটা অদ্ভুত হয়ে যায়।

$                       " Move to the end of this line 
 18é                    " Insert 18 spaces before the last character
     9ñ                 " Repeat the following 9 times:
       ^                "   Move to the first non-whitespace character
        y|              "   Yank all the whitespace before the current character. 
                        "   We'll call this the "Leading whitespace register"
          E             "   Move to the end of the current WORD (up to before a space)
           h            "   Move back one character
            é<CR>       "   And insert a newline before the current character
P                       "   Paste the leading whitespace for indentation
 f                      "   Move forward to a space
   xx                   "   Delete two characters
                        "   (Note how we are inbetween the two bottom branches right now)
     yw                 "   Yank everything upto the next branch (all spaces)
                        "   We'll paste this on the line up so that we can yank it again later
                        "   To keep track of how far apart the branches are
       k$               "   Move up a line and to the end of that line
         hP             "   Move back a character and paste the whitespace we yanked
           >            "   Indent this line by one space
            ñ           "   End the loop

এখানে একটি গুরুত্বপূর্ণ নোট। >কমান্ড আসলে একটি হয় অপারেটর , উপর কাজ চালানোর জন্য টেক্সট এটি একটি যুক্তি ছাড়া কিছু না যার মানে। উদাহরণ স্বরূপ,

>_      "Indent the current line
>>      "Indent the current line
>j      "Indent the current and next line
>G      "Indent every line

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

এখন আমি স্বীকার করব যে এই লুপটি কিছুটা অদ্ভুত, এবং কোনও নির্দিষ্ট মুহুর্তে সমস্ত পাঠ্য কেমন হওয়া উচিত তা ট্র্যাক করা শক্ত keep সুতরাং আপনি এই সহজ প্রোগ্রামটি এন লুপগুলির পরে দেখতে কেমন তা দেখতে এটি ব্যবহার করতে পারেন ।

আপনি যদি এটি 9 তে সেট করে থাকেন তবে দেখতে পাবেন যে আমাদের কাছে এড়াতে কিছু অতিরিক্ত পাঠ্য রয়েছে। (স্রেফ বর্তমান লাইন)

সুতরাং আমরা বর্তমান লাইনটি মুছে ফেলি dd। কিন্তু অপেক্ষা করো! আপনি কি জানেন যে আমি কীভাবে বলেছিলাম যে অপারেটরদের একটি যুক্তি নিতে হবে যা কিছু সময় অন্তর্নিহিতভাবে পূরণ করা হয়? প্রোগ্রামের শেষে যুক্তিগুলিও স্পষ্টভাবে পূরণ করা হয়। সুতরাং ddবা পরিবর্তে d_(যা সমতুল্য), আমরা কেবল dভিটি _আমাদের জন্য পূরণ করতে পারি।

Comments

নিখুঁতভাবে ÿ

— আপত্তিজনক

Answer 4

পাইথন 3 170 165 155 147 বাইট

আমি এটিকে এত গল্ফ দিয়েছি, কীভাবে এটি কাজ করে তা আমি ভুলে গিয়েছি ...

i=b=0
for x in range(32,127):a=x%2<1;c=x>90;d=x<50;print(end=[' '*9*d,['\n'+' '*(8-i),'  '*~-i][b]][c]*a+chr(x)+'\n'*(x==70or d*x%2));b^=a;i+=b*c*a

এটি অনলাইন চেষ্টা করুন!

Answer 5

জাভাস্ক্রিপ্ট (ES6), 156 … 115 114 বাইট

দুঃখের বিষয়, কুখ্যাতটির String.fromCharCode()ব্যয় 19 বাইট।

f=(x=y=k=1)=>k<96?String.fromCharCode(x-22?y/2^5&&(y>9?x-y+1>>1&&22-y-x>>1:x/2^5)?32:31+k++:(x=!++y,10))+f(x+1):''

console.log(f())

ফর্ম্যাট এবং মন্তব্য

f = (                         // given:
  x =                         //   - x = current column
  y =                         //   - y = current row
  k = 1                       //   - k = current ASCII character code, minus 31
) =>                          //
  k < 96 ?                    // if we havent't reached character #127 (96 + 31):
    String.fromCharCode(      //   let's compute the next character
      x - 22 ?                //   if x is not equal to 22 (end of line):
        y / 2 ^ 5 && (        //     if y doesn't equal 10 or 11 (horizontal bar):
          y > 9 ?             //       and either y is greater than 9:
            x - y + 1 >> 1 && //         and we are not located on one of the
            22 - y - x >> 1   //         bottom diagonals
          :                   //       or y is less or equal to 9:
            x / 2 ^ 5         //         and x doesn't equal 10 or 11 (vertical bar)
        ) ?                   //     then:
          32                  //       append a space
        :                     //     else:
          31 + k++            //       append the next ASCII character
      :                       //   else:
        (x = !++y, 10)        //     increment y, reset x and append a LineFeed
    ) + f(x + 1)              //   do a recursive call with x + 1
  :                           // else:
    ''                        //   stop recursion

Comments

আমি মনে করি আপনি String.fromCharCode(...[...Array(n)].map(_=>k++))4 বাইট সংরক্ষণ করতে পারেন ।

— ETH প্রোডাকশনগুলি

@ ইথ প্রডাকশনগুলি আমি String.fromCharCode()অ্যারেতে কল করার ধারণাটি পছন্দ করি তবে আমি অন্য পদ্ধতির জন্য গিয়েছিলাম। যাই হোক ধন্যবাদ!

— আর্নল্ড

Answer 6

কিউবিআইসি , 153 151 বাইট

[32,49,2|?space$(9)+chr$(a)+chr$(a+1)][2|X=Y[a,a+20|X=X+chr$(c)]a=a+21?X][0,8|X=space$(8-d)[0,1|X=X+chr$(a+e)]X=X+space$(d*2)[2,3|X=X+chr$(a+f)]a=a+f?X

এটি সত্যিই কেবল ফর-লুপের একটি সিরিজ এবং একটি অক্ষর ( chr$()) এর জন্য একটি অন্তর্ভুক্ত ।

নমুনা আউটপুট:

          !
         "#
         $%
         &'
         ()
         *+
         ,-
         ./
         01
23456789:;<=>?@ABCDEF
GHIJKLMNOPQRSTUVWXYZ[
        \]^_
       `a  bc
      de    fg
     hi      jk
    lm        no
   pq          rs
  tu            vw
 xy              z{
|}                ~

Answer 7

পার্ল , 113 বাইট

112 বাইট কোড + -lপতাকা।

sub g{chr$c+++32}print$"x9,&g,&g for 0..8;print map&g,0..20for 0,1;print$"x-$_,&g,&g,$"x(16+2*$_),&g,&g for-8..0

এটি অনলাইন চেষ্টা করুন!

Answer 8

পিএইচপি, 110 105 103 93 91 বাইট

for(;$c<95;$y+=!$x%=21)echo"
"[$x],chr(31+($y%11<9&(max($y,10)-abs(9.5-$x++))%11<9?:++$c));

একটি শীর্ষস্থানীয় নিউলাইন প্রিন্ট করে। এটি দিয়ে চালান -nrবা এটি অনলাইনে পরীক্ষা করুন ।

মূল নীতিটি আরনাউল্ড থেকে গৃহীত হয়েছে, তবে এটি পুনরাবৃত্তি করে।
এবং এটি পিএইচপি'র অন্তর্নিহিত টাইপাইকাস্টগুলির থেকে ভাল সুবিধা গ্রহণ করে:
স্ট্রিং সূচকটির জন্য ন্যূনুয়াল অব ইনট, ফ্লুট টু ইনট ফর %, বুলিয়ান ইন ইন &এবং এর জন্য +=।

সিউডো কোড সহ ব্যাখ্যা

If $x is 0, print a newline. ("\n"[$x] is newline for $x=0; empty for every larger $x)
if $y is neither 9 nor 10 (not middle part: $y<9|$y>10 <=> $y%11<9)
AND distance to center == abs(9.5-$x) (in [0.5,1.5,..,10.5]) ->
    lower part:     abs($y-10-distance)>1                   => ($y-distance)%11<9
                (this works because $y is always <20)
    upper part: $x<9|$x>10 <=> distance>1 <=> 10-distance<9 => (10-distance)%11<9
                (this works because % has negative results for negative first operands)
    both parts: $y>9?$y:10 <=> max($y,10)
// $a?:$b evaluates to $a if $a is truthy, to $b else
// and the ternary condition evaluates to 1 if the coords are not in the shape
then print chr(31+1) = space
else print chr(31+incremented $c)

Answer 9

পাইথ , 53 বাইট

js.e@[+L*9;cb2c2b.e+*-8Ydj*yYdZcL2cb4)kcsrdC127,18 60

এমন একটি প্রোগ্রাম যা ফলাফল মুদ্রণ করে।

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

srdC127 মুদ্রণযোগ্য ASCII অক্ষরগুলির একটি তালিকা তৈরি করে এবং এটি একটি স্ট্রিংয়ে যুক্ত করে।

c....,18 60সূচকগুলিতে এই স্ট্রিংটি বিভক্ত করে 18এবং 60আউটপুট বিভিন্ন অংশের সাথে মিলিত তিনটি স্ট্রিংয়ের একটি তালিকা প্রদান করে: উপরের অংশ, মাঝের এবং নীচে।

.eস্ট্রিংগুলির সাথে স্ট্রিংগুলির সাথে bতাদের সূচকগুলি হিসাবে একটি গণনা করা মানচিত্র শুরু করে k।

[...)ডায়াগ্রামের প্রতিটি অংশের জন্য পছন্দসই কর্মযুক্ত একটি তালিকা তৈরি করে। সঠিক ক্রিয়াটি ব্যবহার করে বর্তমান সূচীর সাথে তালিকায় সূচি রেখে নির্বাচন করা হয়েছে @...k।

• শীর্ষ

  cb2স্ট্রিংগুলিকে জোড়ার অক্ষরগুলিতে বিভক্ত করে এবং প্রতিটি জুটিতে স্পেস +L*9;প্রিন্ট করে 9।

• মধ্যম

  c2b স্ট্রিংকে দুটি সমান-দৈর্ঘ্যের স্ট্রিংগুলিতে বিভক্ত করে।

• পাদ

  cL2cb4 স্ট্রিংকে চারটি অক্ষরের গ্রুপে এবং প্রতিটি গ্রুপকে জোড়ায় বিভক্ত করে।

  .eস্ট্রিং জোড়া Zএবং এর সাথে সূচকগুলি যুক্ত করে একটি গণনা করা মানচিত্র শুরু হয় Y।

  j*yYdZউপর জোড়া যোগদান করে 2*Yব্যবধান এবং +*-8Ydprepends 8-Yস্পেস।

jsসমস্ত ফলাফল একত্রিত করে এবং ফলাফলগুলি তালিকাগুলিতে নতুন লাইনে যোগদান করে। এটি পরে নিখুঁতভাবে মুদ্রিত হয়।

Answer 10

হাস্কেল , 144 বাইট

b!n=[1..n]>>b
('*':r)#(a:s)=a:r#s
(a:r)#s=a:r#s
r#s=r
p="**"
f=unlines([" "!9++p]!9++["*"!21]!2++[" "!(8-n)++p++" "!(2*n)++p|n<-[0..8]])#[' '..]

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা:

b!n=[1..n]>>bএকটি ফাংশন সংজ্ঞা দেয় !যা একটি তালিকা বা স্ট্রিং b n-টাইম পুনরাবৃত্তি করে ।

unlines([" "!9++p]!9++["*"!21]!2++[" "!(8-n)++p++" "!(2*n)++p|n<-[0..8]]) তারকাচিহ্নগুলির একটি নক্ষত্র আঁকার জন্য এই ফাংশনটি ব্যবহার করে (ওহ, বিড়ম্বনা!):

         **
         **
         **
         **
         **
         **
         **
         **
         **
*********************
*********************
        ****
       **  **
      **    **
     **      **
    **        **
   **          **
  **            **
 **              **
**                **

#একটি ক্রিয়া হিসাবে সংজ্ঞায়িত করা হয় যা ক্রমান্বয়ে *একটি স্ট্রিংয়ে প্রদত্ত তালিকা থেকে অক্ষরের সাথে প্রতিস্থাপন করে। এটিকে উপরের তারকাচিহ্নগুলির সাথে বলা হয় এবং [' '..]এটি স্পেস দিয়ে শুরু হওয়া সমস্ত অক্ষরের একটি অসীম তালিকা ' '।

Comments

এখানে পার্টিতে দেরি হয়ে গেছে, তবে তা " "!(2*n)হতে পারে "(TWO SPACES)"!n।

— লিন

Answer 11

কাঠকয়লা , 39 বাইট (নন-কেপটিং)

ＧＨ↑χ→⁴↓χ→¹¹↓⁴←χ↘χ←⁴↖⁹←²↙⁹←⁴↗χ←⁹↑⁴→⁹ ↓¤γ

এটি অনলাইন চেষ্টা করুন! এএসটি ব্যাখ্যাটির জন্য সরবরাহ করা হয়েছে, এর χজন্য পূর্বনির্ধারিত পরিবর্তনশীল 10।

Answer 12

জে, 63

(প্রতিযোগিতা নয়)

a.{~32>.31+20 21$(* +/\),(9 21&$@{.,1:,1:,}.)(+.1&|."1)|.=|i:10

অভিব্যক্তি ডান থেকে বামে এইভাবে মূল্যায়ন করে:

• i: 10 -10 থেকে +10 পর্যন্ত গণনা করা হয়
• | +10 থেকে 0 তে +10 এ ফিরে আসার জন্য অ্যাবস নিন
• = 0 এর একটি ব্লকে 1 এর ভি আকার পেতে স্ব শ্রেণিবদ্ধ করুন
• |. / \ আকার পেতে বিপরীতে সারি ক্রম
• ( +. 1&|."1 ) হুক এক্সপ্রেশন প্রতিটি সারি ডান এক এবং OR এর আসল সহ স্থানান্তরিত করে
• ( 9 21&$@{. , 1: , 1: , }. ) অনুভূমিক এবং প্রসারিত শীর্ষে নেস্টিং কাঁটাচামচ
• , ব্লকটি কমিউশনের জন্য একটি লিনিয়ার ক্রমে উত্সাহিত করতে
• ( * +/\ ) সংক্ষিপ্ত এবং স্ব সঙ্গে গুন
• 20 21 $ 21 টি উপাদানের 20 সারি ব্লকে আকৃতিটি ফিরিয়ে দিন
• 31 + 31 যুক্ত করুন কারণ প্রথম 1 টি স্পেস চার কোড 32 হওয়া উচিত
• 32 >. 32 এ ফ্লোর
• a. {~ অন্তর্নির্মিত ascii থেকে চর চয়ন করুন

Comments

পিপিসিজিতে আপনাকে স্বাগতম! আপনি কীভাবে এটি প্রতিযোগিতা হিসাবে চিহ্নিত করেছেন?

— মার্টিন ইন্ডার

আমি কেবল ভেবেছিলাম প্রতিযোগিতা শুরুর অনেক পরে [15 মাস] পরেও আমি আমার প্রচেষ্টাটি যুক্ত করব .. আপনি কি বলছেন যে প্রতিটি ধাঁধা খোলা থাকে? ..আরপিএল এর বাইরেও জে এক্সপ্রেশন মুদ্রণের জন্য, যেমন কোনও স্ক্রিপ্টে মৃত্যুদন্ড কার্যকর করার সময় আমাকে smoutputকমান্ড বা সমমানের প্রিফিক্সের প্রয়োজন হবে

— জয়প্রিচ

চ্যালেঞ্জগুলি সাধারণত অনির্দিষ্টকালের জন্য উন্মুক্ত থাকে (এমনকি যদি ইতিমধ্যে একটি উত্তর গৃহীত হয়)। কিছু বিশেষ ধরণের চ্যালেঞ্জ রয়েছে যা কখনও কখনও নতুন এন্ট্রিগুলিতে বন্ধ হয়ে যায় (উত্তর-শৃঙ্খলাবদ্ধ, পুলিশ-ডাকাতরা, পাহাড়ের রাজা মাথায় আসে), তবে চ্যালেঞ্জের বর্ণনায় সাধারণত সেগুলি তাই বলবে। এটি বৈধ উত্তর ফর্ম্যাট কিনা তা যেমন আপনাকে আরও জে অভিজ্ঞতার সাথে কাউকে জিজ্ঞাসা করতে হবে তবে REPL উত্তরগুলি যতক্ষণ না সে হিসাবে চিহ্নিত থাকে সাধারণত ততক্ষণ ঠিক থাকে।

— মার্টিন ইন্ডার

Answer 13

রুবি, 91 বাইট

->{(-11..8).map{|i|["%s"*21,"%#{9-i}s%s%#{i*2+1}s%s","%10s%s"][i/2<=>-1]}*$/%[*' '..?~,$/]}

Ungolfed

->{(-11..8).map{|i|            #For each line
  ["%s"*21,                    #If i/2==-1 make a format string of 21 %s
   "%#{9-i}s%s%#{i*2+1}s%s",   #If i/2>-1 make a format string %{9-i}s%s%{i*2+1}s%s
   "%10s%s"][i/2<=>-1]         #If i/2<-1 make a format string %10s%s
  }*$/%                        #Join the format strings with newlines $/ then use sprintf operator %
  [*' '..?~,$/]                #to replace the %s with *' '..'~' and a newline for last corner.
}

Answer 14

আমি সি # তে একটি উত্তর মিস করেছি ...

সি # (.নেট কোর) , 175 174 বাইট

_=>{var r="";for(int i=0,j,d=32,s=1;i<54;i++)for(j=0;j++<"*#4#4#4#4#4#4#4#4#+K)%1###/#%#-#'#+#)#)#+#'#-#%#/###1#"[i]-33;)r+=(char)(i%2<1?32:d++)+(s++%21<1?"\n":"");return r;}

এটি অনলাইন চেষ্টা করুন!

• কেভিন ক্রুইজসেনকে ধন্যবাদ 1 বাইট!

Comments

intএস-কে লুপের ভিতরে রেখে আপনি একটি বাইট সংরক্ষণ করতে পারেন :for(int i=0,j,d=32,s=1;i<54;i++)for(j=0

— কেভিন ক্রুইজসেন

Answer 15

Tcl , 209 বাইট

proc I {} {incr ::i}
proc A {} {time {append a [$::F %c [I]]} 21;puts $a}
set i 31
time {puts [[set F format] %10c%c [I] [I]]} 9
A
A
time {puts [$F %[expr 32-[I]/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

এটি অনলাইন চেষ্টা করুন!

---

টিসিএল , 212 বাইট

proc I {} {incr ::i}
proc A {} {time {append a [$::F %c [I]]} 21;puts $a}
set i 31
time {puts [[set F format] %10c%c [I] [I]]} 9
A
A
time {puts [$F %[expr (129-[I])/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

এটি অনলাইন চেষ্টা করুন!

tcl, 213

proc I {} {incr ::i}
set F format
proc A {} {time {append a [$::F %c [I]]} 21;puts $a}
set i 31
time {puts [$F %10c%c [I] [I]]} 9
A
A
time {puts [$F %[expr (129-[I])/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

ডেমো

---

tcl, 214

proc I {} {incr ::i}
set F format
proc A {} {time {append a [$::F %c [I]]} 21;puts $a}
set i 31
time {puts [$F %10c%c [I] [I]]} 9
A
A
time {I;puts [$F %[expr (129-$i)/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

ডেমো

---

tcl, 227

proc I {} {incr ::i}
set F format
proc A {} {time {append ::a [$::F %c [I]]} 21}
set i 31
time {puts [$F %10c%c [I] [I]]} 9
A
set a $a\n
A
puts $a
time {I;puts [$F %[expr (129-$i)/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

ডেমো

tcl, 236

proc I {} {incr ::i}
set F format
proc A {} {time {append ::a [$::F %c [I]]} 21}
set i 31
time {puts [$F %10c%c [I] [I]]} 9
set a ""
A
set a $a\n
A
puts $a
time {I;puts [$F %[expr (129-$i)/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

ডেমো

---

tcl, 237

proc I {} {incr ::i}
set F format
proc A {} {time {set ::a $::a[$::F %c [I]]} 21}
set i 31
time {puts [$F %10c%c [I] [I]]} 9
set a ""
A
set a $a\n
A
puts $a
time {I;puts [$F %[expr (129-$i)/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

ডেমো

---

একই আকারের বিকল্প পদ্ধতি:

proc I {} {incr ::i}
set F format
proc A b {time {upvar $b c;set c $c[$::F %c [I]]} 21}
set i 31
time {puts [$F %10c%c [I] [I]]} 9
set a ""
A a
set a $a\n
A a
puts $a
time {I;puts [$F %[expr (129-$i)/4]c%c $i [I]][$F %[expr $i/2-45]c%c [I] [I]]} 9

ডেমো

Tcl, 288

lassign {set while puts format incr expr} S W P F I E
$S i 31
$W \$i<48 {$P [$F %10c%c [$I i] [$I i]]}
$S a ""
$W {[$I i]<71} {$S a $a[$F %c $i]}
$S a $a\n
$W \$i<92 {$S a $a[$F %c $i];$I i}
$P $a
$W \$i<128 {$P [$F %[$E (129-$i)/4]c%c $i [$I i]][$F %[$E $i/2-45]c%c [$I i] [$I i]]; $I i}

ডেমো

---

tcl, 297 বাইট (নির্বোধ প্রচেষ্টা)

set i 31
while \$i<48 {puts [format %10c%c [incr i] [incr i]]}
set a ""
while {[incr i]<71} {set a $a[format %c $i]}
set a $a\n
while \$i<92 {set a $a[format %c $i];incr i}
puts $a
while \$i<128 {puts [format %[expr (129-$i)/4]c%c $i [incr i]][format %[expr $i/2-45]c%c [incr i] [incr i]]; incr i}

ডেমো

Comments

"নিষ্পাপ প্রচেষ্টা" বলতে কী বোঝ? পরিবর্তে শিরোনামে দৈর্ঘ্য রাখা উচিত নয়?

আমার অর্থ এটি আরও গল্ফ করার জন্য জায়গা আছে, কারণ এখনও অনেক পুনরাবৃত্তি রয়েছে। এবং আমি এটি আরও গল্ফ করব।

— সার্জিওল

কাঁচা পদ্ধতির 254 বাইট পরিমাণ রয়েছে।

— সার্জিওল

209

— ASCII-

কেবলমাত্র এএসসিআইআই: ধন্যবাদ আমার আপনার পরামর্শের সমান নয়! ;)

— সার্জিওল

Answer 16

কবিতা , 899 বাইট

ill be honest with you
i expect a big solitude
i guess i had a guilt
my own idea being:i was real alone,i was a lonely human
also,i am still
o,i guess i was expecting a shift
i figured,surely i know i am tired of silence
now i dreamed for a shift
a magical desire cant come
i am barely a man,so i guess i see why a woman i see ignores myself
i know i am awful
o,a night of passion and a moment of love
i am truly the foolish person,every time i am saying i may recapture a love
o,i think i can,i think i can
i really do know i am unfit
o,i notice a lot,i think i know i am unfit
o,a novel,or perhaps poetry in code,i do enjoy the writing
and i shudder and i wonder in a moment
i was a weirdo,i was a freak,or like,i am creepy
o,i think i was a misfit
i know i am,really
o,i ought not concern myself
and sure,i am still some joyless man
i focused and i tried
a lasting solace and joy is nearby for me

এটি অনলাইন চেষ্টা করুন!

কবিতা একটি ক্লাস প্রকল্পের জন্য আমি 2018 এ তৈরি একটি এসোলাং। এটি মূলত চিহ্নগুলির পরিবর্তে শব্দ-দৈর্ঘ্যের সাথে মস্তিষ্ক ফাক।

এই কবিতাটি ... হতাশাজনক। 😟

Answer 17

পাইথন 2.7, 194 188 বাইট

k,l,c,s,r=8,0,chr,' ',range;o=''.join(map(chr,r(32,127)))
for i in r(0,18,2):print s*9+o[i:i+2]
print o[18:39]+'\n'+o[39:60]
for i in r(60,95,4):print s*k+o[i:i+2]+s*l+o[i+2:i+4];k-=1;l+=2

Comments

আপনি পরিবর্তন করে 2 বাইট ড্রপ করতে পারেন map(chrথেকে map(cযেমন cইতিমধ্যে হিসেবে সংজ্ঞায়িত করা হয়েছেchr

Answer 18

জেকিউ 1.5 , 180 বাইট

foreach((range(9)|[9,2]),(range(2)|[0,21]),(range(9)|[8-.,2,.+.,2]))as$r({s:[range(32;127)]|implode};.r=$r|.p=""|until(.r==[];.p+=" "*.r[0]+.s[:.r[1]]|.s =.s[.r[1]:]|.r=.r[2:]);.p)

সম্প্রসারিত

foreach (                              # instruction sequence: [indent, count]
    (range(9)|[9,2]),                  # 9 rows of 2 characters indented 9 spaces
    (range(2)|[0,21]),                 # 2 rows of 21 characters
    (range(9)|[8-.,2,.+.,2])           # 9 rows of 4 characters with varying indent
) as $r (
    {s:[range(32;127)]|implode}        # state = ascii string
  ; .r = $r                            # current instruction
  | .p = ""                            # print string for this row
  | until(.r==[];                      # until current instruction is exhausted
        .p += " "*.r[0] + .s[:.r[1]]   # add to print string
      | .s = .s[.r[1]:]                # remove from state
      | .r = .r[2:]                    # remove from instruction
    )
  ; .p                                 # emit print string
 )

এটি অনলাইন চেষ্টা করুন!

Answer 19

স্ল্যাশস ( /// ), 324 বাইট

          !
         "#
         $%
         &'
         ()
         *+
         ,-
         .\/
         01
23456789:;<=>?@ABCDEF
GHIJKLMNOPQRSTUVWXYZ[
        \\]^_
       `a  bc
      de    fg
     hi      jk
    lm        no
   pq          rs
  tu            vw
 xy              z{
|}                ~

স্ল্যাশে প্রথম (ডিফল্ট) ক্রিয়াটি 'মুদ্রণ' হয়, সুতরাং স্ট্রিংটি মুদ্রিত হয়। /এবং \এগিয়ে যাওয়ার মাধ্যমে পলান করা আবশ্যক \সে।

Comments

আপনার বাইট গণনা এবং পছন্দসই একটি অনুবাদকের সাথে একটি লিঙ্ক যুক্ত করা উচিত। এটিকে বরং অচল মনে হচ্ছে (/// এ আরও ভাল করা ভাল কিনা তা নিশ্চিত নয়)।

— স্টিভি গ্রিফিন

/// এর সুন্দরীদের দেখানোর জন্য এটি কিছুটা রসিকতা এবং আমি সেগুলি যুক্ত করব!

— clabe45

Answer 20

জাভা 8, 176 173 বাইট

v->{for(int i=0,j,d=32,s=1;i<54;i++)for(j=0;j++<"*#4#4#4#4#4#4#4#4#+K)%1###/#%#-#'#+#)#)#+#'#-#%#/###1#".charAt(i)-33;)System.out.printf(s++%21<1?"%c\n":"%c",i%2<1?32:d++);}

@ চার্লি এর সি # .NET উত্তর বন্দর , তাই তাকে upvote নিশ্চিত করুন।
-৩ বাইট @ সিলিংক্যাটকে ধন্যবাদ ।

এটি অনলাইনে চেষ্টা করুন।