Me dê um sorvete por favor

13

Faça-me um cone de sorvete, por favor

Temos uma tonelada de ótimos locais de sorvete aqui na Nova Inglaterra. A maioria deles está fechada para o inverno agora, então ...

   .-@@-.
  (======)
 (--------)
(==========)
(__________)
 \/\/\/\/\/
  \/\/\/\/
   \/\/\/
    \/\/
     \/

OBJETIVO Emita exatamente o cone de sorvete acima. (ou retorne de uma função)

Este é o código de golfe, então a resposta mais curta ganha

code-golf  string  ascii-art  kolmogorov-complexity 
— cleblanc
fonte
Isso parece um desafio estranho, simplesmente não executar isso como uma string literal tecnicamente seria uma solução para algumas linguagens interpretadas como JS / Python?
— 27430 Jacob Persi
2
@JacobPersi Este é um clássico de Kolmogorov-complexidade desafio, onde o objectivo é comprimir a string dada, tanto quanto possível, hardcode não é provavelmente muito golfy
— Mr. Xcoder
6
@ MichaelDorgan muitos dos idiomas foram inventados para o golfe de código, mas isso não deve desencorajá-lo a responder em idiomas de produção - aqui é sugerido que você promova respostas interessantes, e uma resposta iCeCrEaMCoNenão seria uma delas. Este site costumava ter uma regra que você não pode responder em um idioma (/ usa um recurso) mais recente que o desafio, mas que foi substituído por "não ative as respostas triviais". Afinal, existem línguas de golfe apenas por diversão :)
— dzaima
3
Entendido. Eu respondi uma recentemente no Arm Assembler. Obviamente, não vai ganhar, mas divertido no entanto :)
— Michael Dorgan
1
@StevenH. Aqui está o post meta - é um pouco velho, mas muitos ainda não o vi
— dzaima

Respostas:

10

SOGL V0.12 , 24 bytes

u%⅝⁾⁷‰┘Η:⅛6s⁹№K⌠RΝīL°‘§╬

Experimente aqui!

Uma solução simples de compactação:

....‘    push "@-.¶===(¶----(¶=====(¶_____(¶\/\/\¶/\/\¶\/\¶/\¶\"
     §   pad with spaces and reverse horizontally
      ╬  palindromize with 0 overlap and mirroring the characters

Sem versão de compactação - muito mais tempo, pois a compactação SOGLs funciona bem para isso

— dzaima
fonte
8

PowerShell , 85 bytes

"   .-@@-.
  (======)
 (--------)
($('='*10))
($('_'*10))"
1..5|%{" "*$_+'\/'*(6-$_)}

Experimente online!

OU

PowerShell , 85 bytes

"   .-@@-.
  (======)
 (--------)"
'=','_'|%{"($($_*10))"}
1..5|%{" "*$_+'\/'*(6-$_)}

Experimente online!

Faça sua escolha. Nos dois casos, as três primeiras linhas não têm bytes suficientes para fazer qualquer tipo de compactação no PowerShell.

O primeiro caso usa multiplicação de strings para produzir cada um dos 10 =e _linhas, enquanto o segundo usa uma multiplicação de loop e string. Em qualquer um dos casos, a última linha forma o cone, fazendo um loop de 1para 5e a cada iteração, produzindo o número apropriado de espaços seguido pelo número apropriado de peças do cone.

Todas essas strings são deixadas no pipeline, e o implícito Write-Outputna conclusão do programa nos fornece uma nova linha entre elementos de graça.

— AdmBorkBork
fonte
7

V , 48 46 bytes

i\/5ñ>GÄXa/\ñS³ .-@@-.
  (¶=)
 (¸-)
(±=)
(±_)

Experimente online!

Hexdump:

00000000: 695c 2f1b 35f1 3e47 c458 612f 5cf1 53b3  i\/.5.>G.Xa/\.S.
00000010: 202e 2d40 402d 2e0a 2020 28b6 3d29 0a20   .-@@-..  (.=). 
00000020: 28b8 2d29 0a28 b13d 290a 28b1 5f29       (.-).(.=).(._)
— James
fonte
7

