#OctothorpeAsciiArt


35

একটি অ্যাকোথোর্প, (নাম্বার সাইন, হ্যাশ বা হ্যাশট্যাগ বা পাউন্ড সাইনও বলা হয় ) নিম্নলিখিত ASCII অক্ষর:

#

এটা কি মজার আকৃতি নয়? এর বড় সংস্করণ তৈরি করতে দিন! সুতরাং এখানে আপনার চ্যালেঞ্জ:

পূর্ণসংখ্যা একটি ইতিবাচক দেওয়া এন , আউটপুট আকারের একটি ASCII হ্যাশট্যাগ এন

উদাহরণস্বরূপ, আকার 1- এর একটি ASCII হ্যাশট্যাগ এর মতো দেখাচ্ছে:

 # # 
#####
 # # 
#####
 # # 

প্রতিটি লাইনে শ্বেতস্পেস অনুসরণ করার অনুমতি দেওয়া হয়েছে তবে এটি প্রয়োজন নেই।

ইনপুটটি সর্বদা একটি বৈধ ধনাত্মক পূর্ণসংখ্যার হবে, সুতরাং আপনাকে অ-সংখ্যাগুলি, নেতিবাচক বা 0 হ্যান্ডেল করতে হবে না Your নিউলাইনস, একটি 2D অক্ষর ম্যাট্রিক্স, একটি ফাইল লিখতে, ইত্যাদি সব ঠিক আছে।

পরীক্ষার মামলা

2:
  ##  ##
  ##  ##
##########
##########
  ##  ##
  ##  ##
##########
##########
  ##  ##
  ##  ##

3:
   ###   ###   
   ###   ###   
   ###   ###   
###############
###############
###############
   ###   ###   
   ###   ###   
   ###   ###   
###############
###############
###############
   ###   ###   
   ###   ###   
   ###   ###   

4:
    ####    ####    
    ####    ####    
    ####    ####    
    ####    ####    
####################
####################
####################
####################
    ####    ####    
    ####    ####    
    ####    ####    
    ####    ####    
####################
####################
####################
####################
    ####    ####    
    ####    ####    
    ####    ####    
    ####    ####    

5:
     #####     #####     
     #####     #####     
     #####     #####     
     #####     #####     
     #####     #####     
#########################
#########################
#########################
#########################
#########################
     #####     #####     
     #####     #####     
     #####     #####     
     #####     #####     
     #####     #####     
#########################
#########################
#########################
#########################
#########################
     #####     #####     
     #####     #####     
     #####     #####     
     #####     #####     
     #####     #####     

যেহেতু এটি একটি কোড-গল্ফ, আপনি যতটা সম্ভব সংক্ষিপ্ততম সমাধানটি লেখার চেষ্টা করুন এবং সর্বোপরি মজা করুন!


উত্তর:


21

এমএটিএল , 20 16 12 11 বাইট

ডিজেএমসিমেহেমকে 3 বাইট ধন্যবাদ

লুই মেন্ডোকে 1 বাইট ধন্যবাদ thanks

21BwY"&*~Zc

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

ব্যাখ্যা

    % stack starts with input e.g. 2
21  % push 21 to stack             2 21
B   % convert to binary            2 [1 0 1 0 1]
w   % swap                         [1 0 1 0 1] 2
Y"  % repeat                       [1 1 0 0 1 1 0 0 1 1]
&*  % one-input multiplication    [[1 1 0 0 1 1 0 0 1 1]
                                   [1 1 0 0 1 1 0 0 1 1]
                                   [0 0 0 0 0 0 0 0 0 0]
                                   [0 0 0 0 0 0 0 0 0 0]
                                   [1 1 0 0 1 1 0 0 1 1]
                                   [1 1 0 0 1 1 0 0 1 1]
                                   [0 0 0 0 0 0 0 0 0 0]
                                   [0 0 0 0 0 0 0 0 0 0]
                                   [1 1 0 0 1 1 0 0 1 1]
                                   [1 1 0 0 1 1 0 0 1 1]]
~   % complement                  [[0 0 1 1 0 0 1 1 0 0]
                                   [0 0 1 1 0 0 1 1 0 0]
                                   [1 1 1 1 1 1 1 1 1 1]
                                   [1 1 1 1 1 1 1 1 1 1]
                                   [0 0 1 1 0 0 1 1 0 0]
                                   [0 0 1 1 0 0 1 1 0 0]
                                   [1 1 1 1 1 1 1 1 1 1]
                                   [1 1 1 1 1 1 1 1 1 1]
                                   [0 0 1 1 0 0 1 1 0 0]
                                   [0 0 1 1 0 0 1 1 0 0]]
Zc  % convert 0 to spaces            ##  ##  
      1 to octothorpes               ##  ##  
      and join by newline          ##########
                                   ##########
                                     ##  ##  
                                     ##  ##  
                                   ##########
                                   ##########
                                     ##  ##  
                                     ##  ##  

1
আপনি এর Zcপরিবর্তে 35*cএবং ~(যৌক্তিক নয়) এর পরিবর্তে ব্যবহার করতে পারেন0=
ডিজেএমসিএমহেম

1
@ ডিজেএমসিএমহেম @ _ @ কেন এটি একটি অন্তর্নির্মিত
লিকি নুন

1
প্রকৃতপক্ষে, যে কারণটি একটি বিল্টিন রয়েছে তা সত্যিই আকর্ষণীয়। আমি ভুল হতে পারি, তবে আমি মনে করি কনর এটির পরামর্শ দিয়েছে, এবং সোয়েভার একটি স্ক্রিপ্ট লিখেছিল যা ভবিষ্যতে উন্নতির জন্য কোন ফাংশন বেশি সাধারণ তা দেখার জন্য সমস্ত এমএটিএল উত্তর দেখে looks জেডিসি সবে যুক্ত করা হয়েছিল
ডিজেএমসিএমহেম

