ความท้าทายนี้คือการที่ง่ายASCII ศิลปะหนึ่ง ด้วยอินพุตสองตัวซึ่งอธิบายความสูงและความกว้างของชิ้นเลโก้คุณได้พิมพ์ภาพศิลปะ ASCII ของมัน

นี่คือลักษณะของเลโก้ที่ควรจะดู:

(4, 2)

___________
| o o o o |
| o o o o |
-----------

(8, 2)

___________________
| o o o o o o o o |
| o o o o o o o o |
-------------------

(4, 4)

___________
| o o o o |
| o o o o |
| o o o o |
| o o o o |
-----------

(3, 2)

_________
| o o o |
| o o o |
---------

(1, 1)

o

หากคุณไม่สามารถบอกได้จากกรณีทดสอบด้านบนและด้านล่างเป็นwidth*2+3ขีดล่างและขีดกลางและแต่ละแถวจะมีท่อสำหรับด้านข้างoเป็นของเล็ก ๆ น้อย ๆ และทุกอย่างจะถูกคั่นด้วยช่องว่าง

ยกเว้นอย่างเดียวสำหรับเรื่องนี้คือซึ่งเป็นเพียงหนึ่งเดียว(1, 1)o

คุณจะไม่ได้รับ0มิติใด ๆ

นี่คือรหัส - กอล์ฟดังนั้นรหัสที่สั้นที่สุดในหน่วยไบต์ชนะ!

var QUESTION_ID=84050,OVERRIDE_USER=31343;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Befunge , 165 227ไบต์