Carvão , 29 bytes

@-.⸿Ｅ=-=⁺×ι⁺³κ)×_⁵Ｐ↙⁶)⸿‖Ｍ←¤/\

Experimente online! Link é a versão detalhada do código. Explicação:

@-.⸿

Imprima a metade direita da primeira linha.

Ｅ=-=⁺×ι⁺³κ)

Para cada um dos caracteres =-=, repita 3 vezes para o primeiro e um tempo adicional para cada caractere subseqüente e, em seguida, acrescente a ), imprimindo cada resultado em sua própria linha.

×_⁵

Imprima 5 _s.

Ｐ↙⁶

Imprima a borda do cone.

)⸿

Imprima a final )e posicione o cursor dentro do cone.

‖Ｍ←

Espelhe o meio cone.

¤/\

Encha o corpo do cone.

— Neil
fonte
7

Python 2 , 86 bytes

n=10
while n:print['\/'*n,'('+35/n*2*'-=_='[n%4]+')','.-@@-.'][-2%n/4].center(12);n-=1

Experimente online!

Trabalhando com a solução de Lynn .

— xnor
fonte
-2%n/4é tão legal :) Você procura expressões como essa manualmente ou executa algum tipo de busca por força bruta?
— Lynn
1
@ Lynn Corri um brute-forcer. Eu também fiz isso por 35/n*2, que ele descobriu como 5*7/n*2não conhece números de vários dígitos.
— Xnor
1
Ohh, isso é legal. Eu adoraria ver o código fonte!
— Lynn
5

Perl 6 , 115 95 94 92 90 bytes

3 bytes salvos por AlexDaniel em # perl6 em irc.freenode.net 

say "   .-@@-.
  (======)
 (--------)
({"="x 10})
({"_"x 10})";say(' 'x++$,'\/'x$--+5)xx 5

Experimente online!

— Lucas
fonte
5

05AB1E , 42 bytes

•3[ÜAʒg‰ŽÎ<\¦•6¡εS"-.@(=_"sèJ∞}'\∞5LRׂ˜.C

Experimente online!

1026344463000063444446355555 agora é o número de sorvete b / c que ninguém mais o usou.

