도전

도전은 간단합니다 : 뱀을 인쇄하십시오 .
뱀 길이를 입력으로 얻습니다.
길이 2의 뱀은 다음과 같습니다.

==(:)-

길이가 7 인 뱀은 다음과 같습니다.

=======(:)-

다시 말해, 뱀의 길이는 머리 앞의 등호가 몇 개인 지 입니다.

용법

C ++ 구현을 만들어서 컴파일했다고 가정 해 봅시다 ./getsnake.
나는 그렇게 실행할 수 있습니다 :

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

설명

• 표준 허점은 허용되지 않습니다.
• 허용되는 방식으로 입력 및 출력을 얻을 수 있습니다.
• 주어진 모든 입력이 양의 정수라고 가정 할 수 있습니다.
• 일반 프로그램 대신 함수를 작성할 수 있습니다.

헥사 고니 , 33 바이트

이길 수는 없지만 여전히 시원합니다. 골프를 더 많이 할 수 있습니다.

온라인으로 사용해보십시오!

골프 :

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

형식화 :

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

컬러 ( Timwi의 Hexagony Colorer를 사용하여 제작 )

설명:

루프, 카운터가 0에 도달 할 때까지 "="를 인쇄하십시오.

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

"("인쇄

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

":"인쇄

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

")"인쇄

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

위의 값은 간단한 파이썬 스크립트를 사용하여 생성되었습니다. 그러나 나는 "-"를위한 공간이 부족하다. 그래서 나는 더 고급의 트릭에 의지해야했습니다.

프로그램이 ")"를 출력 할 때 셀의 값은 41이 아니라 1065입니다. Hexagony는 인쇄 할 때 값을 변경합니다. 결과적으로, "-"에 대한 ASCII 값인 45에서 하나만 떨어진 (1065 * 1000 + 4) % 256 = 44입니다. 그런 다음 인쇄 후 어딘가에서 @를 증가시키고 인쇄하고 삽입합니다.

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

계피 껌, 7 바이트

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

온라인으로 사용해보십시오.

이전 p구문 으로 6 바이트 였을 것입니다 : /

설명

에 압축 해제 p~=~(:)-의 p단계는 단순히 입력을 판독하고, 반복 =횟수 (N)만큼.

Brian & Chuck , 31 바이트

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

바이트 값 의 형태로 입력, 예를 들어 입력 !은 길이가 33 인 뱀을 제공합니다.

온라인으로 사용해보십시오!

오랜만이야...

설명

빠른 Brian & Chuck 입문서 :

• 프로그램의 첫 번째 줄은 Brian이고 두 번째 줄은 Chuck입니다.
• Brian과 Chuck은 Brainfuck과 같은 두 인스턴스입니다. 주요 문제점은 척의 프로그램이 브라이언의 테이프이고 그 반대도 마찬가지입니다. 테이프 헤드 / 명령 포인터는 각 테이프의 첫 번째 셀에서 시작되고 실행은 Brian에서 시작됩니다.
• 명령은 몇 가지 차이점이 있습니다. Brian만이 ,(입력)을 사용할 수 있고 Chuck만이 .(출력)을 사용할 수 있습니다 . 이외에도 <하고 >있다 {그리고 }다음 제로 셀로 테이프 헤드를 이동하는 (또는 경우에 {테이프의 좌단 방식에는 제로 셀이없는 경우). 대신에 현재 셀이 0이 아닌 경우 [...]제어 플로우가 ?다른 인스턴스로 제어를 전환하는 것이 유일한 제어 플로우입니다 . 다른 셀에서 첫 번째로 실행 된 명령어는 조건 이후의 명령어입니다. 그리고 마지막으로 _편의상 널 바이트의 별명입니다.

이제 코드입니다. 브라이언은 이것으로 시작합니다 :

,{-?

이것은 입력을 Chuck의 첫 번째 셀로 읽은 다음 테이프 헤드를 왼쪽으로 이동하고 {(지금은 아무것도하지 않음) -값이 여전히 0이 아닌 경우 Chuck에 대한 제어를 전환하기 전에 입력을 줄 입니다. 메인 루프가 시작됩니다. 그런 다음 척은이 비트를 실행합니다.

}<<.{?

이렇게하면 Brian의 테이프 헤드가 맨 끝으로 이동하고 두 개의 셀이 왼쪽으로 이동 한 =다음 테이프 헤드의 왼쪽 끝까지 인쇄 된 다음 컨트롤이 Brian으로 다시 전환됩니다. 이것이 일반적으로 B & C에서 루프가 작동하는 방식입니다.

입력이 0으로 줄어들면, ?Brian의 테이프는 아무 것도하지 않습니다. 그런 다음 Brian은이 부분을 실행합니다.

>}-):(=?

는 ):(=실제 코드 그냥 그래서, 어떤 작전 없습니다 >}-?. 우리와 제로 세포 떨어져 이동 >까지 이동, _와 }, 그 영이 아닌 척에 스위치를 만들기 위해를 감소 ?. 그런 다음 척의 마지막 비트가 실행됩니다.