এছাড়াও, যেহেতু প্রতিটি কক্ষটি কেবল শূন্য নয়, আপনি এর Qপরিবর্তে করতে পারেন2<
ডিজেএমসিএমহেম

1
@LeakyNun আপনি পরিবর্তন করতে পারেন !t*থেকে &*। পরবর্তীটির অর্থ "ওয়ান-ইনপুট গুণ", যা তার ট্রান্সপোজ দ্বারা
লুইস মেন্ডো

14

ব্রেন-ফ্লাক , 420 বাইট

(()()()){({}<(({})){({}<<>(<>({})<>){({}<((((()()()()){}){}()){}())>[(
)])}{}(<>({})<>){({}<((((()()()()){}){}){})>[()])}{}(<>({})<>){({}<(((
(()()()()){}){}()){}())>[()])}{}(<>({})<>){({}<((((()()()()){}){}){})>
[()])}{}((()()()()()){})<>>[()])}{}((({}))<(({})(({}){}){})>){({}<<>(<
>({})<>){({}<((((()()()()){}){}()){}())>[()])}{}((()()()()()){})<>>[()
])}{}{}>[()])}{}({}<>)(({})((({({})({}[()])}{})){}){}{}){({}<{}>[()])}

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

না, 420 এর স্কোরটি উদ্দেশ্যমূলক ছিল না। আমি কথা দিচ্ছি। পঠনযোগ্য সংস্করণ:

# 3 Times...
(()()())
{
({}<

    #Duplicate the input
    (({}))

    #Input times...
    {
        ({}<

        #Switch to the main stack
        <>

        #Grab the duplicate of the input
        (<>({})<>)

        #That many times...
        {({}<

            # Push a hash
            ((((()()()()){}){}()){}())

        >[()])}{}

        #Grab the duplicate of the input
        (<>({})<>)

        #That many times...
        {({}<

            #Push a space
            ((((()()()()){}){}){})

        >[()])}{}

        #Grab the duplicate of the input
        (<>({})<>)

        #That many times...
        {({}<

            # Push a hash
            ((((()()()()){}){}()){}())

        >[()])}{}

        #Grab the duplicate of the input
        (<>({})<>)

        #That many times...
        {({}<

            #Push a space
            ((((()()()()){}){}){})

        >[()])}{}

        #Push a newline
        ((()()()()()){})

        #Toggle back to the alternate stack
        <>

        #Decrement the (second) loop counter
        >[()])

    #Endwhile
    }

    #Pop the now zeroed loop counter
    {}

    #Turn [a] into [a, a*5, a]
    ((({}))<(({})(({}){}){})>)

    #A times....
    {
        ({}<

        #Toggle back over
        <>

        #Grab a*5
        (<>({})<>)

        #That many times...
        {({}<

            #Push a space
            ((((()()()()){}){}()){}())

        >[()])}{}

        #Push a newline
        ((()()()()()){})

        #Toggle back
        <>

        #Decrement the (second) loop counter
        >[()])

    }

    #Pop the loop counter and the a*5
    {}{}

#Decrement the outer loop counter
>[()])
}

#Pop the zeroed loop counter
{}

#Pop a over
({}<>)

#Pushes (a**2) * 5 + a
(({})((({({})({}[()])}{})){}){}{})

#That many times...
{({}<

    #Pop a character off the output stack
    {}

>[()])}

13

6502 মেশিন কোড (সি 64), 59 56 বাইট

00 C0 20 9B B7 A9 06 85 FC 86 FE A6 FE 86 FD A9 03 4D 1F C0 8D 1F C0 C6 FC D0
01 60 A9 23 A0 05 49 00 20 D2 FF CA D0 FA A6 FE 88 D0 F3 A9 0D 20 D2 FF C6 FD
D0 E6 F0 D3

অনলাইন ডেমো

ব্যবহার: SYS49152,Nযেখানে এন 1 এবং 255 এর মধ্যে একটি সংখ্যা।

(4 টিরও বেশি মানগুলি ইতিমধ্যে C64 স্ক্রিনের জন্য খুব বড় হবে 8 থেকে শুরু করে আউটপুটটি আরও প্রশস্ত হবে)

ব্যাখ্যা :

         00 C0       .WORD $C000    ; load address

.C:c000  20 9B B7    JSR $B79B      ; read N into X
.C:c003  A9 06       LDA #$06       ; number of "logical" lines plus 1 for hash
.C:c005  85 FC       STA $FC        ; store in counter variable for lines
.C:c007  86 FE       STX $FE        ; store N in counter variable for char repetitions
.C:c009  A6 FE       LDX $FE        ; load repetition counter
.C:c00b  86 FD       STX $FD        ; store in counter variable for line repetitions
.C:c00d  A9 03       LDA #$03       ; value to toggle the character toggle
.C:c00f  4D 1F C0    EOR $C01F      ; xor character bit toggle
.C:c012  8D 1F C0    STA $C01F      ; store character bit toggle
.C:c015  C6 FC       DEC $FC        ; decrement "logical" lines
.C:c017  D0 01       BNE $C01A      ; not 0 -> continue
.C:c019  60          RTS            ; program done
.C:c01a  A9 23       LDA #$23       ; load hash character
.C:c01c  A0 05       LDY #$05       ; load "logical" columns for hash
.C:c01e  49 00       EOR #$00       ; in each odd "logical" line, toggle character
.C:c020  20 D2 FF    JSR $FFD2      ; output one character
.C:c023  CA          DEX            ; decrement character repetition
.C:c024  D0 FA       BNE $C020      ; not 0 -> back to output
.C:c026  A6 FE       LDX $FE        ; reload character repetition
.C:c028  88          DEY            ; decrement "logical" columns
.C:c029  D0 F3       BNE $C01E      ; not 0 -> back to character toggle
.C:c02b  A9 0D       LDA #$0D       ; line done, load newline character
.C:c02d  20 D2 FF    JSR $FFD2      ; and output
.C:c030  C6 FD       DEC $FD        ; decrement line repetitions
.C:c032  D0 E6       BNE $C01A      ; not 0 -> back to character init
.C:c034  F0 D3       BEQ $C009      ; else back to main loop (toggle char toggling)