Full program: •3[ÜAʒg‰ŽÎ<\¦•6¡εS"-.@(=_"sèJ∞}'\∞5LRׂ˜.C
current >> •  ||  stack: []
current >> 6  ||  stack: [1026344463000063444446355555]
current >> ¡  ||  stack: [1026344463000063444446355555, '6']
current >> ε  ||  stack: [['102', '3444', '30000', '344444', '355555']]
For each: S"-.@(=_"sèJ∞
Full program: S"-.@(=_"sèJ∞
current >> S  ||  stack: ['102']
current >> "  ||  stack: [['1', '0', '2']]
current >> s  ||  stack: [['1', '0', '2'], '-.@(=_']
current >> è  ||  stack: ['-.@(=_', ['1', '0', '2']]
current >> J  ||  stack: [['.', '-', '@']]
current >> ∞  ||  stack: ['.-@']
stack > ['.-@@-.']
Full program: S"-.@(=_"sèJ∞
current >> S  ||  stack: ['3444']
current >> "  ||  stack: [['3', '4', '4', '4']]
current >> s  ||  stack: [['3', '4', '4', '4'], '-.@(=_']
current >> è  ||  stack: ['-.@(=_', ['3', '4', '4', '4']]
current >> J  ||  stack: [['(', '=', '=', '=']]
current >> ∞  ||  stack: ['(===']
stack > ['(======)']
Full program: S"-.@(=_"sèJ∞
current >> S  ||  stack: ['30000']
current >> "  ||  stack: [['3', '0', '0', '0', '0']]
current >> s  ||  stack: [['3', '0', '0', '0', '0'], '-.@(=_']
current >> è  ||  stack: ['-.@(=_', ['3', '0', '0', '0', '0']]
current >> J  ||  stack: [['(', '-', '-', '-', '-']]
current >> ∞  ||  stack: ['(----']
stack > ['(--------)']
Full program: S"-.@(=_"sèJ∞
current >> S  ||  stack: ['344444']
current >> "  ||  stack: [['3', '4', '4', '4', '4', '4']]
current >> s  ||  stack: [['3', '4', '4', '4', '4', '4'], '-.@(=_']
current >> è  ||  stack: ['-.@(=_', ['3', '4', '4', '4', '4', '4']]
current >> J  ||  stack: [['(', '=', '=', '=', '=', '=']]
current >> ∞  ||  stack: ['(=====']
stack > ['(==========)']
Full program: S"-.@(=_"sèJ∞
current >> S  ||  stack: ['355555']
current >> "  ||  stack: [['3', '5', '5', '5', '5', '5']]
current >> s  ||  stack: [['3', '5', '5', '5', '5', '5'], '-.@(=_']
current >> è  ||  stack: ['-.@(=_', ['3', '5', '5', '5', '5', '5']]
current >> J  ||  stack: [['(', '_', '_', '_', '_', '_']]
current >> ∞  ||  stack: ['(_____']
stack > ['(__________)']
current >> '  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)']]
current >> ∞  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], '\\']
current >> 5  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], '\\/']
current >> L  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], '\\/', '5']
current >> R  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], '\\/', [1, 2, 3, 4, 5]]
current >> ×  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], '\\/', [5, 4, 3, 2, 1]]
current >> ‚  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], ['\\/\\/\\/\\/\\/', '\\/\\/\\/\\/', '\\/\\/\\/', '\\/\\/', '\\/']]
current >> ˜  ||  stack: [[['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)'], ['\\/\\/\\/\\/\\/', '\\/\\/\\/\\/', '\\/\\/\\/', '\\/\\/', '\\/']]]
current >> .  ||  stack: [['.-@@-.', '(======)', '(--------)', '(==========)', '(__________)', '\\/\\/\\/\\/\\/', '\\/\\/\\/\\/', '\\/\\/\\/', '\\/\\/', '\\/']]
   .-@@-.
  (======)
 (--------)
(==========)
(__________)
 \/\/\/\/\/
  \/\/\/\/
   \/\/\/
    \/\/
     \/
stack > ['   .-@@-.\n  (======)\n (--------)\n(==========)\n(__________)\n \\/\\/\\/\\/\\/\n  \\/\\/\\/\\/\n   \\/\\/\\/\n    \\/\\/\n     \\/']

•3[ÜAʒg‰ŽÎ<\¦•               | Pushes 1026344463000063444446355555 to the stack.
-----------------------------+-------------------------------------------------
6¡                           | Split on 6's.
-----------------------------+-------------------------------------------------
  ε             }            | Loop on each piece to create the top of the icecream...
   S                         | Split into single chars.
    "-.@(=_"sè               | Substitute in the correct symbol for each number.
              J∞             | Join, then mirror.
-----------------------------+-------------------------------------------------
                 '\∞         | Push \/.
                    5LR      | Push [5,4,3,2,1]
                       ×     | Multiply '\/' by each 5,4,3,2 and 1.
                        ‚˜   | Join top to bottom.
                          .C | Center w/ newlines.
— Urna de polvo mágico
fonte
3

Chiclete , 50 bytes