&::&*:1` v
v+3*2:\/\_"o",@
v       _$ v<
>"_",1-:^  2
v:,,"| ",*5<
v         _v
>" o",,1-:^$
>*v>\     #\^
5 #|:-1,"|"<
^2$<
v1, *95<
- >2*3+^
>:    #^_@

ช่องว่างไม่มากเหมือนก่อน แต่ยังมีช่องว่าง หลักการเหมือนกันกับในโซลูชันก่อนหน้า แต่โครงร่างแตกต่างกัน ในครั้งนี้เพื่อตรวจสอบว่าตัวเลขทั้งสองเป็น 1 ฉันแค่นำผลิตภัณฑ์ของพวกเขามาและดูว่าผลลัพธ์นั้นมากกว่า 1 หรือไม่

โซลูชันเก่า (227 ไบต์)

v           v       <
&   >>\:2*3+>"_",1-:|
>&:1`|v ,,"| ",*52:$<   :\<
    #\v         <
     :>" o",,1-:|
     1          >"|",$\1-:|
    \`            @       $
    ^_"o",@>:!    |       2
           ^-1,*95<+3*2,*5<

มันอาจเป็นไปได้ที่จะเล่นกอล์ฟได้มากขึ้น เพียงแค่มองไปที่ทุกสิ่งที่ช่องว่าง!

นี่คือความพยายามของฉันในการอธิบายในรูปแบบภาพ MSPaint: โค้ดไหลไปตามทิศทางของลูกศร

V , 43, 40, 38 36 ไบต์

หนึ่งในคำตอบ V ที่ยาวที่สุดที่ฉันเคยเขียน ...

Àio ddÀPñóo î½o
u2Pí.«/| °|
Vr-HVr_

ลองออนไลน์!

เนื่องจากสิ่งนี้มีอักขระ unicode และ unprintable นี่คือ hexdump แบบย้อนกลับได้:

0000000: c069 6f20 1b64 64c0 50f1 f36f 20ee bd6f  .io .dd.P..o ..o
0000010: 0d0a 7532 50ed 2eab 2f7c 20b0 7c0d 0a56  ..u2P.../| .|..V
0000020: 722d 4856 725f                           r-HVr_

ความท้าทายนี้เกี่ยวกับการจัดการข้อความเหมาะอย่างยิ่งสำหรับ V! ในทางกลับกัน V นั้นแย่มากที่เงื่อนไขและคณิตศาสตร์ดังนั้นผลลัพธ์ที่แตกต่างกันสำหรับ (1, 1) จึงทำให้เมามากขึ้น ... :(

คำอธิบาย:

À                   "Arg1 times:
 io <esc>           "Insert 'o '
         dd         "Delete this line, and
           À        "Arg2 times:
            P       "Paste it

ตอนนี้เรามีบรรทัด 'ความสูง' ของช่องว่างระหว่างพวกเขา

ñ                   "Wrap all of the next lines in a macro. This makes it so that if any 
                    "Search fails, execution will stop (to handle for the [1, 1] case)
 ó                  "Search and replace
  o î½o             "'o'+space+0 or 1 newlines+another 'o'

u                   "Undo this last search/replace
 2P                 "Paste twice
   í                "Search and replace on every line
    .«/| °|         "A compressed regex. This surrounds every non-empty line with bars.

Vr-                 "Replace the current (last) line with '-'
   H                "Move to line one
    Vr_             "Replace this line with '_'

รุ่นที่ไม่ใช่คู่แข่ง (31 ไบต์):

ลองออนไลน์!

รุ่นนี้ใช้คุณสมบัติหลายอย่างที่ใหม่กว่าความท้าทายนี้จะสั้นลง 5 ไบต์!

คำอธิบายที่สอง:

ddÀP

ซึ่งคือ "ลบบรรทัดและวางเป็นnคูณ" ซึ่งจะถูกแทนที่ด้วยÀÄซึ่งคือ "ทำซ้ำบรรทัดนี้nคูณ" (-2 ไบต์)

óo î½o
u

ซึ่งคือ "แทนที่การจับคู่แรกของ regex นี้เลิกทำ" ถูกแทนที่ด้วย

/o î½o

ซึ่งเป็นเพียง "ค้นหาการจับคู่ของ regex นี้" (-1 ไบต์)

และสุดท้ายÒเป็นเพียงคำพ้องความหมายง่ายๆVrซึ่งทั้งสอง "แทนที่อักขระทุกตัวในบรรทัดนี้ด้วย 'x'" (-2 ไบต์)

32รหัสเครื่อง 86 x 16 บิตน้อย endian, 57 54 51 ไบต์

ขอบคุณ 3 ไบต์น้อยลงไปที่ @njjj

เขียนรหัสซ้ำอย่างหนักและจัดการเพื่อลบทิ้งอีก 3 ไบต์

ในรูปหกเหลี่ยม

FCBA6F208D48FFE20492AAEB2389D941D1E14151B05FF3AAEB0BB87C20AB89D992F3AB92AAB00AAA4E7DEF59B02DF3AA91AAC3

อินพุต: BX = ความกว้าง SI = ความสูง DI ชี้ไปที่บัฟเฟอร์ที่รับผลลัพธ์เป็นสตริงที่สิ้นสุดด้วยค่า NULL โดยมีบรรทัดคั่นด้วย "\ n"

ถอดชิ้นส่วน:

fc            cld
ba 6f 20      mov    dx,0x206f      ;Storing ' o' in DX for later use
8d 48 ff      lea    cx,[bx+si-0x1] ;CX=width+height-1
e2 04         loop   _main0         ;--CX & brahch if not zero
92            xchg   dx,ax          ;(1,1) case, swap DX & AX
aa            stosb                 ;AL == 'o', CX == 0
eb 23         jmp    _end
_main0:
89 d9         mov    cx,bx
41            inc    cx
d1 e1         shl    cx,1
41            inc    cx           ;Calculate (width+1)*2+1
51            push   cx           ;and save it for future use
b0 5f         mov    al,0x5f      ;'_'
f3 aa         rep    stosb        ;Output the whole line of them
eb 0b         jmp    _loopstart   ;Jump into the loop
_loop:
b8 7c 20      mov    ax,0x207c    ;' |'
ab            stosw               ;Output it once (left bar + space)
89 d9         mov    cx,bx        ;Copy width
92            xchg   dx,ax        ;AX == ' o'
f3 ab         rep    stosw        ;Output it CX times
92            xchg   dx,ax        ;Swap values back, AL == '|'
aa            stosb               ;Output only the right bar
_loopstart:
b0 0a         mov    al,0x0a      ;Newline. Can be replaced with mov ax,0x0a0d for windows newline
aa            stosb               ;convention (at the cost of 1 byte), with stosb replaced with stosw
4e            dec    si           ;Height--
7d ef         jge    _loop        ;Continue if si >= 0 (this accounts for the dummy first pass)
59            pop    cx
b0 2d         mov    al,0x2d      ;'-'
f3 aa         rep    stosb        ;Output bottom line
_end:
91            xchg   cx,ax        ;CX == 0, so swap to get zero in AL
aa            stosb               ;NULL-terminate output
c3            retn

Python 2, 75 73 72 ไบต์

lambda x,y:(x*'__'+'___\n'+('| '+'o '*x+'|\n')*y+'-'*(x*2+3),'o')[x<2>y]

ส่งคืนสตริงโดยมีเงื่อนไขเพื่อจัดการบล็อก 1,1

ขอบคุณ Lynn และ Chepner สำหรับสองไบต์

CJam, 34

'_q~'o*"||"\*S*f*f+'-f+zN*_,H='o@?

ลองออนไลน์

คำอธิบาย:

'_        push a '_' character
q~        read and evaluate the input (height and width)
'o*       repeat the 'o' character <width> times
"||"\*    join the "||" string by the string of o's (putting them in between)
S*        join with spaces (inserting a space between every 2 characters)
f*        repeat each character <height> times, making it a separate string
f+        prepend '_' to each string
'-f+      append '-' to each string
z         transpose the array of strings
N*        join with newlines; lego piece is ready, special case to follow
_,        duplicate the string and get its length
H=        compare with H=17
'o        push 'o' for the true case
@         bring the lego piece to the top for the false case
?         if the length was 17, use 'o' else use the lego piece

Ruby, 59 56 ไบต์

ฟังก์ชั่นไม่ระบุชื่อส่งคืนสตริงหลายบรรทัด ลองออนไลน์!

-3 ไบต์ขอขอบคุณการยืมเคล็ดลับจาก @ El'endiaStarman

->w,h{w*h<2??o:?_*(x=2*w+3)+$/+(?|+' o'*w+" |
")*h+?-*x}

Java, 318 312 297 294 260 258 ไบต์

บันทึก 15 ไบต์ด้วยหน้าผา !

interface a{static void main(String[]A){int b=Byte.valueOf(A[0]),B=Byte.valueOf(A[1]),C=3+b*2;String c="";if(b<2&B<2)c="o";else{for(;C-->0;)c+="_";for(;B-->0;){c+="\n|";for(C=b;C-->0;)c+=" o";c+=" |";}c+="\n";for(C=3+b*2;C-->0;)c+="-";}System.out.print(c);}}

มันทำงานร่วมกับอาร์กิวเมนต์บรรทัดคำสั่ง

Ungolfedในรูปแบบที่มนุษย์อ่านได้:

interface a {
    static void main(String[] A) {
        int b = Byte.valueOf(A[0]),
            B = Byte.valueOf(A[1]),
            C = 3 + b*2;
        String c = "";
        if (b < 2 & B < 2)
            c = "o";
        else {
            for (; C-- > 0;)
                c += "_";
            for (; B-- > 0;) {
                c += "\n|";
                for (C = b; C-- >0;)
                    c += " o";
                c += " |";
            }
            c += "\n";
            for(C = 3 + b*2; C-- >0;)
                c += "-";
        }
        System.out.print(c);
    }
}

ใช่มันยังยากที่จะเข้าใจว่าเกิดอะไรขึ้นแม้ในขณะที่โปรแกรมไม่ได้รับการตีกอล์ฟ ดังนั้นนี่คือคำอธิบายทีละขั้นตอน:

static void main(String[] A)

อาร์กิวเมนต์บรรทัดคำสั่งสองข้อแรก - ซึ่งเราจะใช้รับขนาด - สามารถใช้ในโปรแกรมเป็นA[0]และA[1](ตามลำดับ)

int b = Byte.valueOf(A[0]),
    B = Byte.valueOf(A[1]),
    C = 3 + b*2;
String c = "";

bคือจำนวนคอลัมน์BคือจำนวนแถวและCเป็นตัวแปรเฉพาะสำหรับใช้ในforลูป

cเป็นชิ้นเลโก้ เราจะต่อท้ายแถวแล้วพิมพ์มันในตอนท้าย

if (b < 2 & B < 2)
    c = "o";
else {

หากชิ้นส่วนที่จะพิมพ์มีขนาด 1x1 ดังนั้นทั้งสองb(จำนวนคอลัมน์) และB(จำนวนแถว) ควรมีขนาดเล็กกว่า 2 ดังนั้นเราจึงกำหนดcให้เป็นชิ้นเดียวoแล้วข้ามไปยังคำสั่งที่System.out.printเป็นชิ้นถ้าเป็นกรณี

for (; C-- > 0; C)
    c += "_";

ที่นี่เราผนวกขีดไป(integerValueOfA[0] * 2) + 3 cนี่คือแถวบนสุดเหนือหลุมทั้งหมด

for (; B > 0; B--) {
    c += "\n|";
    for(C = b; C-- > 0;)
        c+=" o";
    c += " |";
}

นี่คือลูปที่เราสร้างชิ้นส่วนทีละแถว สิ่งที่เกิดขึ้นภายในเป็นไปไม่ได้ที่จะอธิบายโดยไม่มีตัวอย่าง สมมติว่าชิ้นส่วนคือ 4x4:

Before entering the loop, c looks like this:
___________

After the first iteration (\n denotes a line feed):
___________\n
| o o o o |

After the second iteration:
___________\n
| o o o o |\n
| o o o o |

After the third iteration:
___________\n
| o o o o |\n
| o o o o |\n
| o o o o |

.

c += "\n";
for (C = 3 + b*2; C-- > 0;)
    c += "-";

ที่นี่เราใส่(integerValueOfA[0] * 2) + 3เครื่องหมายขีดคั่นต่อท้าย นี่คือแถวที่ด้านล่างสุดใต้รูทั้งหมด

ชิ้นส่วน 4x4 ที่ฉันใช้อธิบายforวงที่ชิ้นส่วนถูกสร้างจริงตอนนี้มีลักษณะเช่นนี้:

___________\n
| o o o o |\n
| o o o o |\n
| o o o o |\n
| o o o o |\n
-----------

System.out.print(c);

และในที่สุดเราพิมพ์ชิ้น!

Minkolang 0.15 , 58 57 56 ไบต์

ถูกต้องเลย. ผมแข็งแรงเล่นกอล์ฟออกหนึ่งสองเหม็นไบต์เล็ก ๆ น้อย ๆ ...

nn$d*1-5&"o"O.rd2*3+$z1$([" o"]" ||"2Rlkr$Dlz["-_"0G]$O.

ลองที่นี่!

คำอธิบาย

nn                Take two numbers from input (stack is now [w h])

                  C special case C
  $d              Duplicate stack
    *1-           Multiply and subtract 1
       5&         Jump 5 spaces if truthy
         "o"O.    Top of stack was 1*1-1=0, so output "o" and stop.

                     C precalculates width of top and bottom lines for later use C
         r           Reverse stack (now [h w])
          d          Duplicate top of stack
           2*3+      Multiply top of stack by 2 and add 3
               $z    Pop this and store in register (z = 2*w+3)

                                       C generates the row C
                 1$(                   Open while loop prepopulated with top of stack
                    [" o"]             w times, push "o "
                          " ||"        Push "|| "
                               2R      Rotate twice to the right
                                 l     Push newline (10)
                                  k    Break out of while loop

                                           C duplicates the row h times C
                                   r       Reverse stack
                                    $D     Duplicate whole stack h times
                                      l    Push newline

                     C this is for the top and bottom lines C
        z[           Open for loop that repeats z times
          "-_"       Push "_-"
              0G     Relocate top of stack to bottom of stack
                ]    Close for loop

                 $O.    Output whole stack as characters and stop.

โอเคนั่นคือการเขียนคำอธิบายที่สำคัญสองครั้งสำหรับการบันทึกสองไบต์ ฉันไม่คิดว่าฉันจะทำได้หรือจะออกอะไรมากกว่านี้ : P

brainfuck, 391 ไบต์

ฉันรู้ว่าสิ่งนี้สามารถเล่นกอล์ฟได้มากขึ้น แต่ ณ จุดนี้ฉันแค่ดีใจที่มันได้ผล ฉันจะทำงานต่อไปเพื่อลงสนามกอล์ฟ

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

ต้องป้อนค่าให้เป็นตัวเลขสองหลัก ในขณะที่การทำคุณก็จะป้อน(8, 2)82

ลองออนไลน์!

ชำรุด:

ก่อนอื่นให้ใส่อักขระที่จำเป็นลงในเทป: (newline)| o_-

+++++[-<+++[-<+++<++++++<+++++++<++<++++++++>>>>>]<<+<+<<+<++>>>>>>>]<<<<+<++<->>>>>

จากนั้นรวบรวมอินพุตเป็นสองเซลล์และลบ 48 จากแต่ละ (เพื่อรับค่าตัวเลขไม่ใช่อักขระตัวเลข)

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

ถัดไปตรวจสอบกรณีพิเศษของ(1, 1)(โปรดทราบว่าเฉพาะการตรวจสอบนี้บัญชีรหัส 109 ไบต์) ราวกับว่าifมันไม่ยากพอที่จะทำใน brainfuck เรามีรังif:

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

ต่อไปนี้เป็นโครงสร้างเพื่อตรวจสอบว่าเซลล์ x เป็นศูนย์หรือไม่เป็นศูนย์:

temp0[-]+
temp1[-]
x[
 code1
 temp0-
 x[temp1+x-]
]
temp1[x+temp1-]
temp0[
 code2
temp0-]

อย่างไรก็ตามในที่ซ้อนกันifเราต้องมี 4 เซลล์ชั่วคราว

ตอนนี้เรามาถึงการพิมพ์ตัวอักษรที่แท้จริง:

พิมพ์แถบด้านบนและขึ้นบรรทัดใหม่:

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

พิมพ์ a |, แถวของอีกแถวoหนึ่ง|และขึ้นบรรทัดใหม่หลายครั้งเท่ากับความสูง:

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

และพิมพ์แถบด้านล่าง (ไม่จำเป็นต้องขึ้นบรรทัดใหม่ที่นี่):

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

เรติน่า 52 ไบต์

จำนวนไบต์ถือว่าการเข้ารหัส ISO 8859-1 โปรดทราบว่าบรรทัดที่หกควรมีช่องว่างเดียว

\G1?
$_¶
1* 



.+
|$&|
\G.
_
r`.\G
-
s`^.{17}$|1
o

ลองออนไลน์!

อินพุตมีค่าเป็นยูนารีใช้1เป็นเลขหลักในอวกาศเป็นตัวคั่นและความสูงตามด้วยความกว้าง

คำอธิบาย

ขั้นตอนทั้งหมดในโปรแกรมนี้เป็นการทดแทนแบบเปลือยบางครั้งด้วยตัวดัดแปลง regex ปกติ (ไม่มีการทำซ้ำหรือวนซ้ำไม่มีขั้นตอนประเภทอื่น) มันไม่ได้ใช้ฟีเจอร์การแทนที่เฉพาะ Retina ด้วยนอกเหนือจาก¶ฉายาปกติสำหรับ linefeeds

\G1?
$_¶

วัตถุประสงค์ของสิ่งนี้คือเพื่อ "คูณ" อินพุตทั้งสอง เป้าหมายของเราคือการสร้างh+2แถวที่มีw 1แต่ละแถว ( h+2เพื่อให้เราสามารถเปลี่ยนด้านบนและด้านล่างเป็น_และ-ต่อมา) \Gสมอต้องใช้การแข่งขันจะเริ่มต้นที่คนสุดท้ายซ้ายปิด นั่นคือถ้าเราล้มเหลวในการจับคู่อักขระในสตริงอักขระอื่น ๆ จะไม่ตรงกันเช่นกัน เราใช้สิ่งนี้เพื่อจับคู่เฉพาะ1ในhแต่ไม่ใช่wเพราะ regex ไม่อนุญาตให้มีพื้นที่ที่แยกพวกเขาจะจับคู่ อย่างไรก็ตามเรายังทำให้ตัวเลือกเพื่อที่เราจะได้รับการจับคู่ที่ว่างเพิ่มเติมในตอนท้ายของ1 hนั่นคือการh+1แข่งขัน แต่ละรายการจะถูกแทนที่ด้วยอินพุตทั้งหมด ( $_) ตามด้วยตัวป้อนบรรทัดwตัวเองยังคงไม่มีใครแตะต้องซึ่งให้เราh+2สำเนาที่สอง พูดว่าอินพุตเป็น11 1111ตอนนี้เราได้รับ:

11 1111
11 1111
11 1111
 1111

นั่นเป็นสิ่งที่ดีงาม เรามีสิ่งพิเศษบางอย่าง แต่h+2สำเนาwอยู่ที่นั่น

1* 

โปรดทราบว่ามีช่องว่างที่ท้ายบรรทัดแรก สิ่งนี้จะลบคำนำหน้าเหล่านั้นออกจากบรรทัดเพื่อที่เราจะได้เพียงws หลังจากนั้น

อืมนั่นมันใช้ไม่ได้กับการจัดรูปแบบของ SE ... บรรทัดแรกว่างเปล่าและบรรทัดที่สองควรมีช่องว่างเดียว สิ่งนี้จะแทรกช่องว่างในทุกตำแหน่งที่เป็นไปได้เช่นที่จุดเริ่มต้นและจุดสิ้นสุดของแต่ละบรรทัดและระหว่างทุกคู่ของ1s:

 1 1 1 1 
 1 1 1 1 
 1 1 1 1 
 1 1 1 1 

เราจะเปลี่ยนสิ่งเหล่านี้เป็นos ในภายหลัง

.+
|$&|

สิ่งนี้จะห่อทุกบรรทัดในคู่ของ|:

| 1 1 1 1 |
| 1 1 1 1 |
| 1 1 1 1 |
| 1 1 1 1 |

ตอนนี้เราดูแลส่วนบนและส่วนล่าง:

\G.
_

เวลาที่\Gจะส่องแสงอีกครั้ง _นี้ตรงกับตัวอักษรในบรรทัดแรกของแต่ละคนและเปลี่ยนมันเป็น

r`.\G
-