স্ক্রিনশট


5
নস্টালজিয়ার জন্য +1 (একটি সি 64 এ 6502 সমাবেশটি ছিল আমার প্রথম প্রোগ্রামিং অভিজ্ঞতা ...)
অলিভিয়ার দুলাক


8

পাইথন 2 , 55 বাইট

def f(n):p=[(" "*n+"#"*n)*2]*n;print(p+["#"*n*5]*n)*2+p

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

এটি অক্ষরের 2D তালিকাকে দেয়।

পাইথন 2 , 65 বাইট

def f(n):p=((" "*n+"#"*n)*2+"\n")*n;print(p+("#"*n*5+"\n")*n)*2+p

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

পাইথন 2 , 66 বাইট

def f(n):p=[(" "*n+"#"*n)*2]*n;print'\n'.join((p+["#"*n*5]*n)*2+p)

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


ওয়াট উইচক্র্যাফটটি হ'ল তল ফুটার
লিকি নুন

লুপের জন্য @ লেকইনুন এ :)
মিঃ এক্সকোডার

না, আমি কোনও f(i);পরীক্ষার ফলাফলটি সংরক্ষণ এবং printএটি অ্যাক্সেস করার বিষয়ে কথা বলছি ।
লিকি নুন

1
@ লেকিউন ইয়া ভুল বুঝেছেন: f(i)প্রিন্ট এবং printপাইথন 2 এ একটি নতুন লাইন যুক্ত করেছে: পি
মিঃ এক্সকোডার

ওহ, আমার কত বোকা।
লিকি নুন

6

কাঠকয়লা , 21 বাইট

NθUOײθ#UOθ F²⟲OO²⁴⁶θ

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। আমি মূলত একটি সুন্দর বিটম্যাপ পদ্ধতির চেষ্টা করেছি:

F⁵F⁵F&|ικ¹«J×ιIθ×κIθUOθ#

এটি অনলাইন চেষ্টা করুন! লিঙ্কটি কোডটির ভার্জোজ সংস্করণ। ব্যাখ্যা: #5 × 5 স্কোয়ারের অ্যারে হিসাবে বিবেচনা করে কাজ করে । বিজোড় সারি বা কলামগুলিতে থাকা স্কোয়ারগুলি পূরণ করতে হবে।


কাঠকয়লায় কি আসলেই অন্তর্নির্মিত হ্যাশট্যাগের আকার নেই?
ডিজাইমা

আমি কি কাঠকয়লা ও_ও বেঁধেছি?
ম্যাজিক অক্টোপাস আরন 21

হ্যাঁ (হুম মনে হচ্ছে আমার এটি কিছুটা ঠিক করা দরকার)
ASCII- কেবল

@ এএসসিআইআই -ই কি ঠিক করতে হবে?
নীল

ওললং বহুভুজ যা অভ্যন্তরীণভাবে লোল ব্যবহার করে সেগুলির জন্য পদক্ষেপগুলি মুদ্রণ করা উচিত নয়
ASCII- কেবল

6

জে, 22 বাইট

#('# '{~#:5$21,0)#~"1]

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

অন্যান্য জে উত্তরের সাথে অনেকটা মিল, যদিও আমি প্রচুর নাম দিয়ে ট্রেনগুলি ভালভাবে বুঝতে পারি না, সুতরাং আমার উত্তরটিতে তিনটি সম্ভাব্য বাইটস কেটে ফেলা হয়েছে (দুটি প্যারেন এবং একটি প্রতিচ্ছবি- ~)-

ব্যাখ্যা

অষ্টকোষ তৈরি হচ্ছে Gene

অক্টথোর্পটি সুবিধার্থে নীচে পুনরুত্পাদন করা প্রথম প্যারেন্টেটিকের সমস্ত কিছু দ্বারা তৈরি।