00000000: 5350 50d0 d375 70d0 d5e3 5250 d0b0 0503  SPP..up...RP....
00000010: 4d2e 050d 5d28 d0e4 020b c224 34e2 e100  M...](.....$4...
00000020: a82a 461f 0681 9a91 980a 0896 0284 0161  .*F............a
00000030: 0100                                     ..

Experimente online!

— ovs
fonte
3

C, 171 bytes

i;p(c,n,o){for(printf("%*c",o,i?32:40);n--;)printf(c);puts(i?"":")");}f(){p(".-@@-.",i=1,3);--i;p("=",6,3);p("-",8,2);p("=",10,1);p("_",10,1);for(i=6;--i;)p("\\/",i,6-i);}

Experimente online!

C, 146 bytes

f(){puts("   .-@@-.\n  (======)\n (--------)\n(==========)\n(__________)\n \\/\\/\\/\\/\\/\n  \\/\\/\\/\\/\n   \\/\\/\\/\n    \\/\\/\n     \\/");}

Apenas imprime a string codificada.

Experimente online!

— Steadybox
fonte
1
Você pode fazer melhor do que este I pensa ...
— cleblanc
2

Perl 5 , 92 bytes

say'   .-@@-.
  (======)
 (--------)
(==========)
(__________)';$_='\/'x6;say while s%\\/% %

Experimente online!

— Xcali
fonte
Você não precisa contar a entrada para a contagem de bytes? Caso contrário, basta introduzir a cadeia inteira ...
— cleblanc
Não há entrada. Isso foi apenas uma sobra de TIO de outra coisa que eu estava fazendo.
— Xcali
legal, entendi obrigado.
— Cleblanc 17/11
+1. Você pode salvar um casal usando a decodificação RLE, mas não consegui usá-lo ;como delimitador por s///trabalhar por algum motivo. No celular, não é possível fazer nada demais!Experimente online!
— Dom Hastings
2

Ruby , 97 bytes

i=-1
puts ['   .-@@-.']+123455543.digits.map{|n|(i+=1;i<4?"(#{'=-=_'[i]*n*2})":'\/'*n).center 12}

Experimente online!

Primeira vez que você usa Ruby, então dicas são muito bem-vindas.

— Justin Mariner
fonte
1

Python 3, 202 bytes

Isso é terrível, são mais bytes do que apenas definir a string e imprimir isso mesmo.

print("   .-@@-.")
print("  ("+"="*6+")")
print(" ("+"-"*8+")")
print("("+"="*10+")")
print("("+"_"*10+")")
print(" "+"\/"*5)
print("  "+"\/"*4)
print("   "+"\/"*3)
print("    "+"\/"*2)
print("     \/")

Experimente Online

— Ben
fonte
6
Você pode usar \nem vez de separados printdeclarações
— Nissa
148 bytes usando esta abordagem
— Sr. Xcoder 17/17
7
Bem-vindo ao PPCG!
— AdmBorkBork
1

Geléia , 74 72 bytes

5RU⁾\/ẋ
5R×⁶ż¢Y
3,6,8,10,10j1ż“ “.-@@-.¶  (“=“)¶ (“-“)¶(“=“)¶(“_“)¶”P€;¢

Experimente online!

Explicação:

5RU⁾\/ẋ    Link 1. Generate list of "\/"s for cone.
5RU        Range 5, reverse. Gets [5,4,3,2,1].
   ⁾\/     Literal string "\/".
      ẋ    Repeat. Gets ["\/\/\/\/\/","\/\/\/\/","\/\/\/","\/\/","\/"].

5R×⁶ż¢Y    Link 2. Generate rest of cone.
5R         Range 5. Gets [1,2,3,4,5].
  ×⁶       Repeat " " that many times. Gets [" ","  ","   ","    ","     "]
    ż¢     Zip that with the ¢ones. Gets a list of alternating space and cones.
      Y    Join with newlines. This puts it all together for the big cone.

3,6,8,10,10j1ż“ “.-@@-.¶  (“=“)¶ (“-“)¶(“=“)¶(“_“)¶”P€;¢    Link 3. Generate the top and put it on the cone.
10,10,8,6j1;1U                                                Generate list 3,1,6,1,8,1,10,1,10. Does this by joining [10,10,8,6] with ones, appending a one, and reversing.
               “   .-@@-.¶  (“=“)¶ (“-“)¶(“=“)¶(“_“)¶”        List of strings. This separates the completed parts from the non completed parts.
              ż                                               Zip 'em together. Gets [number, string, number, string, ...]
                                                      P€      Get the product of €ach. This completes the non completed strings by repeating them.
                                                        ;¢    Attach the ¢one to the end.
— Camarada SparklePony
fonte
1

Mathematica, 117 bytes

Column[Join[{".-@@-."},"("<>#<>")"&/@{"="~(T=Table)~6,"-"~T~8,"="~T~10,"_"~T~10},T[""<>T["\/",i],{i,5,1,-1}]],Center]


Saídas
insira a descrição da imagem aqui

você pode testá-lo na sandbox wolfram (embora as fontes usadas possam distorcer um pouco o resultado)

— J42161217
fonte
Curiosamente \/é um personagem especial. Eu não poderia encontrar o que é usado para assim que eu perguntei sobre Mma.SE: mathematica.stackexchange.com/q/200673/61597
— lirtosiast
1

C, 138 bytes

f(i,j){puts("   .-@@-.\n  (======)\n (--------)\n(==========)\n(__________)");for(j=1;++j<7;i=puts(""))for(;i<7;)printf(i++<j?" ":"\\/");}

Experimente online!

— Colera Su
fonte
Sugerir em j=6;--j;puts(""))for(i=7;--i;)printf(&L"⽜ "[i>j]vez dej=1;++j<7;i=puts(""))for(;i<7;)printf(i++<j?" ":"\\/"
— ceilingcat
1

VimL, ​​76 bytes

a   .-@@-.␤  ␤ ␛k6A=␛j8A-␛o␛10A=␛o␛10A_␛qaI(␛A)␛kq3@aGo ␛5A\/␛qayypxxI ␛q3@a

Animado com vimanim.py .

— bodqhrohro
fonte
1

C 165 bytes

y,x,z;f(){for(puts("   .-@@-.");y++<9;)for(;x=++x%14;)z=y+3-y/4,putchar(x<13?y<5?x-7^z-1?7-x^z?abs(x-7)<z?y<4?y&1?61:45:95:32:40:41:x+y>16|y-x>3?32:x+y&1?92:47:10);}
— PrincePolka
fonte
1

Cubicamente , 345 336 bytes

⇒@@@
RU+30f1+3-00@-2+3@+4@@-4@+2-3@-110@+31-4@@+2-4@+10f1f1-3+0@-400@+31-4@+2-4@+3-10f1f1@@-4+1@-400@+11@+10f1f1f1@-3+0@-400@+11@+4110@f1f1f1-22@-400@+31-4@+220@-43@+43@-43@+43@-43@+43@-43@+43@-43@-4000@+31-4@@+220@-43@+43@-43@+43@-43@+43@-43@-4000@+31-4f1+220@-43@+43@-43@+43@-43@-4000@+31-4f1@+220@-43@+43@-43@-4000@+31-4f1@@+220@-43@

Encontrado através desta ferramenta e jogado por meio de pesquisa e substituição, com algumas otimizações personalizadas.

Experimente online!

Método alternativo:

391 bytes (não modifica o cubo)

+5/1+3@@@:1/1+5@5.0+2@@5.0-2@-4@:5/1+3@@:4/1+4@:5+2/1+51@@@@@@:5/1+4@:1/1+1@:5/1+3@:4/1+4@5.05.05.05.05.05.05.05.0:5/1+4@:1/1+1@:4/1+4@:5+2/1+51@@@@@@@@@@:5/1+4@:1/1+1@:4/1+4@:5/1+55@@@@@@@@@@-51@:1/1+1@:5/1+3@:2/1+55@-5@+5@-5@+5@-5@+5@-5@+5@-5@:1/1+1@:5/1+3@@:2/1+55@-5@+5@-5@+5@-5@+5@-5@:1/1+1@:5/1+3@@@:2/1+55@-5@+5@-5@+5@-5@:1/1+1@:5/1+3@@@@:2/1+55@-5@+5@-5@:1/1+1@:5/1+3@@@@@:2/1+55@-5@
— MD XF
fonte
1

C (gcc) , 137 136 bytes

-1 bytes graças a ceilingcat

main(i){for(puts("   .-@@-.\n  (======)\n (--------)\n(==========)\n(__________)");8<printf("%*c%s\n",++i,92,"/\\/\\/\\/\\/\\/"+i*2););}

Experimente online!

— cleblanc
fonte
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.