สิ่งเดียวกัน แต่เนื่องจากการrปรับปรุง (ขวาไปซ้ายโหมด) นี้ตรงกับตัวอักษรบนที่ผ่านมา-สายและเปลี่ยนไปเป็น ดังนั้นตอนนี้เรามี:

___________
| 1 1 1 1 |
| 1 1 1 1 |
-----------

มีเพียงสองสิ่งที่ต้องทำในขณะนี้: เปลี่ยนสิ่งเหล่านั้น1เป็นos และหากอินพุต1 1นั้นเปลี่ยนทั้งสิ่งให้เป็นoแทน เราสามารถจัดการทั้งสองอย่างด้วยขั้นตอนเดียว:

s`^.{17}$|1
o

sเป็นโหมด singleline ปกติ (เช่นทำให้การ.จับคู่ linefeeds) ถ้าใส่เป็น1 1ผลที่ได้จะมีขนาดต่ำสุด 17 ตัวอักษรเพื่อให้เราสามารถตรงกับและแทนที่ด้วย^.{17}$ oมิฉะนั้นถ้าที่ล้มเหลวเราจะเป็นเพียงแค่ตรงทั้งหมด1และแทนที่ผู้ที่มีoแทน

Jolf, 36 ไบต์

?w*jJρΡ,a+3ώj+2J'-"-+"d*'_lH"  ' o'o
?w*jJ                             'o   return "o" if j * J - 1
       ,a                              make a box
         +3ώj                           of width +3ώj = 3+2*j
             +2J                        of height +2J = 2+J
                '-                      specifying corners as "-"
      Ρ           "-+"                 replacing the first run of "-"s
                      d*'_lH            with a run of "_"s of equal length
     ρ                      "  '       replacing all "  "
                               ' o      with " o"

Jolf, 24 ไบต์, ไม่ใช่การแข่งขัน

ดีฉันสร้างกล่องที่ดีขึ้น

?w*jJ,AhώjJ"_-'_-'|' o'o

Jolf, 38 37 ไบต์

?w*jJΆ+*'_γ+3ώjS*JΆ'|*j" o' |
"*'-γ'o

เรื่องง่าย ๆ จริงๆ บันทึกไบต์โดยสังเกตว่า!Ζ(math zeta หรือ stand deviance) เป็นเพียง 0 เมื่อทั้งสองอาร์กิวเมนต์มีค่า 1 และเป็นเท็จอย่างอื่น (สำหรับกรณีของเรา)

05AB1E , 33 ไบต์

รหัส:

*i'oë¹·3+©'_׶²F'|„ o¹×„ |¶}®'-×J

คำอธิบาย:

*i'o                               # If both input equal 1, push "o"
    ë                              # Else, do...
     ¹·3+                          # Push input_1 × 2 + 3
         ©                         # Copy this number to the register
          '_×                      # Multiply by "_"
             ¶                     # Push a newline character
              ²F           }       # Do the following input_2 times:
                '|                 # Push "|"
                  „ o              # Push " o"
                     ¹×            # Multiply this by input_1
                       „ |         # Push " |"
                          ¶        # Push a newline character
                            ®      # Retrieve the value from the register
                             '-×   # Multiply by "-"
                                J  # Join everything and implicitly print.

ใช้การเข้ารหัสCP-1252 ลองออนไลน์! .

JavaScript (ES6), 89 86 ไบต์

(x,y,g=c=>c[r=`repeat`](x*2+3))=>x*y-1?g(`_`)+`
`+`| ${`o `[r](x)}|
`[r](y)+g(`-`):`o`

แก้ไข: บันทึกแล้ว 3 ไบต์ด้วย @Shaggy

Python 2, 71 ไบต์

lambda x,y:('o',x*'__'+'___\n'+'| %s|\n'%('o '*x)*y+'-'*(x*2+3))[x+y>2]

Befunge, 144 ไบต์

ฉันต้องการที่จะแสดงความคิดเห็นกับโพสต์นี้แต่ฉันยังไม่มีชื่อเสียงดังนั้นฉันจึงตอบคำถามของตัวเองซึ่งทำงานในลักษณะเดียวกัน แต่มีขนาดเล็กกว่าเล็กน้อย

&::&*:1`v
v3*2:\/\_"o",@
>+:  v   >52*," |",, v
>,1-:vLEG O MAKERv::\<
^"_" _$\:|<v "o "_v
v52:+3*2$<,>,,1-:^$
>*,v <    ^"|":-1\<
v-1_@,
>:"-"^

