ท้าทาย

ความท้าทายคือง่าย: พิมพ์งู
คุณจะได้รับความยาวของงูเป็นอินพุท
งูที่มีความยาว 2 มีลักษณะดังนี้:

==(:)-

งูที่มีความยาว 7 มีลักษณะดังนี้:

=======(:)-

ในคำอื่น ๆความยาวของงูเป็นวิธีการที่หลายเครื่องหมายเท่ากับก่อนที่หัว

การใช้

สมมติว่าผมทำ c ++ ./getsnakeดำเนินงานและการรวบรวมมัน
ฉันสามารถเรียกใช้เช่นนั้น:

$ ./getsnake 10
==========(:)-

ชี้แจง

• ช่องโหว่มาตรฐานไม่ได้รับอนุญาต
• คุณสามารถรับอินพุตและเอาต์พุตในวิธีที่ยอมรับได้
• คุณสามารถสมมติว่าอินพุตทั้งหมดที่ให้มาเป็นจำนวนเต็มบวก
• คุณสามารถเขียนฟังก์ชั่นแทนโปรแกรมปกติ

Hexagony , 33 ไบต์

ไม่ใช่ว่าจะชนะ แต่ก็ยังเท่ห์ อาจจะสามารถเล่นกอล์ฟได้มากขึ้น

ลองออนไลน์!

แข็งแรงเล่นกอล์ฟ:

61}?.$)@$j;(3<./;.}l/.400;5\j;.'\

จัดรูปแบบ:

    6 1 } ?
   . $ ) @ $
  j ; ( 3 < .
 / ; . } l / .
  4 0 0 ; 5 \
   j ; . ' \
    . . . .

สี (ทำโดยใช้Hexagony Colorer ของ Timwi )

คำอธิบาย:

วนซ้ำพิมพ์ "=" จนกระทั่งตัวนับถึง 0

    6 1 } ?
   . $ . . $
  . . ( . . .
 / . . } . . .
  . . . ; . .
   . . . ' .
    . . . .

พิมพ์ "("

    . . . .
   . . . . .
  . . . . . .
 / ; . . . . .
  4 . . . . .
   j . . . .
    . . . .

พิมพ์ ":"

    . . . .
   . . . . .
  . ; ( 3 < .
 . . . } l / .
  . . . . . .
   . . . . .
    . . . .

พิมพ์ ")"

    . . . .
   . . . . .
  j . . . . .
 . . . . . . .
  . . . ; 5 \
   . . . . \
    . . . .

ค่าข้างต้นถูกสร้างขึ้นโดยใช้สคริปต์ python อย่างง่าย อย่างไรก็ตามฉันวิ่งออกจากห้องสำหรับ "-" ดังนั้นฉันต้องหันไปใช้เทคนิคขั้นสูงมากขึ้น

เมื่อโปรแกรมพิมพ์ออกมา ")" ค่าของเซลล์ไม่ใช่ 41 มันคือ 1,065 Hexagony เพียงแค่ปรับค่าเมื่อพิมพ์ ตามที่ปรากฏออกมา (1065 * 1000 + 4)% 256 = 44 ซึ่งอยู่ห่างจาก 45 เพียงหนึ่งค่า 45 สำหรับค่า "-" จากนั้นฉันเพิ่งเพิ่มพิมพ์และใส่ @ ที่ไหนสักแห่งหลังจากการพิมพ์

    . . . .
   . $ ) @ $
  j . . 3 . .
 / . . } . . .
  4 0 0 . 5 \
   . ; . . \
    . . . .

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

0000000: 7043 dc95 6d4f ce                        pC..mO.

ลองออนไลน์

จะเป็น 6 ไบต์ด้วยpไวยากรณ์เก่า: /

คำอธิบาย

คลายไปp~=~(:)-ที่pเวทีแล้วเพียงแค่อ่านอินพุตและทำซ้ำ=n ครั้ง

Brian & Chuckขนาด 31 ไบต์

