Trong khi di chuyển, tôi đã phá vỡ đèn của tôi. Bây giờ, tôi cần một cái mới. Đó là công việc của bạn để làm cho tôi một đèn! Tôi không chắc chắn kích thước tôi muốn, mặc dù tôi biết tôi muốn một kích thước nguệch ngoạc.

Chương trình / chức năng của bạn phải nhận một đầu vào số và in ra một đèn với nhiều tiếng lách cách / va chạm.

Ví dụ:

Đầu vào:2

Đầu ra:

/ - \
 ()
 ()
/ __ \

Đầu vào:3

Đầu ra:

/ - \
 ()
 ()
 ()
/ __ \

Đầu vào:5

Đầu ra:

/ - \
 ()
 ()
 ()
 ()
 ()
/ __ \

Quy tắc:

• 0 & số âm không quan trọng
• Để cung cấp cho các loại đèn (một thách thức này) nhiều loại, bạn phải thay đổi bóng đèn.
  • Chúng phải rộng 4 ký tự và cao 1 ký tự.
  • Chúng có thể ở bất kỳ hình dạng nào, bao gồm cả hình dạng không bóng đèn.
  • Chúng không được chứa khoảng trắng.
  • Các cơ sở phải giữ nguyên.
• Bạn phải hiển thị một ví dụ đầu vào và đầu ra với bóng đèn của bạn.
• Mã ngắn nhất sẽ thắng!

Pyth - 16 byte

Sử dụng dấu ngoặc kép cho bóng vì N được khởi tạo trước đó.

*N4VQ+d`();"/__\

Hãy thử trực tuyến tại đây .

* 4            String repetition 4x, implicit print
 N             Preinitialized to Quote
VQ             For N in range(Q)
 +             String concat
  d            Space
   `()         Repr of empty tuple
;              Close for loop
"/__\          Implicitly print string, implicit close quote

Mẫu cho 5:

