Thử thách

Thử thách rất đơn giản: in một con rắn .
Bạn sẽ nhận được chiều dài của con rắn làm đầu vào.
Một con rắn có chiều dài 2 trông như thế này:

==(:)-

Một con rắn có chiều dài 7 trông như thế này:

=======(:)-

Nói cách khác, chiều dài của một con rắn là có bao nhiêu dấu bằng nhau trước đầu .

Sử dụng

Giả sử tôi đã thực hiện C ++ và biên dịch nó ./getsnake.
Tôi có thể chạy nó như vậy:

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

Làm rõ

• Sơ hở tiêu chuẩn là không được phép.
• Bạn có thể nhận đầu vào và đầu ra theo bất kỳ cách nào được chấp nhận.
• Bạn có thể giả sử tất cả các đầu vào được đưa ra là số nguyên dương.
• Bạn có thể viết một hàm thay vì một chương trình thông thường.

Lục giác , 33 byte

Không chiến thắng, nhưng vẫn ngầu. Có thể có được chơi golf nhiều hơn.

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

Chơi gôn

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

Định dạng:

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

Tô màu (Được tạo bằng Công cụ tô màu lục giác của Timwi's )

Giải trình:

Lặp lại, in ra "=" cho đến khi bộ đếm đạt 0.

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

In "("

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

In ":"

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

In ")"

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

Các giá trị trên được tạo bằng tập lệnh python đơn giản. Tuy nhiên, tôi đã hết chỗ cho "-". Vì vậy, tôi đã phải dùng đến các thủ thuật nâng cao hơn.

Khi chương trình in ra ")", giá trị của ô không phải là 41, là 1065. Hexagony chỉ sửa đổi giá trị khi in. Khi nó bật ra, (1065 * 1000 + 4)% 256 = 44, chỉ cách 45, giá trị ascii cho "-". Sau đó, tôi chỉ tăng, in và chèn @ ở đâu đó sau khi in.

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

Quế Gum, 7 byte

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

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

Sẽ có 6 byte với pcú pháp cũ : /

Giải trình

Giải nén sang p~=~(:)-, pgiai đoạn sau đó chỉ cần đọc đầu vào và lặp lại =n lần.

Brian & Chuck , 31 byte

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

Đầu vào ở dạng giá trị byte , vì vậy, ví dụ đầu vào !cho con rắn có chiều dài 33.

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

Đã được một lúc rồi ...

Giải trình

Một mồi nhanh Brian & Chuck:

• Dòng đầu tiên của chương trình là Brian, dòng thứ hai là Chuck.
• Brian và Chuck là hai trường hợp giống như Brainfuck. Điều hấp dẫn chính là chương trình của Chuck là băng của Brian và ngược lại. Các đầu băng / con trỏ chỉ dẫn bắt đầu trên ô đầu tiên của mỗi băng và thực hiện bắt đầu trên Brian.
• Đối với các lệnh, có một vài sự khác biệt. Chỉ Brian có thể sử dụng ,(đầu vào) và chỉ Chuck có thể sử dụng .(đầu ra). Ngoài <và >có {và }di chuyển đầu băng lên đến ô 0 tiếp theo (hoặc trong trường hợp ở {đầu bên trái của băng nếu không có ô số 0 trên đường). Thay vào đó [...], luồng điều khiển duy nhất là ?chuyển đổi điều khiển sang thể hiện khác nếu ô hiện tại khác không. Lệnh được thực hiện đầu tiên trên ô khác là lệnh sau điều kiện. Và cuối cùng, _chỉ là một bí danh cho null-byte, để thuận tiện.

Bây giờ là mã. Brian bắt đầu với điều này:

,{-?

Thao tác này đọc đầu vào vào ô đầu tiên của Chuck, sau đó di chuyển đầu băng sang trái bằng {(không làm gì ngay bây giờ) và giảm đầu vào với -trước khi chuyển đổi điều khiển cho Chuck nếu giá trị vẫn khác không. Điều này bắt đầu vòng lặp chính. Chuck sau đó chạy bit này:

}<<.{?

Thao tác này sẽ di chuyển đầu băng vào Brian đến tận cùng, di chuyển hai ô bên trái lên =và in nó trước khi đầu băng sang bên trái và chuyển điều khiển trở lại Brian. Đây là cách các vòng lặp thường hoạt động trong B & C.

Khi đầu vào đã giảm xuống 0, băng ?trên của Brian sẽ không làm gì cả. Sau đó, Brian thực hiện phần này:

>}-):(=?

Không ):(=có op-op, vì vậy mã thực tế là chỉ >}-?. Chúng tôi di chuyển ra khỏi ô 0 >, di chuyển lên _với }, giảm dần để biến nó thành khác không và chuyển sang Chuck với ?. Sau đó, bit cuối cùng trên Chuck được chạy:

<.<.<.<.<.

Điều này chỉ đơn giản là in năm ký tự trước Chuck, tức là =(:)-. Lưu ý rằng chúng ta cần in một cái khác =vì vòng lặp chính chỉ được thực hiện N-1lần cho đầu vào N.

V , 8 byte

Àé=A(:)-

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

V sử dụng mã hóa "Latin1".

Giải trình:

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

Võng mạc , 10 byte

.+
$*=(:)-

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

Đây là một sự thay thế regex đơn giản.

Nó phù hợp .+với toàn bộ đầu vào, và sau đó thay thế nó bằng $*=(;)-.

Đây $*là một tính năng độc đáo trong Retina: đó là toán tử đặc biệt lặp lại ký tự.

Ví dụ, 5$*xsẽ trở thành xxxxx.

Trong trường hợp đối số trước đó vắng mặt, toàn bộ kết quả được sử dụng làm đối số mặc định.

Python, 21 byte

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

Nghĩa là nó!

Haskell, 25 byte

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

'='<$[1..n]tương đương với replicate n '='.

Java 8, 52 byte

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

Bộ thử nghiệm. (Biên dịch> Thực thi)

Tín dụng .

Cách truyền thống, 61 54 53 byte

7 byte nhờ Kevin Cruijssen.

1 byte nhờ có Dom Hastings.

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

Thạch , 9 byte

”=x;“(:)-

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

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

C, 38

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

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

05AB1E, 10 9 byte

'=×"ÿ(:)-

Giải trình

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

Dùng thử trực tuyến

Lưu 1 byte nhờ Adnan.

Javascript, 23 byte

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

C #, 28 byte

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

Python , 24 byte.

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

input() nhận đầu vào từ người dùng

*, khi được sử dụng trên các chuỗi và một số nguyên, tạo ra một chuỗi mới, được tạo từ các bản sao đã nối của bản gốc. Ví dụ: "hello "*3đầu ra hello hello hello.

Bằng cách nhân =và input(), bạn có được một chuỗi =độ dài mà người dùng chỉ định.

Sử dụng +nối hai dây, trong trường hợp này, cơ thể "=…="của chúng ta với đầu của chúng ta, "(:)-"để làm cho con rắn.

print đưa ra kết quả.

GolfScript, 11 10 byte

~"="*"(:)-"

Bội số "=" theo đầu vào và thêm đầu.

-1 nhờ Leaky Nun

Toán học, 21 20 byte

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

Chức năng ẩn danh. Lấy một số n làm đầu vào và trả về một con rắn có chiều dài n làm đầu ra. "="~Table~#tạo một danh sách {"=", "=", ..., "="}có độ dài n và <>"(:)-"nối các phần tử của danh sách và nối "(:)-"vào chuỗi kết quả.

R, 32 27 byte

Giải pháp này khá đơn giản, rephàm lặp lại phần tử đầu tiên ( "=") scan(), thực tế là đầu vào của người dùng.

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

CHỈNH SỬA :

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

Câu trả lời ngắn hơn một chút, sử dụng scan()trực tiếp.

Ngoài ra,

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

cho một con rắn không băm nhỏ ( 34 byte )

Mẻ, 68 byte

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

Camam 13 11 byte

qi'=*"(:)-"

Kiểm tra nó ở đây.

-2 byte nhờ quartata

Perl 6 ,  16 15  12 byte

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

Giải trình:

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

Sử dụng:

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

put snake 10;

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

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

JAISBaL , 9 byte

t=*Qb(:)-

Verbose:

# \# 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 (:)- #\

Đã thử nghiệm với JAISBaL-0.0.7 (.jar đã được biên dịch vừa được đẩy, nhưng nguồn đã được tăng lên trong một thời gian)

PowerShell v2 +, 19 byte

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

Chương trình đầy đủ. Lấy đầu vào $args[0], sử dụng phép nhân chuỗi để xây dựng phần thân, sau đó nối chuỗi để giải quyết trên đầu.

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

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

C, 46 45 43 byte

đã lưu 2 byte nhờ owacoder! tiết kiệm được 3 byte nhờ rici!

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

Hãy thử nó trên Ideone!

Cheddar, 15 byte (không biên dịch)

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

Một câu trả lời thẳng thắn.

Vừng , 11 byte

Hexdump:

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

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

Trình biên dịch:

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 byte

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

Thí dụ;

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

Giải trình;

{}                 /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 ( -pcờ) = 17 byte

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

Cần -pcờ, vì vậy hãy chạy với:

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

Minkolang 0.15, 12 bytes

"=(:)-"nD$O.

Try it here!

Explanation

"=(:)-"         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 bytes

Takes numerical input from the user, then prints the snake.

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

Matlab / Octave, 22 bytes

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

This is an anonymous function.

Try it on Ideone.

Explanation

Assume n= 5.

1:n produces the row vector [1 2 3 4 5].

~(1:n) negates each entry, so it gives [0 0 0 0 0].

...+61 adds 61 to each entry, so it gives [61 61 61 61 61]. 61 is the ASCII value of character =.

[... '(:)-'] concatenates that with the string '(:)-'. This automatically converts [61 61 61 61 61] into the string '=====' before the concatenation.