,{-?>}-):(=?
#}<<.{?_<.<.<.<.<.

อินพุตในรูปแบบของค่าไบต์ดังนั้นเช่นอินพุต!ให้งูที่มีความยาว 33

ลองออนไลน์!

สักพักหนึ่ง...

คำอธิบาย

ไพรเมอร์ Brian & Chuck ฉบับย่อ:

• บรรทัดแรกของโปรแกรมคือ Brian ส่วนที่สองคือ Chuck
• ไบรอันและชัคเป็นสองกรณีที่เหมือน Brainfuck สิ่งที่จับได้ก็คือโปรแกรมของชัคคือเทปของไบรอันและในทางกลับกัน หัวเทป / พอยน์เตอร์คำแนะนำเริ่มต้นที่เซลล์แรกของแต่ละเทปและการดำเนินการเริ่มต้นที่ Brian
• สำหรับคำสั่งมีความแตกต่างเล็กน้อย มีเพียง Brian เท่านั้นที่สามารถใช้,(อินพุต) และ Chuck เท่านั้นที่สามารถใช้.(เอาต์พุต) นอกเหนือจาก<และ>มี{และ}ที่ย้ายหัวเทปขึ้นไปที่เซลล์ศูนย์ถัดไป (หรือในกรณีที่{ไปทางซ้ายสุดของเทปหากไม่มีศูนย์เซลล์ในทาง) แทน[...]การควบคุมการไหลเพียงอย่างเดียว?ซึ่งสวิตช์ควบคุมไปยังอินสแตนซ์อื่น ๆ ถ้าเซลล์ปัจจุบันไม่เป็นศูนย์ คำสั่งที่เรียกใช้งานครั้งแรกในเซลล์อื่นคืออันหลังเงื่อนไข และในที่สุดก็_เป็นเพียงนามแฝงสำหรับ null-bytes เพื่อความสะดวก

ตอนนี้รหัส ไบรอันเริ่มด้วยสิ่งนี้:

,{-?

สิ่งนี้จะอ่านอินพุตในเซลล์แรกของ Chuck จากนั้นย้ายหัวเทปไปทางซ้ายด้วย{(ไม่ทำอะไรเลยในตอนนี้) และลดอินพุตด้วย-ก่อนที่จะสลับการควบคุมสำหรับ Chuck หากค่ายังคงไม่เป็นศูนย์ นี่เป็นการเริ่มวนรอบหลัก เชยแล้วเรียกใช้บิตนี้:

}<<.{?

สิ่งนี้จะย้ายหัวเทปบน Brian ไปยังจุดสิ้นสุดสุดสุดเลื่อนเซลล์สองเซลล์ที่เหลือไปยัง=และพิมพ์ก่อนที่หัวเทปจะไปทางซ้ายและสลับการควบคุมกลับไปที่ Brian นี่คือการทำงานของลูปใน B&C โดยทั่วไป

เมื่ออินพุตถูกลดลงเหลือศูนย์?เทปของ Brian จะไม่ทำอะไรเลย จากนั้น Brian ดำเนินการส่วนนี้:

>}-):(=?

):(=นี้ไม่มี-Ops >}-?ดังนั้นรหัสจริงเป็นเพียง เราย้ายออกเซลล์ศูนย์>, ย้ายขึ้นไป_ด้วย}, ?พร่องมันจะทำให้มันไม่เป็นศูนย์และสวิทช์ที่จะโยนด้วย จากนั้นบิตสุดท้ายบน Chuck จะถูกเรียกใช้:

<.<.<.<.<.

=(:)-นี้ก็พิมพ์ห้าตัวอักษรในด้านหน้าของชัคคือ โปรดทราบว่าเราต้องพิมพ์อีก=ตั้งแต่วงหลักจะถูกดำเนินการเพียงครั้งสำหรับการป้อนข้อมูลN-1N

V , 8 ไบต์

Àé=A(:)-

ลองออนไลน์!

V ใช้การเข้ารหัส "Latin1"

คำอธิบาย:

À        "Arg1 times:
 é=      "Insert an '='
   A(:)- "Append the head

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

.+
$*=(:)-

ลองออนไลน์!

นี่คือการทดแทน regex ง่าย

มันตรงกับที่ตรงกับการป้อนข้อมูลทั้งหมดแล้วทดแทนด้วย.+$*=(;)-

นี่$*เป็นฟีเจอร์ที่ไม่เหมือนใครใน Retina: มันเป็นตัวดำเนินการพิเศษสำหรับการซ้ำซ้อนอักขระ

ยกตัวอย่างเช่นจะกลายเป็น5$*xxxxxx

ในกรณีที่ไม่มีอาร์กิวเมนต์ก่อนหน้าจะใช้การจับคู่ทั้งหมดเป็นอาร์กิวเมนต์เริ่มต้น

Python ขนาด 21 ไบต์

lambda n:"="*n+"(:)-"

ไอเดียมัน!

Haskell, 25 ไบต์

f n=('='<$[1..n])++"(:)-"

'='<$[1..n]replicate n '='เทียบเท่ากับ

Java 8, 52 ไบต์

n->new String(new char[n]).replace("\0","=")+"(:)-";

ชุดทดสอบ (คอมไพล์> ดำเนินการ)

เครดิต

วิธีแบบดั้งเดิม, 61 54 53 ไบต์

7 ไบต์ขอบคุณ Kevin Cruijssen

ขอบคุณ 1 ไบต์สำหรับ Dom Hastings

n->{String s="";for(;n-->0;)s+="=";return s+"(:)-";};

เยลลี่ขนาด 9 ไบต์

”=x;“(:)-

ลองออนไลน์!

”=x;“(:)-
”=          '='
  x         repeat (argument) that many times
   ;        append
    “(:)-   "(:)-"

C, 38

f(n){for(;n--;printf(n?"=":"=(:)-"));}

ลองใช้กับ ideone

05AB1E, 10 9 ไบต์

'=×"ÿ(:)-

คำอธิบาย

'=         # push equal-sign
  ×        # repeat input nr of times
   "ÿ(:)-  # interpolate snake body with head as a string
           # implicitly display

ลองออนไลน์

บันทึกได้ 1 ไบต์ขอบคุณ Adnan

Javascript ขนาด 23 ไบต์

n=>"=".repeat(n)+"(:)-"

C #, 28 ไบต์

n=>new string('=',n)+"(:)-";

Pythonขนาด 24 ไบต์

print"="*input()+"(:)-"

input() รับอินพุตจากผู้ใช้

*เมื่อใช้กับสตริงและเลขจำนวนเต็มจะสร้างสตริงใหม่ซึ่งทำจากสำเนาที่รวมไว้ของต้นฉบับ ตัวอย่างเช่น: เอาท์พุท"hello "*3hello hello hello

โดยการคูณ=และinput()คุณจะได้รับสตริง=ความยาวที่ผู้ใช้ระบุ

ใช้การ+รวมสองสายในกรณีนี้ร่างกาย"=…="ของเรากับหัวของเรา"(:)-"เพื่อสร้างงู

print ส่งออกผลลัพธ์

GolfScript 11 11ไบต์

~"="*"(:)-"

คูณ "=" โดยการป้อนข้อมูลและเพิ่มส่วนหัว

-1 ขอบคุณ Leaky Nun

Mathematica, 21 20 ไบต์

"="~Table~#<>"(:)-"&

ฟังก์ชั่นไม่ระบุชื่อ รับตัวเลขnเป็นอินพุตและส่งคืนงูที่มีความยาวnเป็นเอาต์พุต "="~Table~#สร้างรายการ{"=", "=", ..., "="}ความยาวnและ<>"(:)-"เชื่อมองค์ประกอบของรายการและผนวก"(:)-"เข้ากับสตริงผลลัพธ์

R, 32 27 ไบต์

วิธีการแก้ปัญหานี้ค่อนข้างตรงไปตรงมาrepฟังก์ชั่นซ้ำองค์ประกอบแรก ( "=") scan()ครั้งซึ่งในความเป็นจริงการป้อนข้อมูลของผู้ใช้

a=scan();cat(rep("=",a),"(:)-")

แก้ไข :

cat(rep("=",scan()),"(:)-")

คำตอบที่สั้นกว่าเล็กน้อยใช้scan()โดยตรง

อีกวิธีหนึ่งคือ

cat(rep("=",scan()),"(:)-",sep="")

สำหรับงูที่ไม่สับ ( 34 ไบต์ )

แบตช์ 68 ไบต์

@set h=(:)-
@for /l %%i in (1,1,%1)do @call set h==%%h%%
@echo %h%

CJam, 13 11 ไบต์

qi'=*"(:)-"

ทดสอบที่นี่

-2 ไบต์ขอบคุณ quartata

Perl 6 ,  16 15  12 ไบต์

{"{'='x$_}(:)-"}
{'='x$_~'(:)-'}
'='x*~'(:)-'

คำอธิบาย:

'=' x * # ｢=｣ string repeated by the only parameter ｢*｣
~        # concatenated with
'(:)-'   # the head

การใช้งาน:

# store it in the lexical namespace
my &snake = '='x*~'(:)-';

put snake 10;

# put ^5 .map: &snake;
put ^5 .map: '='x*~'(:)-';

==========(:)-
(:)- =(:)- ==(:)- ===(:)- ====(:)- =====(:)-

JAISBaLขนาด 9 ไบต์

t=*Qb(:)-

ละเอียด:

# \# enable verbose parsing #\
push1 =        \# push = onto the stack #\
mul            \# multiply the top two values of the stack #\
popout         \# pop the top value of a stack and print it #\
print4 (:)-    \# print (:)- #\

ทดสอบกับJAISBaL-0.0.7 (.jar ที่คอมไพล์แล้วเพิ่งถูกผลัก แต่แหล่งที่มาถูกคอมไพล์แล้วสักครู่)

PowerShell v2 +, 19 ไบต์

'='*$args[0]+'(:)-'

โปรแกรมเต็มรูปแบบ รับอินพุต$args[0]ใช้การคูณสตริงเพื่อสร้างเนื้อหาจากนั้นการต่อสตริงเข้ากับหัว

PS C:\Tools\Scripts\golfing> .\snakes-all-around.ps1 7
=======(:)-

PS C:\Tools\Scripts\golfing> .\snakes-all-around.ps1 77
=============================================================================(:)-

ค, 46 45 43 ไบต์

บันทึก 2 ไบต์ด้วย owacoder! บันทึกแล้ว 3 ไบต์ขอบคุณ rici!

f(n){while(4-printf("=\0(:)-"+2*!n--));}

ลองใช้กับ Ideone!

Cheddar, 15 ไบต์ (ไม่ใช่การแข่งขัน)

n->'='*n+'(:)-'

คำตอบที่ตรงไปตรงมา

Sesos , 11 ไบต์

hexdump:

0000000: aaaa5e a0f7b4 ed4cee 5d3b                         ..^....L.];