<.<.<.<.<.

이렇게하면 Chuck 앞에 5 개의 문자가 인쇄 =(:)-됩니다. =메인 루프는 N-1입력을 위해서만 실행되므로 다른 것을 인쇄해야합니다 N.

V , 8 바이트

Àé=A(:)-

온라인으로 사용해보십시오!

V는 "Latin1"인코딩을 사용합니다.

설명:

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

망막 , 10 바이트

.+
$*=(:)-

온라인으로 사용해보십시오!

이것은 간단한 정규식 대체입니다.

.+전체 입력과 일치 하는 항목을 찾은 다음로 대체합니다 $*=(;)-.

은 $*망막의 독특한 기능입니다 : 그것은 문자 반복 특수 연산자입니다.

예를 들어, 5$*x될 것입니다 xxxxx.

이전 인수가없는 경우 전체 일치가 기본 인수로 사용됩니다.

파이썬, 21 바이트

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

무시 했어!

하스켈, 25 바이트

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

'='<$[1..n]와 같습니다 replicate n '='.

자바 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 바이트

'=×"ÿ(:)-

설명

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

온라인으로 사용해보십시오

Adnan 덕분에 1 바이트가 절약되었습니다.

자바 스크립트, 23 바이트

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

C #, 28 바이트

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

Python , 24 바이트

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

input() 사용자로부터 입력을받습니다

*문자열 및 정수에 사용될 때 새 문자열을 작성하며, 이는 원래의 결합 된 사본으로 구성됩니다. 예를 들면 다음과 같습니다. "hello "*3outputs hello hello hello.

=및 을 곱 하면 사용자가 지정한 길이 input()의 문자열이 생성 =됩니다.

사용은 +이 경우에, 우리의 몸, 두 개의 문자열을 조인 "=…="우리의 머리는 "(:)-"뱀을 할 수 있습니다.

print 결과를 출력합니다.

GolfScript, 11 10 바이트

~"="*"(:)-"

"="에 입력을 곱하고 머리를 더합니다.

Leaky Nun 덕분에 -1

수학, 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'=*"(:)-"

여기에서 테스트하십시오.

quartata 덕분에 -2 바이트

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

씨, 46 45 43 바이트

owacoder 덕분에 2 바이트를 절약했습니다! rici 덕분에 3 바이트를 절약했습니다!

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

Ideone에서 사용해보십시오!

체다, 15 바이트 (비경쟁)

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

간단한 답변.

Sesos , 11 바이트

16 진 덤프 :

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].

...+6161각 항목에 추가하여을 제공합니다 [61 61 61 61 61]. 61문자의 ASCII 값입니다 =.

[... '(:)-']문자열과 연결합니다 '(:)-'. 연결하기 전에 [61 61 61 61 61]문자열로 자동 변환 됩니다 '====='.