คุณสามารถทดสอบรหัสได้ที่นี่

Reng v.4, 82 ไบต์, ไม่ใช่การเข้ารหัส

ฉันผลักแก้ไขข้อบกพร่องที่แก้ไขฟังก์ชั่นที่ถูกเขียนทับด้วยตัวเอง (โปรดอย่าถาม; สิ่งที่ฉันมีผีสิง)

i#wi#hhw+2e1+ø ~*x}o:{"-"ö<
"_"{:o}w2*3+#xx*2ø
"o"o~
ö"|"o"o"{Wo:o}w*"| "ooh1-?^#h

4 2จะเข้าเป็นตัวเลขที่พื้นที่เข้าร่วมเช่น ลองที่นี่!

PowerShell v2 +, 76 ไบต์

param($x,$y)if($x+$y-2){"_"*($z=$x*2+3);"|$(" o"*$x) |`n"*$y+'-'*$z;exit}"o"

รับอินพุตจากนั้นตรวจสอบifคำสั่ง ตั้งแต่ค่าที่ไม่ใช่ศูนย์มีtruthyใน PowerShell ตราบใดที่อย่างน้อยหนึ่ง$xและ$yจะไม่เท่ากันในการ1ที่ifจะเป็นจริง

ข้างในifนั้นมีชุดของการคูณสตริง อันดับแรกเราสร้างสตริงของเครื่องหมายขีดล่าง$zเพื่อบันทึกในภายหลัง ที่ได้รับการวางบนท่อ ต่อไปเราสร้างสตริงของด้านและหมุด (ด้วยหมุดคูณด้วย$x), $yเวลาที่ทำและเชื่อมต่อกับ$zเวลาขีดกลางของเรา exitสตริงที่มีอยู่แล้วในท่อและเรา ไปป์ไลน์ถูกฟลัชและการพิมพ์เป็นนัย โปรดทราบว่าเราได้รับการขึ้นบรรทัดใหม่ระหว่างขีดล่างและแถวแรกของหมุดฟรีเนื่องจาก.ToString()ตัวคั่นเริ่มต้นสำหรับเอาต์พุตอาร์เรย์คือ`n(และเรากำลังแสดงอาร์เรย์ของสตริง)

หากifเป็นเท็จเราอยู่ใน1 1กรณีพิเศษดังนั้นเราจึงวาง"o"มันบนท่อและทางออกด้วยการพิมพ์อีกครั้งโดยปริยาย

ตัวอย่าง

PS C:\Tools\Scripts\golfing> .\print-a-lego-piece.ps1 1 1
o

PS C:\Tools\Scripts\golfing> .\print-a-lego-piece.ps1 5 3
_____________
| o o o o o |
| o o o o o |
| o o o o o |
-------------

Bash, 186 , 163 , 156 , 148 , 131 , 130 Bytes

 ## Arg1 - Lego width
 ## Arg2 - Lego height 
function print_lego() { 
(($1+$2>2))&&{
printf _%.0s `seq -1 $1`
echo
for((i=$2;i--;)){ 
 printf \|
 for((j=$1;j--;)){
  printf o
 }
 echo \| 
}
printf =%.0s `seq -1 $1`
echo 
}||echo o
}

หมายเหตุ: หากคุณต้องการให้เลโก้มียัติภังค์สำหรับบรรทัดสุดท้ายจริงๆแล้วเปลี่ยน printf ล่าสุดเป็น

printf -- -%.0s `seq -1 $1`

และเพิ่มสองไบต์

Perl 5 - 84 77 ไบต์

84 ไบต์

sub l{($x,$y)=@_;$w=3+2*$x;warn$x*$y<2?"o":'_'x$w.$/.('| '.'o 'x$x."|\n")x$y.'-'x$w}

77 ไบต์ ด้วยความช่วยเหลือจากDom Hastings

sub l{($x,$y)=@_;$x*$y<2?o:'_'x($w=3+2*$x).('
| '.'o 'x$x."|")x$y.$/.'-'x$w}

C, 202 191 ไบต์

#define p printf
i,w,h;t(char*c){for(i=0;p(c),++i<w*2+3;);p("\n");}f(){t("_");for(i=0;i<w*h;)i%w<1?p("| o "):p("o "),i++%w>w-2&&p("|\n");t("-");}main(){scanf("%d %d",&w,&h);w*h<2?p("o"):f();}

ขอบคุณ@Lince Assassino ที่ ประหยัด 11 ไบต์!

Ungolfed:

#include <stdio.h>
#define p printf

int i, w, h;

void t(char *c)
{
    for(i=0; p(c), ++i<w*2+3;);
    p("\n");
}

void f()
{
    t("_");
    for(i=0; i<w*h;)
    {
        i%w<1 ? p("| o ") : p("o ");
        i++%w>w-2 && p("|\n");
    }
    t("-");
}

int main()
{
    scanf("%d %d", &w, &h);
    w*h<2 ? p("o") : f();
}

หมากฝรั่งอบเชย, 32 ไบต์

0000000: 6c07 d5f5 7a5d 9cdf 5ae6 52ae 4050 0c35  l...z]..Z.R.@P.5
0000010: 18d9 052f 0082 9b42 e7c8 e422 5fe4 7d9f  .../...B..."_.}.

ไม่ใช่การแข่งขัน ลองออนไลน์ ข้อมูลที่ป้อนต้องอยู่ในรูปแบบที่แน่นอน[width,height]โดยไม่มีช่องว่างระหว่างเครื่องหมายจุลภาคและความสูง

คำอธิบาย

สตริงขยายตัวถึงสิ่งนี้:

l[1,1]&o;?&`p___~__~
%| ~o ~|
%---~--~

