チャレンジ

課題は簡単です。蛇を印刷します。
入力として蛇の長さを取得します。
長さ2のヘビは次のようになります。

==(:)-

長さ7のヘビは次のようになります。

=======(:)-

言い換えれば、蛇の長さは頭の前に等号がいくつあるかということです。

使用法

C ++実装を作成してにコンパイルしたとしましょう./getsnake。
次のように実行できます。

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

明確化

• 標準の抜け穴は許可されていません。
• 受け入れ可能な方法で入力と出力を取得できます。
• 与えられた入力はすべて正の整数であると仮定できます。
• 通常のプログラムの代わりに関数を書くことができます。

六角形、33バイト

勝つつもりはないが、それでもクールだ。もっとゴルフができるかもしれません。

オンラインでお試しください！

ゴルフ済み：

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

フォーマット済み：

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

Colored（TimwiのHexagony Colorerを使用して作成）

説明：

ループし、カウンターが0になるまで「=」を出力します。

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

「（」を印刷

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

「：」を印刷

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

「）」を印刷

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

上記の値は、単純なpythonスクリプトを使用して生成されました。ただし、「-」のスペースが足りませんでした。そのため、私はより高度なトリックに頼らなければなりませんでした。

プログラムが「）」を出力するとき、セルの値は41ではなく、1065です。Hexagonyは、印刷時に値を変更するだけです。判明したように、（1065 * 1000 + 4）％256 = 44、「-」のASCII値である45から1つだけ離れています。次に、印刷後、インクリメントして印刷し、@を挿入します。

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

シナモンガム、7バイト

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

オンラインでお試しください。

古いp構文では6バイトだったでしょう：/

説明

に解凍しp~=~(:)-、pステージは入力を読み取り、=n回繰り返します。

ブライアン＆チャック、31バイト

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

バイト値の形式で入力。たとえば!、長さ33のスネークが入力されます。

オンラインでお試しください！

久しぶりです...

説明

ブライアン＆チャック入門：

• プログラムの最初の行はブライアンで、2行目はチャックです。
• ブライアンとチャックは2つのBrainfuckのようなインスタンスです。主な問題は、チャックのプログラムがブライアンのテープであり、逆もまた同様であることです。テープヘッド/命令ポインタは各テープの最初のセルから始まり、実行はブライアンから始まります。
• コマンドに関しては、いくつかの違いがあります。ブライアンのみが使用,（入力）でき、チャックのみが使用.（出力）できます。加え、<そして>存在する{と}次のゼロのセルにテープヘッドを移動する（またはの場合には{、テープの左端に向かう途中にはゼロのセルが存在しない場合）。の代わりに[...]、?現在のセルがゼロ以外の場合に制御を他のインスタンスに切り替える唯一の制御フローです。他のセルで最初に実行された命令は、条件の後の命令です。そして最後に、_便宜上、nullバイトの単なるエイリアスです。

これでコード。ブライアンはこれで始まります：

,{-?

これにより、入力がChuckの最初のセルに読み込まれ、テープヘッドが左に移動し{（現在は何もしません）-、値がまだ0以外の場合、Chuckの制御を切り替える前に入力が減少します。これでメインループが始まります。チャックはこのビットを実行します：

}<<.{?

これにより、ブライアンのテープヘッドが最後まで移動し、2つのセルが左に移動し=、テープヘッドの前まで印刷され、コントロールがブライアンに戻ります。これは、一般にB＆Cでループが機能する方法です。

入力がゼロに減ると、?ブライアンのテープは何もしなくなります。次に、ブライアンはこの部分を実行します。

>}-):(=?

):(=何-OPSではないので、実際のコードがちょうどです>}-?。ゼロのセル>から移動し、上に移動_し}、それをデクリメントしてゼロ以外にし、でチャックに切り替え?ます。次に、チャックの最後のビットが実行されます。

<.<.<.<.<.

これは、Chuckの前に5文字を印刷するだけ=(:)-です。=メインループはN-1inputに対してのみ実行されるため、別の出力が必要であることに注意してくださいN。

V、8バイト

Àé=A(:)-

オンラインでお試しください！

Vは「Latin1」エンコーディングを使用します。

説明：

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

網膜、10バイト

.+
$*=(:)-

オンラインでお試しください！

これは単純な正規表現の置換です。

.+入力全体に一致するものに一致し、それをに置き換え$*=(;)-ます。

の $*は、Retinaに固有の機能です。これは、文字反復の特殊演算子です。

たとえば、5$*xになりxxxxxます。

前の引数が存在しない場合、一致するもの全体がデフォルトの引数として使用されます。

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バイト

Kevin Cruijssenのおかげで7バイト。

Dom Hastingsのおかげで1バイト。

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?"=":"=(:)-"));}

イデオンで試してみてください。

05AB1E, 10 9 bytes

'=×"ÿ(:)-

Explanation

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

Try it online

1 byte saved thanks to Adnan.

Javascript, 23 bytes

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

C#, 28 bytes

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

Python, 24 bytes.

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

input() gets input from user

*, when used on strings and an integer, creates a new string, which is made of joined copies of the original. For example: "hello "*3 outputs hello hello hello.

By multiplying = and input(), you get a string of = the length that the user specifies.

Using + joins two strings, in this case, our body "=…=" with our head, "(:)-" to make the snake.

print outputs the result.

GolfScript, 11 10 bytes

~"="*"(:)-"

Multiplies "=" by input, and adds head.

-1 thanks to Leaky Nun

Mathematica, 21 20 bytes

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

Anonymous function. Takes a number n as input, and returns a snake of length n as output. "="~Table~# generates a list {"=", "=", ..., "="} of length n, and <>"(:)-" concatenates the list's elements and appends "(:)-" to the resulting string.

R, 32 27 bytes

This solution is pretty straightforward, rep function repeats the first element ("=") scan() times, which is in fact the user's input.

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

EDIT:

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

Slighly shorter answer, using scan() directly.

Alternatively,

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

for a non-chopped snake (34 bytes)

Batch, 68 bytes

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

CJam, 13 11 bytes

qi'=*"(:)-"

Test it here.

-2 bytes thanks to quartata

Perl 6,  16 15  12 bytes

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

Explanation:

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

Usage:

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

put snake 10;

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

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

JAISBaL, 9 bytes

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

Tested with JAISBaL-0.0.7 (The compiled .jar was just pushed, but the source has been up on git for a while)

PowerShell v2+, 19 bytes

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

Full program. Takes input $args[0], uses string multiplication to construct the body, then string concatenation to tack on the head.

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

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

C, 46 45 43 bytes

saved 2 bytes thanks to owacoder! saved 3 bytes thanks to rici!

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

Try it on Ideone!

Cheddar, 15 bytes (noncompeting)

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

A straightforward answer.

Sesos, 11 bytes

Hexdump:

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

Try it online!

Assembler:

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 Bytes

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

Example;

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

Explanation;

{}                 /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 flag) = 17 bytes

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

Needs -p flag, so run with :

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.