'# '{~#:5$21,0

অষ্টকর্মকে আমি যেভাবে তৈরি করি তা হ'ল লম্বা সময় না থাকাকালীন জে তার অ্যারেগুলিকে যেভাবে প্যাড করে of

21,0কেবল অ্যারে তৈরি করে 21 0

5$reshapes একটি 5 পরমাণু অ্যারের মধ্যে যে অ্যারের: 21 0 21 0 21

#:প্রতিটি পরমাণুকে বাইনারি সংখ্যায় রূপান্তর করে। যেহেতু #:প্রতিটি পরমাণুর উপর কাজ করে, আউটপুটটি একটি ম্যাট্রিক্স হয়। প্রতিটি প্রত্যাশিত হিসাবে 21প্রতিস্থাপিত হয় 1 0 1 0 1, কিন্তু প্রতিটি 0দ্বারা প্রতিস্থাপিত হয় 0 0 0 0 0! এর কারণ, জে প্যাডগুলি ফলাফলগুলি 2 ডি অ্যারের আকারের সাথে মেলে না যা সারিগুলির 5 5কারণে বাধ্য হতে বাধ্য হয় long 1 0 1 0 1ভাগ্যক্রমে, সংখ্যার জন্য এটি প্যাড করে 0, তাই আমরা ফলাফল ম্যাট্রিক্স পাই

1 0 1 0 1
0 0 0 0 0
1 0 1 0 1
0 0 0 0 0
1 0 1 0 1

'# '{~প্রতিটি পরিবর্তন করে 1একটি স্থান প্রয়োজন এবং 0করতে #{এর অর্থ "গ্রহণ" এবং এর ~অর্থ "ডায়াডিক আর্গুমেন্টগুলি স্যুইচ করুন, সুতরাং জে ম্যাট্রিক্সের প্রতিটি উপাদানকে স্ট্রিংয়ের সূচক হিসাবে দেখেন '# 'যার অর্থ প্রতিটি 0জিরোথ উপাদান হয়ে যায় #এবং প্রতিটি 1প্রথম উপাদান হয়, একটি স্থান হয় This এটি আকারটি একটি অষ্টকোষকে ফলন করে।

অষ্টকোষকে পুনরায় আকার দিন

এটি কেবল nপ্রতিটি অক্ষ বরাবর অনুলিপি করার বিষয়টি যা ব্যবহার করে করা হয়

প্রথম #(যা একটি হুক অংশ) এবং #~"1]#অনুভূমিক অক্ষ #"1বরাবর অনুলিপি এবং উল্লম্ব অক্ষ বরাবর অনুলিপি।


1
##"1&('# '{~#:5$21,0)একটি বাইট সংরক্ষণ করে।
জাগারব

6

সিজেম, 27 26 25 বাইট

{_[{S3*'#*'#5*}3*;]fe*e*}

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

মজাদার ঘটনা: এটি প্রাথমিকভাবে 29 বাইটে শুরু হয়েছিল এবং ব্লক এবং ফুল-প্রোগ্রাম মোডের মধ্যে বিকল্প পরিবর্তে বাইটগুলি একে একে একে অপসারণ করা হয়েছে।

ব্যাখ্যা:

{                          e# Stack:               | 2
 _                         e# Duplicate:           | 2 2
  [                        e# Begin array:         | 2 2 [
   {                       e# Do the following 3 times:
    S                      e#   Push a space       | 2 2 [" "
     3*                    e#   Repeat it 3 times: | 2 2 ["   "
       '#*                 e#   Join with '#':     | 2 2 [" # # "
          '#               e#   Push '#':          | 2 2 [" # # " '#
            5*             e#   Repeat it 5 times: | 2 2 [" # # " "#####"
              }3*          e# End:                 | 2 2 [" # # " "#####" " # # " "#####" " # # " "#####"
                 ;         e# Delete top of stack: | 2 2 [" # # " "#####" " # # " "#####" " # # "
                  ]        e# End array:           | 2 2 [" # # " "#####" " # # " "#####" " # # "]
                   fe*     e# Repeat characters:   | 2 ["  ##  ##  " "##########" "  ##  ##  " "##########" "  ##  ##  "]
                      e*   e# Repeat strings:      | ["  ##  ##  " "  ##  ##  " "##########" "##########" "  ##  ##  " "  ##  ##  " "##########" "##########" "  ##  ##  " "  ##  ##  "]
                        }  e# End
e# Result:
e# ["  ##  ##  "
e#  "  ##  ##  "
e#  "##########"
e#  "##########"
e#  "  ##  ##  "
e#  "  ##  ##  "
e#  "##########"
e#  "##########"
e#  "  ##  ##  "
e#  "  ##  ##  "]

কেউ এই চ্যালেঞ্জের জন্য প্রস্তুত ছিলেন: পি
ইটিএইচ প্রডাকশনগুলি

@ এথ প্রডাকশনগুলি এটি একটি সিএমসি ছিল এবং মূল দিকে চলে গিয়েছিল ...
ফলমূল এছলং

@ ইথ প্রডাকশনগুলি তার জন্য সত্যই তাকে দোষ দিতে পারে না ...
লিকি নুন

6

হুশ , 12 10 বাইট

´Ṫ▲Ṙ" # # 

এটি অনলাইন চেষ্টা করুন! পেছনের স্থানটি নোট করুন।

ব্যাখ্যা

´Ṫ▲Ṙ" # #   Implicit input, e.g. n=2.
   Ṙ" # #   Repeat each character of the string n times: "  ##  ##  "
´Ṫ          Outer product with itself by
  ▲         maximum: ["  ##  ##  ","  ##  ##  ","##########","##########","  ##  ##  ","  ##  ##  ","##########","##########","  ##  ##  ","  ##  ##  "]
            Print implicitly, separated by newlines.

6

জে , 23 19 বাইট

' #'{~1=]+./~@#i:@2

@ লিক্যুনকে ধন্যবাদ 4 টি বাইট সংরক্ষণ করা হয়েছে

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

ব্যাখ্যা

' #'{~1=]+./~@#i:@2  Input: integer n
                  2  The constant 2
               i:@   Range [-2, -1, 0, 1, 2]
        ]            Get n
              #      Copy each n times
         +./~@       GCD table
      1=             Equals 1, forms the hashtag for input 1
' #'{~               Index and select the char

সঙ্কট! আমার নিজের একটি (4 বাইট দীর্ঘ) সলিউশন পোস্ট করতে চলেছিলাম। আপনি কীভাবে ক্যাপগুলি ছাড়াই এবং কয়েকটি সংশ্লেষ দিয়ে এই ফাংশনগুলি রচনা করতে সক্ষম তা দেখে আমি সত্যিই মুগ্ধ হয়েছি।
কোলে

@ কোল ধন্যবাদ কখনও কখনও ক্যাপগুলি একটি বিশেষ্য এবং ডায়াড ব্যবহার করে এড়ানো যায়। উদাহরণস্বরূপ, [:|:fহতে পারে0|:f
মাইল

' # '{~]#"1]#+./~@i:@2একটি বাইট সংরক্ষণ করুন
কনার ও'ব্রায়ান

গুণটি আপনাকে 19 বাইট দেওয়ার আগে পুনরাবৃত্তি করুন:f=:' #'{~1=]+./~@#i:@2
লিকি নুন

1
@hoosierEE এটি 8.06 জে আসার একটি নতুন বৈশিষ্ট্য। আপনি বিটা jsoftware.com/download/j806/install
মাইল

5

জেলি , 14 13 11 বাইট

2 জন বাইট সংরক্ষণ করেছেন @ জোনাথন অ্যালেনকে ধন্যবাদ

5ẋ€Ẏ&þ`ị⁾ #

লাইনের একটি তালিকা ফেরত দেওয়া এক মোনাডিক লিঙ্ক। পেছনের স্থানটি নোট করুন।

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

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

5ẋ€Ẏ&þ`ị⁾ #    Main link. Arguments: n (integer)            1
5              Yield 5.
 ẋ€            Create a range and repeat each item n times. [[1], [2], [3], [4], [5]]
   Ẏ           Tighten; dump all sublists into the main list.
                                                            [1, 2, 3, 4, 5]
     þ         Create a table of                            [[1, 0, 1, 0, 1],
    &          bitwise ANDs,                                 [0, 2, 2, 0, 0],
      `        reusing this list.                            [1, 2, 3, 0, 1],
                                                             [0, 0, 0, 4, 4],
                                                             [1, 0, 1, 4, 5]]
       ị⁾ #    Index into the string " #".                   [" # # ",
               0 -> "#", 1 -> " ", 2 -> "#", etc.             "#####",
                                                              " # # ",
                                                              "#####",
                                                              " # # "]

বিটওয়াস সম্পর্কিত সুন্দর পর্যবেক্ষণ বা - কাছ থেকে স্যুইচ করে এবং যেতে এবং দুটি বাইট বাঁচান - নিচের দিকে প্রয়োজনীয়তা সরিয়ে, অন্তর্নিহিত পরিসীমা মঞ্জুর করে এবং প্রয়োজনীয়তা µ(বা পরিবর্তে আপনি সেখানে থাকতে পারতেন) সরিয়ে দিয়ে ...5ẋ€Ẏ&þ`ị⁾ #
জোনাথন অ্যালান

@ জোনাথন অ্যালান আকর্ষণীয় - কেন 5Ḷẋ€প্রয়োজন হয় µ, তবে প্রয়োজন হয় না 5ẋ€?
ETH প্রোডাকশনগুলি

আমি ভেবেছিলাম প্রয়োজনটি কেবল অভিনয় করা বন্ধ করে দেওয়া nএবং তারপরে ডান দিকে যাওয়া ẋ€, যেহেতু নীলাদ-ডায়াড নেতৃস্থানীয় চেইনটিকে এককভাবে বলা হয় এটি প্রয়োজনীয় নয়। তবে আমি পুরোপুরি নিশ্চিত নই, তবে কীভাবে `টেবিলের ডানদিকে 5 (বা সম্ভবত সেই দৈর্ঘ্যের তালিকা) লাগবে &
জনাথন অ্যালান

4

গেম মেকার ল্যাঙ্গুয়েজ, 138 108 বাইট

n=argument0 s=''for(j=0;j<5*n;j+=1){for(l=0;l<5*n;l+=1)if(j div n|l div n)&1s+='#'else s+=' 's+='
'}return s

কোনও স্ক্রিপ্ট হিসাবে চিহ্নিত করা হয়েছে (ব্যবহারকারী-সংজ্ঞায়িত ফাংশনগুলির জন্য গেম মেকারের নাম), এভাবে n=argument0এবং return s। 20 বাইটগুলি nসরাসরি বর্তমান উদাহরণ থেকে গ্রহণ sকরে ফলাফল হিসাবে ব্যবহার করে শেভ করা যায়। (উদাহরণস্বরূপ এই পরিবর্তনকগুলি যেভাবেই হয় কারণ এগুলি ঘোষিত হয়নি var)।

#গেম মেকারের গ্রাফিক্স স্টাফ দ্বারা বিকল্প নিউলাইন চরিত্র হিসাবে অবশ্যই অবশ্যই ব্যবহার করা উচিত, তাই আপনি \যদি পর্দায় আউটপুট করতে চান তবে আপনি এটির প্রিফিক্স করতে চাইতে পারেন ;)

এছাড়াও নোট করুন যে আমি গেম মেকার 8.0 এর জিএমএলের সংস্করণ ব্যবহার করছি; আধুনিক জিএমএল সংস্করণগুলিতে এমন বৈশিষ্ট্য থাকতে পারে যা অতিরিক্ত বাইট সংরক্ষণ করতে পারে।

বন্ধুদের ধারণা ওয়ারেয়া এবং কর্ডব্যাগের সৌজন্যে কিছু ধারণা।


আমি মনে করি এটি প্রথম জিএমএল উত্তর যা আমি দেখেছি
টিমোথী গ্রুট 15

@TimothyGroote এটা একটা লজ্জা এটি আরো ব্যবহার করা হয় না তার ঐচ্ছিক বন্ধনী এবং সেমিকোলন golfing জন্য মহান আছে, :)
অ্যান্ড্রিয়া

4

পার্ল 5 , 49 + 1 (-পি) = 50 বাইট

$_=' # # 
'=~s/./$&x$_/gre x$_;$_.=(y/ /#/r.$_)x2

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

কিভাবে?

-pপতাকাটির মাধ্যমে সুস্পষ্টভাবে ইনপুটটি $ _ এ সঞ্চয় করুন । " # # "এটির শীর্ষস্থানীয় নতুন লাইনের সাহায্যে সর্বাধিক প্রাথমিক সম্ভাব্য শীর্ষ লাইনটি দিয়ে শুরু করুন । ইনপুট নম্বর দ্বারা এই অক্ষরগুলির প্রতিটি প্রতিলিপি করুন। তারপর octothorpe উপরের অংশ গঠন করে, $ যে ফিরে সব সংরক্ষণকারী ইনপুট সংখ্যা দ্বারা প্রতিলিপি যে । তারপরে ইনপুট সংখ্যার '#' বার দ্বারা প্রতিস্থাপিত সমস্ত অক্ষরের সাথে লাইন যুক্ত করুন। তারপরে উপরের অংশটি যুক্ত করুন। সর্বশেষ দুটি বাক্যটি মোট দুটি বার করুন। $ আউটপুট মধ্যে অন্তর্নিহিত হয় -pপতাকা।


আপনার উত্তরটি আমার মতোই পাঠযোগ্য I
অ্যাডমবর্কবার্ক

তারা সর্বদা বলেছে যে পার্ল কেবল লেখার জন্য ভাষা।
এক্সকালি

3

05 এ বি 1 ই , 25 22 21 বাইট

•LQ•bûε×}5ôεS„# èJ¹F=

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


-1 কারণ এমিগনা প্রতিবর্ণীকরণকে ঘৃণা করে এবং ধন্যবাদ, আমারও মনে করিয়ে দেয় আমারও উচিত: পি।


এটি বিটম্যাপিংয়ের চেয়ে আরও ভাল উপায় হতে হবে ... এখনও কাজ করছে।


প্রতিবিম্ব ... এটি 05AB1E এর উত্তর নয়, যদিও এটির মতো মনে হতে পারে ...
ম্যাজিক অক্টোপাস উরান

5ôεS„# èJ¹F=একটি বাইট সংরক্ষণ করে।
এমিগানা

@ এমিগনা কি এর জন্য ক্যানভাস ভাল লাগবে?
যাদু অক্টোপাস উরন

সম্ভবত। আমি এখনও ক্যানভাস চেষ্টা করি নি তাই আমি এর ক্ষমতা সম্পর্কে সত্যই নিশ্চিত নই। দেখে মনে হচ্ছে এটি এর জন্য তৈরি।
এমিগনা

3

জাভাস্ক্রিপ্ট (ES6), 79 বাইট

f=
n=>[...Array(n*5)].map((_,i,a)=>a.map((_,j)=>` #`[(i/n|j/n)&1]).join``).join`
`
<input type=number oninput=o.textContent=f(this.value)><pre id=o>

বিটম্যাপ পদ্ধতির পোর্ট যা আমি আমার মূল কাঠকয়ালের প্রচেষ্টার জন্য ব্যবহার করেছি।


3

পাইথন 2 , 124 , 116 , 113 , 112 , 98 , 96 66 বাইট

নতুন (ক্রেডিট: হাইপার নিউট্রিনো):

def f(a):i='print(" "*a+"#"*a)*2;'*a;exec(i+'print"#"*a*5;'*a)*2+i

পুরানো:

a=input();b,c="# "
for i in"012":
	exec'print c*a+b*a+c*a+b*a;'*a
	if i<"2":exec'print b*a*5;'*a

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

অবশ্যই সংক্ষিপ্ততম সমাধান নয়, তবে আমি মনে করি এটি শালীন। যেকোন মতামত সাদরে গ্রহণ করা হবে!


1
a,b,c=input()," #"কিছু বাইট সংরক্ষণ করা উচিত।
ডিজেএমসিএমহেম

@ ডিজেএমসিমেহেম যা আমাকে একটি ত্রুটি দিয়েছে। মানে a,b,c=input(),"#"," "? যা কোন ছোট নয় ... আমি সাহায্যের প্রশংসা করি!
ব্রাডেন স্মিথ

ওহ দুঃখিত. আমি ধরে নিয়েছি যে কাজ করেছে কারণ a,b="# "
ডিজেএমসিএমহেম

a=input();b,c="# "বাইট কাজ এবং সংরক্ষণ করবে
গম উইজার্ড

আপনি পেরেনগুলি থেকে মুক্তি পেতে (i==2)এবং শুরুতে একটি স্থান যুক্ত করতে পারেন।
গম উইজার্ড

3

ব্রেন-ফ্লাক , 338 332 বাইট tes

6 বাইট রিলে ধন্যবাদ।

(({}<>)<(())>)(()()()()()){({}<(<>)<>{({}<<>({}<(((((()()()()())){})){}{}{})<>([({})]()){(<{}({}<((((({}))){}){}{}){({}<<>(({}))<>>[()])}{}>)>)}{}(({})<{{}(<(()()()()()){({}<<>(<([{}](((((()()){}){}){}){}()){}())>)<>{({}<<>({}<(({}))>())<>>[()])}<>({}<>{})>[()])}{}>)}>{})<>((()()()()()){})>())<>>[()])}<>({}<>{}<([{}]())>)>[()])}<>

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

আরও "পাঠযোগ্য" সংস্করণ

(({}<>)<(())>)(()()()()())
{({}<(<>)<>{({}<<>({}<(((((()()()()())){})){}{}{})<>
  ([({})]()){(<{}({}<
    ((((({}))){}){}{}){({}<<>(({}))<>>[()])}{}
  >)>)}{}(({})<{{}(<
    (()()()()()){({}<<>(<([{}](((((()()){}){}){}){}()){}())>)<>{({}<<>({}<(({}))>())<>>[()])}<>({}<>{})>[()])}{}
  >)}>{})
<>((()()()()()){})>())<>>[()])}<>({}<>{}<([{}]())>)>[()])}<>

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


(({})<>)(())<>({}<>)শুরুতে এর সাথে প্রতিস্থাপন করা যেতে পারে(({}<>)<(())>)
রিলি

2

এসওজিএল (এসওজিএললাইনলাইন 2940 ডিবি কমিট) , 15 বাইট

ø─Ζ┘Χ⁴‘5n{.∙.*T

এটি চালাতে, এটি ডাউনলোড করুন এবং index.htmlফাইলটিতে কোডটি চালান ।

ব্যবহার করে যে প্রতিশ্রুতিবদ্ধ (এবং তার আগে) *প্রতিটি অক্ষর পুনরাবৃত্তি, পুরো স্ট্রিং নয়।

ব্যাখ্যা:

ø─Ζ┘Χ⁴‘          push " # # ##### # # ##### # # "
       5n        split into lines of length 5
         {       for each line do
          .∙       multiply vertically input times
            .*     multiply horizontally input times
              T    output in a new line

বোনাস: পৃথক এক্স এবং ওয়াই দৈর্ঘ্যের জন্য 2 ইনপুট যুক্ত করুন!


"কমিটমেন্ট 2940dbe" - আমি এই ধারণাটি পছন্দ করি। আপনি ব্যাখ্যা করতে পারেন কেন ø─Ζ┘Χ⁴‘যে ধাক্কা কেন ?
ম্যাজিক অক্টোপাস উরন

1
@ ম্যাজিক অ্যাক্টপাস ইউর্ন এটি এসওজিএলস সংক্ষেপণ, যা এখানে "" একটি অভিধান #এবং এই স্ট্রিংয়ের জন্য প্রয়োজনীয় বেস -২ ডেটা সংরক্ষণ করে।
ডিজাইমা

ঝরঝরে , এটা কি আমার ব্যবহার শুরু করার পক্ষে যথেষ্ট স্থিতিশীল :)?
ম্যাজিক অক্টোপাস উরন

1
@ ম্যাজিক অ্যাক্টোপাস উর্ন ওয়েল এটি বেশ স্থিতিশীল কারণ এসওজিওলাইনলাইন থেকে কোনও উত্তর-ব্রেকিং পরিবর্তন হয়নি, তবে আপনি এটি ব্যবহার করতে পারবেন কিনা (এটি যেমন বুঝতে পেরেছেন) অন্য প্রশ্ন। আপনি চেষ্টা করতে পারেন এবং
টিএনবিতে

হাহাহা ... আমি তখন ডকুমেন্টেশনের জন্য অপেক্ষা করি। আমি একটু coddled প্রয়োজন।
ম্যাজিক অক্টোপাস উরন 21

2

ব্রেনফাক , 224 বাইট

,[->+>>>>+<<<<<]>>>+>+++++[-<<<[->+>>>>>+>+++++[-<<<[->+<<<[->>>>>>+<<[->>>+>---<<<<]<<<<]>>>>>>[-<<<<<<+>>>>>>]>[-<<<+>>>]+++++[->+++++++<]>.[-]<<<<<<]>[-<+>]>[-<->]<+[->+<]>>]<<++++++++++.[-]<<<<<]>[-<+>]>[-<->]<+[->+<]>>]

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

তৈরী করা

আমি এই কোডটি হাতে হাতে তৈরি করার চেষ্টা করেছি এবং বেশ কয়েক ঘন্টা ব্যয় করেছি, তাই আমি পাইথনে ট্রান্সপ্লেলার তৈরি করার সিদ্ধান্ত নিয়েছি।

এই কোডটি তৈরি করতে আমি যে কোডটি লিখেছি তা এখানে:

read(0)
copy(0,(1,1),(5,1))
add(3,1)
add(4,5)
loop(4)
loop(1)
add(2,1)

add(7,1)
add(8,5)
loop(8)
loop(5)
add(6,1)

loop(3)
add(9,1)
loop(7)
add(10,1)
add(11,-3)
end(7)
end(3)
copy(9,(3,1))
copy(10,(7,1))
add(10,5)
copy(10,(11,7))
write(11)
clear(11)

end(5)
copy(6,(5,1))
copy(7,(6,-1))
add(6,1)
copy(6,(7,1))
end(8)
add(6,10)
write(6)
clear(6)

end(1)
copy(2,(1,1))
copy(3,(2,-1))
add(2,1)
copy(2,(3,1))
end(4)

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



2

গাইয়া , 9 বাইট

 # ”ṫ&:Ṁ‡

বেশ জগার্বের দুর্দান্ত উত্তরের একটি বন্দর

এটি অনলাইন চেষ্টা করুন! (পাদলেখটি কেবল প্রিন্ট করার জন্য, প্রোগ্রামটি নিজেই অক্ষরের একটি 2D তালিকা দেয়)

ব্যাখ্যা

 # ”       Push the string " # "
    ṫ      Bounce, giving " # # "
     &     Repeat each character by input
      :    Copy
       Ṁ‡  Tabled maximum with itself

2

বেফুঞ্জ , 105 103 বাইট

p9p&5*08p>08g-   v
>,g1+:00p^v0:/5g8_p9g1+:09p08g-#v_@
gvg90\/\g0< # # ##### 0:/5g8,+55<
^>\/2%5*+92++2

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


আপনি কি কোনও অনলাইন অনুবাদকের সাথে একটি লিঙ্ক যুক্ত করতে পারেন? tio.run/#befunge একটি ভাল একটি আফাইক is
DJMcMayhem


1

পাওয়ারশেল , 72 68 63 60 বাইট

param($a)(,($x=,((' '*$a+"#"*$a)*2)*$a)+,("#"*5*$a)*$a)*2;$x

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

ইনপুট নেয় $a। তারপরে, আমরা একগুচ্ছ যাদু স্ট্রিং এবং অ্যারে ম্যানিপুলেশন করি।

(,($x=,((' '*$a+"#"*$a)*2)*$a)+,("#"*5*$a)*$a)*2;$x
         ' '*$a+"#"*$a                              # Construct a string of spaces and #
        (             )*2                           # Repeat it twice
      ,(                 )*$a                       # Repeat that $a times to get the top as an array
  ($x=                       )                      # Store that into $x and immediately output it
 ,                            +                     # Array concatenate that with ...
                               ,("#"*5*$a)          # another string, the middle bar ...
                                          *$a       # repeated $a times.
(                                            )*2;   # Do that twice
                                                 $x # Output $x again

আউটপুটটি কীভাবে তৈরি করা হয় তা দেখতে নীচের থেকে শুরু করে আপনি ব্যাখ্যাটির অংশগুলি ছাঁটাই করতে পারেন, তাই আশা করি আমার ব্যাখ্যাটি বোধগম্য।


1

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

a#b=a++b++a++b++a
c%l=((c<$l)#('#'<$l))<$l
f n=(' '%[1..n])#('#'%[1..n])

স্ট্রিংগুলির একটি তালিকা ফেরত দেয়। এটি অনলাইন চেষ্টা করুন!

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

a#b=a++b++a++b++a          -- concatenate the strings a and b in the given pattern
c%l=                       -- take a char c and a list l (we only use the length
                           -- of l, the actual content doesn't matter)
    c<$l                   -- make length l copies of c
         '#'<$l            -- make length l copies of '#'
        #                  -- combine them via function #
               <$l         -- and make length l copies of that string
f n=                       -- main function
              #            -- make the "a b a b a" pattern with the strings
                           -- returned by the calls to function %                                
    ' '%[1..n]             --   one time with a space 
               '#'%[1..n]  --   one time with a '#'

1

গণিত, 63 বাইট

ArrayFlatten@Array[x=#;Table[If[OddQ@-##," ","#"],x,x]&,{5,5}]&

ব্যাখ্যা

ArrayFlatten@Array[x=#;Table[If[OddQ@-##," ","#"],x,x]&,{5,5}]&  (* input N *)

                   x=#                                           (* Set x to N *)
                                                      &          (* A function that takes two inputs: *)
                             If[OddQ@-##," ","#"]                (* if both inputs are odd (1), " ". "#" otherwise *)
                       Table[                    ,x,x]           (* Make N x N array of that string *)
             Array[                                     ,{5,5}]  (* Make a 5 x 5 array, applying that function to each index *)
ArrayFlatten@                                                    (* Flatten into 2D array *)

(1) -##পার্স করাTimes[-1, ##]


ArrayFlattenখুব সুন্দর.
মার্ক এস।

1

পাইথন 2, 113 বাইট

স্ট্রিংগুলির একটি অ্যারে হিসাবে:

r=[1-1*(i%(2*n)<n)for i in range(5*n)]
print[''.join(' #'[r[k]+r[j]>0]for k in range(len(r)))for j in range(n*5)]

ASCII শিল্প হিসাবে:

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

r=[1-1*(i%(2*n)<n)for i in range(5*n)]
for j in range(n*5):print(*(' #'[r[k]+r[j]>0]for k in range(len(r))),sep='')

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

p=range(5*n)
for i,e in enumerate([j%(2*n)>=n for j in p]for k in p):print(*[' #'[i%(2*n)>=n or k]for k in e],sep='')

বুলিয়ানগুলির একটি অ্যারে হিসাবে

পাইথন 2, 75 বাইট

p=range(5*n)
f=lambda o:o%(2*n)>=n
print[[f(j)or f(i)for j in p]for i in p]


1
দীর্ঘ সময়, দেখুন :-)
ETH প্রোডাকশনগুলি

হ্যাঁ এটা আছে! @ ইথ প্রডাকশনস
জ্যাচ গেটস

1

জাভা 8, 103 বাইট

Integerলাম্বদা অক্টথরপকে মানক হিসাবে গ্রহণ করে এবং মুদ্রণ করে। কাস্ট Consumer<Integer>

n->{for(int s=5*n,x=0,y;x<s;x++)for(y=0;y<s;)System.out.print((x/n%2+y++/n%2>0?'#':32)+(y<s?"":"\n"));}

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

অবহেলিত ল্যাম্বদা

n -> {
    for (
        int
            s = 5 * n,
            x = 0,
            y
        ;
        x < s;
        x++
    )
        for (y = 0; y < s; )
            System.out.print(
                (x / n % 2 + y++ / n % 2 > 0 ? '#' : 32)
                + (y < s ? "" : "\n")
            );
}

এখানে মূল পর্যবেক্ষণটি হ'ল, 5 বাই 5 গ্রিডে এন বাই এন কোষ, octothorpes যেখানেই থাকুন না কেন সারি বা কলাম সংখ্যা (0 ভিত্তিক) প্রদর্শিত বিজোড় হয়। আমি নিশ্চিত যে এটি সস্তার সাধারণ পদ্ধতির, তবে এটি আরও গল্ফযোগ্য বলে মনে হয়।

প্রাপ্তি স্বীকার

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

1
আপনি int s=5*n,x=0,yসেমিকোলনে একটি বাইট সংরক্ষণ করতে পরিবর্তে ফর লুপটি রাখতে পারেন।
কেভিন ক্রুইজসেন

1

পাইথ , 28 22 বাইট

-6 বাইটস @ লিক্যুনকে ধন্যবাদ জানায়

JsC*]S5Qjmsm@"# "*kdJJ

পরীক্ষা স্যুট.



@ ল্যাকিয়ুন ধন্যবাদ, আমি এখনও পর্যন্ত এই উত্তরটি সত্যই গল্ফ করিনি।
মিঃ এক্সকোডার

1

আর , 87 85 62 বাইট

m=matrix(" ",x<-scan()*5,x);m[s,]=m[,s<-rep(!1:0,e=x/5)]="#";m

সি (এফ, টি) হিসাবে! 1: 0 হিসাবে উপস্থাপন করে 2 বাইট সংরক্ষণ করা হয়েছে, লিকেনুনকে ধন্যবাদ

জিউসেপিকে 23 বাইট সংরক্ষণ করা হয়েছে

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

ব্যাখ্যা (অবরুদ্ধ):

x=scan()*5              # Multiply input by 5 to get the required width/height of the matrix
m=matrix(" ",x,x)       # Create a matrix of the required dimensions
s=rep(!1:0,each=x/5)    # The sequence s consists of F repeated n times, followed by T repeated n times
m[s,]="#"               # Use s as logical indices to set those rows as "#" characters.
                        # R recycles the sequence to the height of the matrix.
m[,s]="#"               # Same, with columns
write(m,"",x,,"")       # Print out across the required number of columns             

এটি টিআইওতে কাজ করে না কারণ এটি পরের লাইনে স্ক্যান করে, যা একটি কোড।
লিকি নুন




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