Вызов

Задача проста: напечатать змею .
Вы получите длину змеи в качестве входных данных.
Змея длиной 2 выглядит так:

==(:)-

Змея длиной 7 выглядит так:

=======(:)-

Другими словами, длина змеи - это количество знаков равенства перед головой .

использование

Допустим, я сделал реализацию C ++ и скомпилировал ее ./getsnake.
Я мог бы запустить это так:

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

Разъяснения

• Стандартные лазейки запрещены.
• Вы можете получить ввод и вывод любым приемлемым способом.
• Вы можете предположить, что все входные данные являются положительными целыми числами.
• Вы можете написать функцию вместо обычной программы.

Гексагония , 33 байта

Не победит, но все равно круто. Может быть в состоянии получить в гольф больше.

Попробуйте онлайн!

Golfed:

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

отформатирован:

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

Цветной (Сделано с использованием Hexagony Colorer Тимви )

Объяснение:

Цикл, распечатайте «=», пока счетчик не достигнет 0.

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

Распечатать "("

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

Распечатать ":"

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

Распечатать ")"

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

Вышеуказанные значения были сгенерированы с использованием простого скрипта Python. Тем не менее, я как бы выбежал из места для "-". Итак, мне пришлось прибегнуть к более продвинутым трюкам.

Когда программа выводит «)», значение ячейки не 41, а 1065. Гексагония просто изменяет значение при печати. Как оказалось, (1065 * 1000 + 4)% 256 = 44, всего в одном от 45, значение ascii для "-". Затем я просто увеличиваю, печатаю и вставляю @ где-нибудь после печати.

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

Корица, 7 байтов

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

Попробуйте онлайн.

Было бы 6 байтов со старым pсинтаксисом: /

объяснение

Распаковывается p~=~(:)-, pзатем сцена просто читает ввод и повторяет =n раз.

Брайан и Чак , 31 байт

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

Ввод в виде байтового значения , например, input !дает змею длиной 33.

Попробуйте онлайн!

Прошло много времени...

объяснение

Быстрый Брайан и Чак учебник для начинающих:

• Первая строка программы - Брайан, вторая - Чак.
• Брайан и Чак - два экземпляра, похожих на Брэйнфак. Основная загвоздка в том, что программа Чака - это лента Брайана, и наоборот. Головки магнитных лент / указатели команд начинаются с первой ячейки каждой ленты, а выполнение начинается с Брайана.
• Что касается команд, есть несколько отличий. Только Брайан может использовать ,(вход), и только Чак может использовать .(выход). В дополнение к <и >есть {и }которые перемещают головку ленты до следующей нулевой ячейки (или в случае {с левым концом ленты, если на пути нет нулевой ячейки). Вместо [...]этого единственный поток управления - ?это переключение управления на другой экземпляр, если текущая ячейка отлична от нуля. Первая выполняемая инструкция в другой ячейке - та, которая следует за условием. И, наконец, _просто псевдоним для нулевых байтов, для удобства.

Теперь код. Брайан начинает с этого:

,{-?

Это считывает ввод в первую ячейку Чака, затем перемещает головку ленты влево {(сейчас ничего не делает) и уменьшает ввод -перед переключением управления для Чака, если значение все еще не равно нулю. Это начинает основной цикл. Затем Чак запускает этот бит:

}<<.{?

Это перемещает головку ленты Брайана до самого конца, перемещает две ячейки слева =и печатает ее перед головкой ленты влево и переключает управление обратно к Брайану. Вот как петли обычно работают в B & C.

Как только входной сигнал уменьшится до нуля, ?лента Брайана ничего не сделает. Затем Брайан выполняет эту часть:

>}-):(=?

):(=Нет-OPS, поэтому фактический код просто >}-?. Мы убираем нулевую ячейку с >, поднимаемся до _с }, уменьшаем ее, чтобы она стала ненулевой , и переключаемся на Чака с ?. Затем запускается последний бит Чака:

<.<.<.<.<.

Это просто печатает пять символов перед Чаком, то есть =(:)-. Обратите внимание, что нам нужно напечатать другой, =так как основной цикл выполняется только N-1для ввода 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 байта

7 байтов благодаря Кевину Круйссену.

1 байт благодаря Дому Гастингсу.

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

Желе , 9 байт

”=x;“(:)-

Попробуйте онлайн!

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

С, 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 байт сохранен благодаря Аднану.

Javascript, 23 байта

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

C #, 28 байт

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

Python , 24 байта.

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

input() получает ввод от пользователя

*при использовании над строками и целым числом создает новую строку, которая состоит из объединенных копий оригинала. Например: "hello "*3выходы hello hello hello.

Умножая =и input(), вы получите строку =длины, которую указывает пользователь.

Использование +соединяет две струны, в нашем случае, наше тело "=…="с нашей головой, "(:)-"чтобы сделать змею.

print выводит результат.

GolfScript, 11 10 байт

~"="*"(:)-"

Умножает «=» на ввод и добавляет голову.

-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 байта благодаря четвертям

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 был только что передан , но источник был на git некоторое время)

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

C, 46 45 43 байтов

сэкономил 2 байта благодаря owacoder! сэкономил 3 байта благодаря rici!

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

Попробуйте это на Ideone!

Чеддер, 15 байт (неконкурентный)

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

Простой ответ.

Сесос , 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

К, 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$_."(:)-"'

Минколанг 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к каждой записи, так что дает [61 61 61 61 61]. 61это значение ASCII символа =.

[... '(:)-']объединяет это со строкой '(:)-'. Это автоматически преобразуется [61 61 61 61 61]в строку '====='перед объединением.