""""
 ()
 ()
 ()
 ()
 ()
/__\

Người tuyết 0.2.0 , 42 ký tự

)vg10sB]"[--]
"sP:" ()
"sP;bR"/__"sP92wRsP

Chạy mẫu:

llama@llama:...Code/snowman/ppcg53483lamp$ snowman lamp.snowman
5
[--]
 ()
 ()
 ()
 ()
 ()
/__\

Vì vậy, tôi chỉ nhận thấy rằng tôi đã quên thực hiện khả năng thoát dấu gạch chéo ngược trong chuỗi khi tôi giải quyết thách thức này. Đó chắc chắn sẽ là một điều trong phiên bản tiếp theo, nhưng bây giờ, đây là những gì tôi đã làm để in dòng cuối cùng:

"/__"sP92wRsP

92là mã ASCII cho dấu gạch chéo ngược, wRbao bọc nó trong một mảng và bây giờ tôi có thể in nó bằng sP"chuỗi" trong Snowman thực sự chỉ là mảng số.

> <> , 43 41 38 byte

"\__/"aiv
"&-1v!?:<&a" ()
~"!_\
?!;o>l

Đầu vào thông qua một điểm mã, ví dụ: không gian là 32. Điều này sử dụng một phần mã riêng của chương trình làm chao đèn, dẫn đến một cái gì đó trông giống như một đĩa vệ tinh:

~\_!
 ()
 ()
 ()
 ()
 ()
/__\

(Đề xuất cảm ơn @randomra)

Để có thêm ba byte, chúng ta có thể thay đổi dòng thứ ba để thêm một chút tùy chỉnh:

"\__/"aiv
"&-1v!?:<&a" ()
__\"\~"/
?!;o>l

Điều này tạo ra một trong những đèn phát sáng lên, vì không có cách nào tốt hơn để đặt nó:

\__/
 ()
 ()
 ()
 ()
 ()
/__\

R, 54 52 46 byte

cat("RRRR",rep(" ()",scan()),"/__\\",sep="\n")

Trong phiên bản này, đầu vào và đầu ra gần như được trộn lẫn với nhau:

{vào / ra} PUT:

> cat("RRRR",rep(" ()",scan()),"/__\\",sep="\n")
1: 4
2: 
Read 1 item
RRRR
 ()
 ()
 ()
 ()
/__\

EDIT 1 : -2 byte nhờ bình luận @manatwork.
EDIT 2 : -6 byte. Tín dụng đầy đủ vào @manatwork một lần nữa

Rơm , 26 byte (không cạnh tranh)

<#~('--'
)>( ()
)-*>(/__\)>

Sử dụng '--'làm bóng đèn, lấy đầu vào trong unary bây giờ ở dạng thập phân

CJam, 18 byte

"/__\
"" ()
"ri*1$

Chạy mẫu cho đầu vào 5:

/__\
 ()
 ()
 ()
 ()
 ()
/__\

Dùng thử trực tuyến tại đây

JavaScript ES6, 34 byte

i=>`|==|
${` ()
`.repeat(i)}/__\\`

Các dòng mới là quan trọng

Ví dụ với đầu vào là 5:

|==|
 ()
 ()
 ()
 ()
 ()
/__\

sed, 28 byte

s#.# ()\n#g
s#^\|$#/__\\\n#g

Đưa đầu vào trong unary. Bóng là sự lựa chọn rõ ràng (giống như cơ sở).

Chạy thử nghiệm

$ echo -n 111 | sed -f lamp.sed
/__\
 ()
 ()
 ()
/__\

Gema: 30 ký tự

*=gema\n@repeat{*;\ ()\n}/__\\

Chạy mẫu:

bash-4.3$ gema '*=gema\n@repeat{*;\ ()\n}/__\\' <<< 3
gema
 ()
 ()
 ()
/__\

jq: 30 ký tự

(Mã 29 ký tự + 1 ký tự tùy chọn dòng lệnh.)

8888,(range(.)|" ()"),"/__\\"

Chạy mẫu:

bash-4.3$ jq -r '8888,(range(.)|" ()"),"/__\\"' <<< 3
8888
 ()
 ()
 ()
/__\

Kiểm tra trực tuyến (Chuyển -rqua URL không được hỗ trợ - hãy tự kiểm tra Đầu ra thô.)

C, 54 byte

Gọi f()với chiều cao mong muốn của đèn.

f(n){for(puts("||||");n--;puts(" ()"));puts("/__\\");}

Hãy thử nó trên ideone.

Ví dụ đầu ra cho 5:

||||
 ()
 ()
 ()
 ()
 ()
/__\

Pyke, 15 byte

" ()"~mQAD"/__\

Hãy thử nó ở đây!

     ~m         - 1000
" ()"           -  " ()"
       QAD      - duplicate(^) input times
          "/__\ - "/__\"

Đầu ra:

1000
 ()
 ()
/__\

Kotlin , 36 byte

{"|MM|\n${" ()\n".repeat(it)}/__\\"}

Hãy thử trực tuyến!

Khoảng trắng , 169 byte

[S S S N
_Push_0][T  N
T   T   _Read_STDIN_as_integer][S S S T S T T   T   S S N
_Push_92_\][S S S T S T T   T   T   T   N
_Push_95__][S N
S _Duplicate_95__][S S S T  S T T   T   T   N
_Push_47_/][N
S S N
_Create_Label_LOOP][S S S N
_Push_0][T  T   T   _Retrieve_at_address_0][S S S T N
_Push_1][T  S S T   _Subtract][S N
S _Duplicate][S S S N
_Push_0][S N
T   _Swap_top_two][T    T   S _Store_at_address_0][N
T   T   S N
_If_neg_Jump_to_Label_PRINT][S S S T    S T S N
_Push_10_newline][S S S T   S T S S T   N
_Push_41_)][S S S T S T S S S N
_Push_40_(][S S S T S S S S S N
_Push_32_space][N
S N
N
_Jump_to_Label_LOOP][N
S S S N
_Create_Label_PRINT][S S S T    S T S N
_Push_10_newline][S S S T   S S S S T   N
_Push_33_!][S N
S _Duplicate_33_!][S N
S _Duplicate_33_!][S N
S _Duplicate_33_!][N
S S T   N
_Create_Label_LOOP_2][T N
S S _Print_as_character][N
S N
T   N
_Jump_to_Label_LOOP_2]

Chữ cái S(dấu cách), T(tab) và N(dòng mới) được thêm vào dưới dạng chỉ tô sáng.
[..._some_action]chỉ thêm vào giải thích.

Dùng thử trực tuyến (chỉ có không gian thô, tab và dòng mới).

Giải thích bằng mã giả:

Đẩy tất cả các ký tự theo thứ tự đảo ngược vào ngăn xếp, và sau đó in chúng trong một vòng lặp.

Integer i = STDIN as input
Push "\__/" to the stack
Start LOOP:
  i = i - 1
  if(i is negative):
    Go to function PRINT
  Push "\n)( " to the stack
  Go to next iteration of LOOP

function PRINT:
  Push "\n!!!!" to the stack
  Start LOOP_2:
    Print top as character to STDOUT
    Go to next iteration of LOOP_2

LƯU Ý: itrong mã giả ở trên được lưu trữ lại trong heap trong mỗi lần lặp lại LOOP, bởi vì chúng tôi không muốn để nó trên ngăn xếp được in ở cuối.

Canvas , 8 byte

(×_¶/ｅ⟳║

Hãy thử nó ở đây!

Giải trình:

(×        repeat "(" input times
  _¶/e    encase it on both sides in "_\n/"
          the 1st line is surrounded in "_" and the second ends and starts with "/"
      ⟳   rotate the string clockwise without changing characters
       ║  palindromize horizontally with 0 overlap

05AB1E , 17 15 13 11 byte

„ (и„/_.ø)˜∞

-2 byte (17 → 15) nhờ @EriktheOutgolfer .
-2 byte (13 → 11) sau khi được truyền cảm hứng từ câu trả lời Canvas của @dzaima .

Cap giống như cơ sở ( /__\).

Giải trình:

„ (            # Literal string " ("
   и           # Repeat " (" the input amount of times
               #  i.e. " (" and 3 → [' (',' (',' (']
    „/_        # Literal string "/_"
       .ø      # Surround the list of " (" with "/_" on both ends
               #  i.e. [' (',' (',' ('] → ['/_',[' (',' (',' (',' ('],'/_']
         ˜     # Flatten this list
               #  i.e. ['/_',[' (',' (',' ('],'/_'] → ['/_',' (',' (',' (','/_']
          ∞    # Mirror each item
               #  i.e. ['/_',' (',' (',' (','/_'] → ['/__\',' () ',' () ',' () ','/__\']
               # And output the list new-line delimited (implicitly due to the mirror)

Câu trả lời cũ 13 byte:

„/_D„ (Iиs)˜∞

Hãy thử trực tuyến.

Excel, 31 byte

Hàm bảng tính ẩn danh nhận đầu vào dưới dạng số từ phạm vi [A1] và xuất ra ô gọi.

Đèn này là âm nhạc - và sẽ giúp làm sống động và làm sáng ngày của bạn.

="/\
"&REPT(" ()
",A1)&"/__\"

Đầu ra

PowerShell 5.1, 28 26 byte

_{Cảm ơn Mazzy vì 2 byte}

8008;," ()"*"$args";"/__\"

Vì bóng râm có thể là 4 ký tự bất kỳ, sử dụng một số sẽ lưu một cặp dấu ngoặc kép. Phần khó nhất là tìm một bóng trông đẹp.

Đầu ra:

PS C:\Users\ItsMe\Desktop> .\scratch.ps1 4
8008
 ()
 ()
 ()
 ()
/__\

Python 2, 36 byte

print"-"*4+"\n ()"*input()+"\n/__\\"

Đối với đầu vào 4:

----
 ()
 ()
 ()
 ()
/__\

Lưu ý rằng đối với Python, bất kỳ bóng đèn nào sử dụng đường ống đều ít hơn một byte.

-1 byte nhờ @Alex!

Japt , 17 byte

Æ` ()`Ãi¥² p"/__\

Hãy thử trực tuyến!

Đầu ra cho 5là:

====
 ()
 ()
 ()
 ()
 ()
/__\

SWI-Prolog, 73 60 byte

a(X):-write(golf),writef("%r",["\n ()",X]),write("\n/__\\").

a(5). đầu ra

golf
 ()
 ()
 ()
 ()
 ()
/__\

Julia, 36 byte

n->print("|~~|\n"*" ()\n"^n*"/__\\")

Điều này tạo ra một hàm không tên, lấy một số nguyên làm đầu vào và in ra thiết bị xuất chuẩn.

Thí dụ:

julia> f(4)
|~~|
 ()
 ()
 ()
 ()
/__\

Bash + coreutils, 37 byte

yes ' ()'|sed '1i####
'$1'{a/__\\
q}'

Các dòng mới là cần thiết và được tính trong tổng số byte. GNU sed là bắt buộc.

Chạy:

./squiggly_lamp.sh 2

Đầu ra:

####
 ()
 ()
/__\

Ruby, 42 byte

i=gets.to_i
puts "|--|\n#{" ()\n"*i}/__\\"

Bản mô tả , 28 byte

{n|"[~~]
"+" ()
"*n+"/--\\"}

Java 7 11, 84 83 37 byte

n->"i!!i\n"+" ()\n".repeat(n)+"/__\\"

Hãy thử trực tuyến. (LƯU Ý: Java 11 chưa được hỗ trợ trên TIO, do đó, String.repeat(int)đã được mô phỏng với repeat(String,int)cùng số đếm byte.)

Sử dụng i!!inhư nắp. ¡!!¡có vẻ tốt hơn , nhưng là hai byte nhiều hơn.

Giải trình:

n->                    // Method with integer parameter and String return-type
  "i!!i\n"             //  Return the cap + new-line
  " ()\n".repeat(n)    //   appended with " ()" and a new-line `n` amount of times
  "/__\\"              //   append with "/__\"

Perl 5 , 24 byte

$_=$<.'
 ()'x$_.'
/--\
'

Hãy thử trực tuyến!

Sử dụng 1000như nắp.

Trước , 38 byte

I"|MM|"Wr
~W" ()"oN<s!:-1~
@W"/__\"oN<

Hãy thử trực tuyến!

Mẫu

1
|MM|
 ()
/__\

2
|MM|
 ()
 ()
/__\

3
|MM|
 ()
 ()
 ()
/__\

Befunge-93 , 50 byte

"\__/"&v
0-1_v#:<g00" ()"*25p0
*25$<>:#,_@#::::"_"

Hãy thử trực tuyến!

Ví dụ với đầu vào 3

____
 ()
 ()
 ()
/__\

PHP, 38 byte

/--\<?while($argn--)echo"
 ()"?>

/__\

Lưu vào tập tin; chạy như ống với -nFhoặc thử trực tuyến .