Wyzwanie

Wyzwanie jest proste: wydrukuj węża .
Otrzymasz długość węża jako dane wejściowe.
Wąż o długości 2 wygląda następująco:

==(:)-

Wąż o długości 7 wygląda następująco:

=======(:)-

Innymi słowy, długość węża to liczba znaków równości przed głową .

Stosowanie

Powiedzmy, że zrobiłem implementację C ++ i skompilowałem ją ./getsnake.
Mógłbym to uruchomić tak:

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

Wyjaśnienia

• Standardowe luki są niedozwolone.
• Wejścia i wyjścia można uzyskać w dowolny dopuszczalny sposób.
• Możesz założyć, że wszystkie podane dane wejściowe są dodatnimi liczbami całkowitymi.
• Możesz napisać funkcję zamiast zwykłego programu.

Sześciokąt , 33 bajty

Nie wygra, ale nadal będzie fajny. Może być w stanie zdobyć więcej golfa.

Wypróbuj online!

Gra w golfa:

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

Sformatowany:

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

Kolorowe (Wykonane przy użyciu Sześciokątnego Colorera Timwi )

Wyjaśnienie:

Pętla, drukuj „=”, aż licznik osiągnie 0.

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

Drukuj ”(„

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

Drukuj „:”

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

Drukuj „)”

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

Powyższe wartości zostały wygenerowane przy użyciu prostego skryptu python. Jednak zabrakło mi miejsca na „-”. Musiałem więc skorzystać z bardziej zaawansowanych sztuczek.

Kiedy program wypisuje „)”, wartość komórki nie wynosi 41, to jest 1065. Sześciokąt modyfikuje tylko wartość podczas drukowania. Jak się okazuje, (1065 * 1000 + 4)% 256 = 44, tylko jeden od 45, wartość ascii dla „-”. Następnie po prostu zwiększam, drukuję i wstawiam gdzieś @ po wydrukowaniu.

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

Guma cynamonowa, 7 bajtów

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

Wypróbuj online.

Byłoby 6 bajtów przy starej pskładni: /

Wyjaśnienie

Dekompresuje do p~=~(:)-, a pnastępnie etap po prostu odczytuje dane wejściowe i powtarza =n razy.

Brian & Chuck , 31 bajtów

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

Dane wejściowe w postaci wartości bajtowej , np. Dane wejściowe! dają węża o długości 33.

Wypróbuj online!

Minęło trochę czasu...

Wyjaśnienie

Szybki podkład Brian & Chuck:

• Pierwsza linia programu to Brian, druga to Chuck.
• Brian i Chuck są dwoma instancjami podobnymi do Brainfuck. Głównym haczykiem jest to, że program Chucka to taśma Briana i odwrotnie. Głowice taśmy / wskaźniki instrukcji zaczynają się na pierwszej komórce każdej taśmy, a wykonywanie rozpoczyna się na Brianie.
• Jeśli chodzi o polecenia, istnieje kilka różnic. Tylko Brian może używać ,(dane wejściowe) i tylko Chuck może używać .(dane wyjściowe). Oprócz <i >są {i }które przesuwają głowicę taśmy do następnej komórki zerowej (lub w przypadku {lewego końca taśmy, jeśli po drodze nie ma komórki zerowej). Zamiast [...]tego jedynym przepływem kontrolnym jest ?przełączenie sterowania na inne wystąpienie, jeśli bieżąca komórka jest niezerowa. Pierwsza wykonana instrukcja w drugiej komórce to ta po warunku. I na koniec, _to tylko alias dla zerowych bajtów, dla wygody.

Teraz kod. Brian zaczyna od tego:

,{-?

Odczytuje dane wejściowe do pierwszej komórki Chucka, a następnie przesuwa głowicę taśmy w lewo za pomocą {(obecnie nic nie robi) i zmniejsza wartość wejściową -przed przełączeniem kontroli dla Chucka, jeśli wartość jest wciąż niezerowa. To zaczyna główną pętlę. Następnie Chuck uruchamia ten bit:

}<<.{?

To przesuwa głowicę taśmy na Brianie do samego końca, przesuwa dwie komórki w lewo na = i drukuje ją przed głowicą taśmy do końca w lewo i przełącza sterowanie z powrotem na Briana. Tak zwykle działają pętle w B&C.

Gdy wejście zostanie zredukowane do zera, ?taśma Briana nic nie zrobi. Następnie Brian wykonuje tę część:

>}-):(=?

Nie ):(=ma operacji, więc rzeczywisty kod jest po prostu >}-?. Przechodzimy od komórki zerowej za pomocą >, przechodzimy do góry _z }, zmniejszamy ją, aby stała się niezerowa i przełączamy na Chucka za pomocą ?. Następnie uruchamiany jest ostatni bit na Chucku:

<.<.<.<.<.

To po prostu drukuje pięć znaków przed Chuckiem, tj =(:)-. Zauważ, że musimy wydrukować kolejną, =ponieważ główna pętla jest wykonywana tylko N-1razy dla danych wejściowych N.

V , 8 bajtów