ลองออนไลน์!

ผู้ประกอบ:

set numin
add 61
fwd 1
get
jmp,sub 1,rwd 1,put,fwd 1,jnz
add 40,put
rwd 1,sub 3,put
fwd 1,add 1,put
add 4,put

K, 17 ไบต์

{,[x#"=";"(:)-"]}

ตัวอย่าง;

f:{,[x#"=";"(:)-"]}
-1(f'!10);          /print out the result of calling f where x is 0 1 2 3 4 5....
(:)-
=(:)-
==(:)-
===(:)-
====(:)-
=====(:)-
======(:)-
=======(:)-
========(:)-
=========(:)-

คำอธิบาย;

{}                 /function x is implicit and is an int
x#"="              /take (#) x of "=" --> so 3#"=" gives "==="
,[x#"=";"(:)-"]    /comma is a join that takes 2 args --> ,[x;y] gives the concatination of x and y --> "a","abc" is the same as ,["a";"abc"] and gives "aabc"

Perl, 16 + 1 ( -pตั้งค่าสถานะ) = 17 ไบต์

$_="="x$_."(:)-"

ต้องการ-pแฟล็กดังนั้นให้รันด้วย:

perl -pe '$_="="x$_."(:)-"'

Minkolang 0.15 , 12 ไบต์

"=(:)-"nD$O.

ลองที่นี่!

คำอธิบาย

"=(:)-"         Push this to the stack in reverse order - ["-",")",":","(","="]
       n        Take number from input
        D       Pop k and duplicate top of stack (the "=") k times
         $O.    Output whole stack as characters and stop.

Befunge-98, 24 ไบต์

รับข้อมูลตัวเลขจากผู้ใช้แล้วพิมพ์งู

'=&:00pk:00gk,"-):("4k,@

Matlab / Octave ขนาด 22 ไบต์

@(n)[~(1:n)+61 '(:)-']

นี่คือฟังก์ชั่นที่ไม่ระบุชื่อ

ลองบน Ideone

คำอธิบาย

n= 5สมมติ

1:n[1 2 3 4 5]ผลิตเวกเตอร์แถว

~(1:n)[0 0 0 0 0]ขัดแย้งแต่ละรายการเพื่อจะช่วยให้

...+61เพิ่มไปยังแต่ละรายการเพื่อจะช่วยให้61 เป็นค่า ASCII ของตัวละคร[61 61 61 61 61]61=

[... '(:)-']'(:)-'เชื่อมกับสตริง สิ่งนี้จะแปลง[61 61 61 61 61]เป็นสตริงโดยอัตโนมัติ'====='ก่อนการต่อข้อมูล