lขั้นตอนแรกแมป[1,1]กับo(กรณีพิเศษ) และทุกอย่างอื่นกับสตริง

`p___~__~
%| ~o ~|
%---~--~

Backtick จะส่งสัญญาณการเริ่มต้นของขั้นตอนที่สอง แทนที่จะเอาท์พุทสตริงนั้น CG ตัดออกจาก backtick และดำเนินการกับสตริง pโหมดแล้วซ้ำทุกตัวอักษรที่อยู่ภายในตัวหนอนพารามิเตอร์แรก (กว้าง) ครั้งแล้วหลังจากนั้นซ้ำตัวละครภายในเครื่องหมายเปอร์เซ็นต์พารามิเตอร์ที่สอง (สูง) ครั้ง ดังนั้น[4,2]มันจึงกลายเป็น:

___________
%| o o o o |
%-----------

แล้วเข้าไปใน:

___________
| o o o o |
| o o o o |
-----------

แบตช์172 170 ไบต์

@echo off
if "%*"=="1 1" echo o&exit/b
set o=
for /l %%i in (1,1,%1)do call set o=%%o%% o
echo ---%o: o=--%
for /l %%i in (1,1,%2)do echo ^|%o% ^|
echo ---%o: o=--%

แก้ไข: บันทึก 2 ไบต์ขอบคุณ@ CᴏɴᴏʀO'Bʀɪᴇɴ @ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ

ฉันสามารถบันทึกได้ 7 ไบต์หากฉันสามารถสันนิษฐานได้ว่าการเปิดใช้งานการขยายล่าช้า

เป็นกลุ่ม 56 การกดแป้น

ดูเหมือนว่าจะเป็นงานแก้ไขข้อความดังนั้น Vim จึงเป็นตัวเลือกที่ชัดเจน! ฉันรับอินพุตเป็นไฟล์ข้อความที่มีจำนวนเต็มสองช่องว่างคั่นและส่งคำตอบออกเป็นไฟล์เดียวกัน นอกจากนี้ฉันเกลียดคุณที่มีคดีพิเศษ 1x1 ...

"adt l"bDro:if@a*@b==1|wq|en<cr>Di| |<esc>@aio <esc>yy@bPVr_GpVr-ZZ

และหากไม่มีกรณีพิเศษ 35 การกดแป้น

"adt x"bDi| |<esc>@aio <esc>yy@bPVr_GpVr-ZZ

รายละเอียดสำหรับคนที่มีสติ:

"adt l"bD

ลบตัวเลขจากบัฟเฟอร์ลงใน @a และ @b (เก็บถ่านอวกาศไว้)

         ro:if@a*@b==1|wq|en<cr>

แทนที่ช่องว่างด้วย "o" และถ้าเป็นกรณีพิเศษให้บันทึกและออก

                                Di| |<esc>

เคลียร์เส้นและเขียนขอบของบล็อกเลโก้

                                          @aio <esc>

ใส่ @a จำนวนมาก "o" เพื่อให้ได้ส่วนตรงกลางเสร็จ

                                                    yy@bP

ดึงเส้นแล้วสร้าง @b พิเศษ (หนึ่งชุดมากเกินไป)

                                                         Vr_

เราอยู่ที่ด้านบนของบัฟเฟอร์แทนที่บรรทัดเพิ่มเติมด้วยขีดล่าง

                                                            Gp

ข้ามไปที่ด้านล่างของบัฟเฟอร์ดึงบรรทัดที่เราดึงไว้ก่อนหน้านี้

                                                              Vr-ZZ

แทนที่บรรทัดด้วยขีดกลางบันทึกและออก

Pyth, 38 ไบต์

?t*QJEjb+sm\_K+\|+j\o*dhQ\|+mKJsm\-K\o

ชุดทดสอบ

Haskell, 76 ไบต์

1#1="o"
w#h|f<-w*2+3=f!"_"++'\n':h!('|':w!" o"++" |\n")++f!"-"
n!s=[1..n]>>s

ตัวอย่างการใช้งาน: 3 # 2ให้สตริงหลายบรรทัดสำหรับอิฐ 3 คูณ 2

Ungolfed:

(#) :: Int -> Int -> String
1     #   1    = "o"
width # height = let longWidth = 2 * width + 3 in -- golfed as 'f'
                      (        longWidth `times` "_"  ++   "\n" )
  ++ height   `times` ( "|" ++     width `times` " o" ++ " |\n" )
  ++                  (        longWidth `times` "-"            )

-- | golfed as (!)
times :: Int -> [a] -> [a]
times n s = concat $ replicate n s

Groovy, 107 , 98 , 70 , 64

{x,y->t=x*2+3;x<2&&y<2?"o":'_'*t+"\n"+"|${' o'*x} |\n"*y+'-'*t}

การทดสอบ:

(2,2)
(1,1)
(8,2)
(1,4)
_______
| o o |
| o o |
-------
o
___________________
| o o o o o o o o |
| o o o o o o o o |
-------------------
_____
| o |
| o |
| o |
| o |
-----

Befunge, 114 113 108 101 ไบต์

ฉันรู้ว่ามีโซลูชั่น Befunge อยู่จำนวนหนึ่งแล้ว แต่ฉันค่อนข้างมั่นใจว่าพวกเขาสามารถปรับปรุงได้โดยการใช้แนวทางที่แตกต่างกับเค้าโครงของโค้ด ฉันสงสัยว่าคำตอบนี้สามารถตีกอล์ฟได้ต่อไปเช่นกัน แต่มันก็ค่อนข้างเล็กไปกว่ารายการก่อนหน้านี้

&::&+:2`^|,+55_"_",^
-4:,,"| "<\_|#:+1\,,"|"+55$_2#$-#$" o",#!,#:<
  ,"-"_@#:-1<
 :*2+2\-_"o",@v!:-1<