Àé=A(:)-

Wypróbuj online!

V używa kodowania „Latin1”.

Wyjaśnienie:

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

Siatkówka , 10 bajtów

.+
$*=(:)-

Wypróbuj online!

Jest to proste podstawienie wyrażenia regularnego.

Dopasowuje, .+który pasuje do całego wejścia, a następnie zastępuje go $*=(;)-.

Jest $*to unikalna funkcja Retina: jest to specjalny operator powtarzania znaków.

Na przykład 5$*xstałby się xxxxx.

W przypadku braku poprzedniego argumentu jako argument domyślny jest używane całe dopasowanie.

Python, 21 bajtów

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

Ideone to!

Haskell, 25 bajtów

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

'='<$[1..n]jest równoważne z replicate n '='.

Java 8, 52 bajty

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

Zestaw testowy. (Kompiluj> Wykonaj)

Kredyty .

tradycyjny sposób, 61 54 53 bajtów

7 bajtów dzięki Kevin Cruijssen.

1 bajt dzięki Dom Hastings.

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

Galaretka , 9 bajtów

”=x;“(:)-

Wypróbuj online!

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

C, 38

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

Wypróbuj na ideone.

05AB1E, 10 9 bajtów

'=×"ÿ(:)-

Wyjaśnienie

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

Wypróbuj online

1 bajt zapisany dzięki Adnan.

JavaScript, 23 bajty

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

C #, 28 bajtów

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

Python , 24 bajty.

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

input() pobiera dane wejściowe od użytkownika

*, użyte w ciągach znaków i liczbach całkowitych, tworzy nowy ciąg znaków, który składa się z połączonych kopii oryginału. Na przykład: "hello "*3wyjścia hello hello hello.

Po pomnożeniu =i input()otrzymujesz ciąg o =długości określonej przez użytkownika.

Za pomocą +łączy dwa sznurki, w tym przypadku nasze ciało "=…="z głową, "(:)-"aby stworzyć węża.

print wyprowadza wynik.

GolfScript, 11 10 bajtów

~"="*"(:)-"

Mnoży „=” przez dane wejściowe i dodaje nagłówek.

-1 dzięki Leaky Nun

Mathematica, 21 20 bajtów

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

Funkcja anonimowa. Pobiera liczbę n jako dane wejściowe i zwraca węża długości n jako dane wyjściowe. "="~Table~#generuje listę {"=", "=", ..., "="}długości n , <>"(:)-"łączy elementy listy i dołącza "(:)-"do powstałego ciągu.

R, 32 27 bajtów

To rozwiązanie jest dość proste, repfunkcja powtarza pierwszy element ( "=") scan()razy, co w rzeczywistości jest wkładem użytkownika.

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

EDYCJA :

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

Nieco krótsza odpowiedź, przy użyciu scan()bezpośrednio.

Alternatywnie,

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

dla niepociętego węża ( 34 bajty )

Partia, 68 bajtów

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

CJam, 13 11 bajtów

qi'=*"(:)-"

Sprawdź to tutaj.

-2 bajty dzięki quartata

Perl 6 ,  16 15  12 bajtów

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

Wyjaśnienie:

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

Stosowanie:

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

put snake 10;

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

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

JAISBaL , 9 bajtów

t=*Qb(:)-

Gadatliwy:

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

Testowane z JAISBaL-0.0.7 ( Skompilowany plik .jar został właśnie wypchnięty, ale źródło jest już dostępne na git)

PowerShell v2 +, 19 bajtów

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

Pełny program Pobiera dane wejściowe $args[0], używa mnożenia struny do budowy ciała, a następnie konkatenacji struny w celu przyczepienia do głowy.

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

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

DO, 46 45 43 bajty

zapisane 2 bajty dzięki owacoder! zapisane 3 bajty dzięki rici!

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

Wypróbuj na Ideone!

Cheddar, 15 bajtów (niekonkurencyjny)

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

Prosta odpowiedź.

Sesos , 11 bajtów

Hexdump:

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

Wypróbuj online!

Monter:

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 bajtów

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

Przykład;

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

Wyjaśnienie;

{}                 /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 ( -pflaga) = 17 bajtów

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

Potrzebuje -pflagi, więc uruchom z:

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

Minkolang 0,15 , 12 bajtów

"=(:)-"nD$O.

Wypróbuj tutaj!

Wyjaśnienie

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

Pobiera dane liczbowe od użytkownika, a następnie drukuje węża.

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

Matlab / Octave, 22 bajty

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

To anonimowa funkcja.

Wypróbuj na Ideone .

Wyjaśnienie

Załóżmy n= 5.

1:ntworzy wektor wiersza [1 2 3 4 5].

~(1:n)neguje każdy wpis, więc daje [0 0 0 0 0].

...+61dodaje 61do każdego wpisu, więc daje [61 61 61 61 61]. 61to wartość ASCII znaku =.

[... '(:)-']łączy to z łańcuchem '(:)-'. To automatycznie konwertuje [61 61 61 61 61]na ciąg '====='przed konkatenacją.