Sfida

La sfida è semplice: stampare un serpente .
Otterrai la lunghezza del serpente come input.
Un serpente di lunghezza 2 si presenta così:

==(:)-

Un serpente di lunghezza 7 si presenta così:

=======(:)-

In altre parole, la lunghezza di un serpente è quanti segni uguali ci sono davanti alla testa .

uso

Diciamo che ho fatto un'implementazione C ++ e l'ho compilata ./getsnake.
Potrei eseguirlo in questo modo:

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

chiarimenti

• Le scappatoie standard non sono ammesse.
• È possibile ottenere input e output in qualsiasi modo accettabile.
• Puoi presumere che tutti gli input dati siano numeri interi positivi.
• È possibile scrivere una funzione anziché un normale programma.

Esagonia , 33 byte

Non vincerò, ma sarà comunque fico. Potrebbe essere in grado di ottenere più golf.

Provalo online!

golfed:

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

formattato:

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

Colorato (realizzato con Timex's Hexagony Colorer )

Spiegazione:

Ripeti, stampa "=" fino a quando il contatore raggiunge 0.

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

Stampa "("

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

Stampa ":"

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

Stampa ")"

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

I valori sopra sono stati generati utilizzando un semplice script Python. Tuttavia, ho quasi esaurito lo spazio per il "-". Quindi, ho dovuto ricorrere a trucchi più avanzati.

Quando il programma stampa ")", il valore della cella non è 41, è 1065. Hexagony modifica il valore durante la stampa. A quanto pare, (1065 * 1000 + 4)% 256 = 44, a solo uno di distanza da 45, il valore ASCII per "-". Quindi, ho solo incrementare, stampare e inserire un @ da qualche parte dopo la stampa.

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

Gomma alla cannella, 7 byte

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

Provalo online.

Sarebbe stato di 6 byte con la vecchia psintassi: /

Spiegazione

Decomprime p~=~(:)-, lo pstage legge semplicemente l'input e ripete =n volte.

Brian e Chuck , 31 byte

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

Inserire sotto forma di a valore byte , quindi ad esempio input !dà un serpente di lunghezza 33.

Provalo online!

È passato un po 'di tempo...

Spiegazione

Un rapido primer Brian & Chuck:

• La prima riga del programma è Brian, la seconda è Chuck.
• Brian e Chuck sono due esempi simili a Brainfuck. Il problema principale è che il programma di Chuck è il nastro di Brian e viceversa. I puntatori / istruzioni del nastro iniziano sulla prima cella di ogni nastro e l'esecuzione inizia su Brian.
• Per quanto riguarda i comandi, ci sono alcune differenze. Solo Brian può usare ,(input) e solo Chuck può usare .(output). Oltre a <e >ci sono {e }che spostano la testa del nastro nella cella zero successiva (o nel caso {dell'estremità sinistra del nastro se non ci sono celle zero sulla strada). Invece [...], l'unico flusso di controllo è quello ?che commuta il controllo sull'altra istanza se la cella corrente è diversa da zero. La prima istruzione eseguita sull'altra cella è quella dopo la condizione. E infine, _è solo un alias per null-byte, per comodità.

Ora il codice. Brian inizia con questo:

,{-?

Questo legge l'input nella prima cella di Chuck, quindi sposta la testina a sinistra con {(non fa nulla in questo momento) e diminuisce l'input con -prima di cambiare il controllo per Chuck se il valore è ancora diverso da zero. Questo inizia il ciclo principale. Chuck quindi esegue questo bit:

}<<.{?

Questo sposta la testina su Brian fino alla fine, sposta due celle a sinistra sul = e la stampa davanti alla testina completamente a sinistra e riportando il controllo su Brian. Ecco come funzionano generalmente i loop in B&C.

Una volta che l'input è stato ridotto a zero, il ?nastro di Brian non farà nulla. Quindi Brian esegue questa parte:

>}-):(=?

Non ci ):(=sono operazioni, quindi il codice effettivo è giusto >}-?. Spostiamo la cella zero con >, spostiamo su _con }, diminuiamo per renderla diversa da zero e passiamo a Chuck con ?. Quindi viene eseguito l'ultimo bit su Chuck:

<.<.<.<.<.

Questo stampa semplicemente i cinque personaggi di fronte a Chuck, cioè =(:)-. Si noti che è necessario stamparne un altro =poiché il ciclo principale viene eseguito solo N-1per i tempi di input N.

V , 8 byte

Àé=A(:)-

Provalo online!

V utilizza la codifica "Latin1".

Spiegazione:

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

Retina , 10 byte

.+
$*=(:)-

Provalo online!

Questa è una semplice sostituzione regex.

Corrisponde a quello .+corrispondente all'intero input, quindi lo sostituisce con $*=(;)-.

Questa $*è una caratteristica unica in Retina: è l'operatore speciale di ripetizione del personaggio.

Ad esempio, 5$*xsarebbe diventato xxxxx.

Nel caso in cui l'argomento precedente sia assente, l'intera corrispondenza viene utilizzata come argomento predefinito.

Python, 21 byte

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

Ideone esso!

Haskell, 25 byte

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

'='<$[1..n]è equivalente a replicate n '='.

Java 8, 52 byte

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

Suite di test. (Compila> Esegui)

Credits .

il modo tradizionale, 61 54 53 byte

7 byte grazie a Kevin Cruijssen.

1 byte grazie a Dom Hastings.

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

Gelatina , 9 byte

”=x;“(:)-

Provalo online!

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

C, 38

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

Provalo su ideone.

05AB1E, 10 9 byte

'=×"ÿ(:)-

Spiegazione

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

Provalo online

1 byte salvato grazie ad Adnan.

Javascript, 23 byte

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

C #, 28 byte

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

Python , 24 byte.

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

input() ottiene input dall'utente

*, quando utilizzato su stringhe e un numero intero, crea una nuova stringa, che è composta da copie unite dell'originale. Ad esempio: "hello "*3output hello hello hello.

Moltiplicando =e input(), si ottiene una stringa della =lunghezza specificata dall'utente.

Usando +unisce due corde, in questo caso, il nostro corpo "=…="con la testa, "(:)-"per creare il serpente.

print genera il risultato.

GolfScript, 11 10 byte

~"="*"(:)-"

Moltiplica "=" per input e aggiunge la testa.

-1 grazie a Leaky Nun

Mathematica, 21 20 byte

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

Funzione anonima. Prende un numero n come input e restituisce un serpente di lunghezza n come output. "="~Table~#genera un elenco {"=", "=", ..., "="}di lunghezza n e <>"(:)-"concatena gli elementi dell'elenco e aggiunge "(:)-"alla stringa risultante.

R, 32 27 byte

Questa soluzione è piuttosto semplice, la repfunzione ripete il primo elemento ( "=") scan()volte, che è in realtà l'input dell'utente.

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

MODIFICA :

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

Risposta leggermente più breve, usando scan()direttamente.

In alternativa,

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

per un serpente non tritato ( 34 byte )

Lotto, 68 byte

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

CJam, 13 11 byte

qi'=*"(:)-"

Provalo qui.

-2 byte grazie alla quartata

Perl 6 ,  16 15  12 byte

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

Spiegazione:

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

Uso:

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

Testato con JAISBaL-0.0.7 (Il .jar compilato è stato appena spinto, ma la fonte è stata su git per un po ')

PowerShell v2 +, 19 byte

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

Programma completo. Accetta input $args[0], utilizza la moltiplicazione di stringhe per costruire il corpo, quindi concatenazione di stringhe per virare sulla testa.

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

salvato 2 byte grazie a owacoder! salvato 3 byte grazie a rici!

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

Provalo su Ideone!

Cheddar, 15 byte (non competitivo)

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

Una risposta semplice.

Sesos , 11 byte

hexdump:

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

Provalo 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 byte

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

Esempio;

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

Spiegazione;

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

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

Ha bisogno di -pbandiera, quindi corri con:

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

Minkolang 0,15 , 12 byte

"=(:)-"nD$O.

Provalo qui!

Spiegazione

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

Riceve input numerici dall'utente, quindi stampa il serpente.

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

Matlab / Octave, 22 byte

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

Questa è una funzione anonima.

Provalo su Ideone .

Spiegazione

Assumere n= 5.

1:nproduce il vettore riga [1 2 3 4 5].

~(1:n)annulla ogni voce, quindi dà [0 0 0 0 0].

...+61aggiunge 61ad ogni voce, quindi dà [61 61 61 61 61]. 61è il valore ASCII del carattere =.

[... '(:)-']lo concatena con la stringa '(:)-'. Questo si converte automaticamente [61 61 61 61 61]nella stringa '====='prima della concatenazione.