ลองออนไลน์!

APL, 46 ไบต์

{⍵≡1 1:'o'⋄'-'⍪⍨'_'⍪'|',' ','|',⍨'o '⍴⍨1 2×⌽⍵}

ยาม: ⍵≡1 1:'o'สำหรับกรณีพิเศษ มิฉะนั้น'o '⍴⍨1 2×⌽⍵จะสร้างเนื้อหา และที่เหลือก็เป็นแค่มวย

C #, 198 ไบต์

void f(int x,int y){int l=x*2+3;Console.Write(y==x&&x==1?"o":s("_",l)+"\n"+s("|"+s(" o",x)+" |\n",y)+s("-",l));}string s(string m,int u){return string.Join("",new string[u].Select(n=>m).ToArray());}

รวดเร็วและสกปรก

ฉันต้องเขียนฟังก์ชั่นที่คูณสตริง

ungolfed (สำหรับคำแนะนำ)

public static void f(int x,int y)
{
    int l=x*2+3;
    Console.Write(y == x && x == 1 ? "o" : s("_",l)+"\n"+ s("|" + s(" o", x) + " |\n", y) + s("-",l));

}
public static string s(string m,int u)
{
    return string.Join("", new string[u].Select(n => m).ToArray());
}

คู่, 97 95 86 ไบต์

@(w,h){[a=~(1:w*2+3)+95;repmat(['| ' repmat('o ',1,w) '|'],h,1);~a+45],'o'}{(w*h<2)+1}

ฉันใช้วิธีการ@atlasologistใน Python เพื่อทดสอบ(1, 1):(...,'o')[x<2>y]

ขอบคุณ@Luis Mendoสำหรับการบันทึก 7 ไบต์: a=ones(1,w*2+3)*'_'ถึงa=~(1:w*2+3)+95และa./a*'-'เพื่อ~a+45

ขอบคุณ@pajonkสำหรับการบันทึก 2 ไบต์:f=