请给我勺冰淇淋

13

请给我冰淇淋蛋筒

在新英格兰，我们有很多很棒的冰淇淋店。他们大多数现在冬天都关闭了，所以...

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

目标 准确输出上述冰淇淋蛋筒。（或从函数返回）

这是代码高尔夫球，所以最短答案胜出

code-golf  string  ascii-art  kolmogorov-complexity 
— 克莱布朗
source
这似乎是一个奇怪的挑战，难道从技术上简单地将其作为字符串文字执行不是对某些解释语言（例如JS / Python）的解决方案吗？
— 雅各布·珀西
2
@JacobPersi这是一个经典的Kolmogorov复杂性的挑战，这里的目的是为了给定的字符串压缩尽可能多的，硬编码可能不是太golfy
— Xcoder先生
6
@MichaelDorgan许多语言都是为代码高尔夫而发明的，但这不应该阻止您使用生产语言进行回答-在这里建议您推荐有趣的答案，而答案iCeCrEaMCoNe不是其中之一。该站点甚至曾经规定，您不能使用比挑战语言新的语言（/使用功能）来回答问题，但已被“不要支持琐碎的回答”所取代。毕竟，这些高尔夫语言的存在只是为了娱乐：)
— dzaima
3
明白了 我最近在Arm Assembler中回答了一个。显然不会赢，但仍然会很有趣:)
— Michael Dorgan
1
@StevenH。这是meta帖子
— 有点旧

Answers:

10

SOGL V0.12，24个字节

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

在这里尝试！

一个简单的压缩解决方案：

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

没有压缩版本 -更长的时间，因为SOGL压缩对此效果很好

— 宰马
source
8

PowerShell，85字节

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

在线尝试！

要么

PowerShell，85字节

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

在线尝试！

随便你吧。在这两种情况下，前三行都没有足够的字节来在PowerShell中进行任何形式的压缩。

第一种情况使用字符串乘法来产生10个长度=和每_行，而第二种情况使用循环和字符串乘法。无论哪种情况，最后一行都形成圆锥体，从1到循环，5并且每次迭代输出适当数量的空格，然后输出适当数量的圆锥体。

所有这些字符串都留在管道上，并且Write-Output在程序完成时隐式提供了免费的元素间换行符。

— AdmBorkBork
source
7

V，48 46字节

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

在线尝试！

十六进制转储：

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       (.-).(.=).(._)
— 詹姆士
source
7

木炭，29字节

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

在线尝试！链接是详细版本的代码。说明：

@-.⸿

打印第一行的右半部分。

Ｅ=-=⁺×ι⁺³κ)

对于每个字符=-=，对于第一个字符重复3次，然后对每个后续字符重复一次，然后附加a )，将每个结果打印在自己的行上。

×_⁵

打印5 _s。

Ｐ↙⁶

打印圆锥体的边缘。

)⸿

打印最终版本)并将光标定位在圆锥体内。

‖Ｍ←

镜像半锥体。

¤/\

填充圆锥体。

— 尼尔
source
7

Python 2，86个字节

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

在线尝试！

工作关琳的解决方案。

— 异或
source
-2%n/4太酷了：)您是手动搜索这样的表达式还是运行某种蛮力搜索？
— 林恩
1
@林恩我跑了蛮力。我也这样做了35/n*2，5*7/n*2因为它不知道多位数，所以发现了它。
— xnor
1
哦，很整洁。我很想看看源代码！
— 林恩
5

Perl 6的，115 95 94 92 90个字节

AlexDaniel在irc.freenode.net上的＃perl6中保存了3个字节 

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

在线尝试！

— 路加
source
5

05AB1E，42个字节

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

在线尝试！

1026344463000063063446446355555现在是没有其他人使用的冰淇淋编号b / c。

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.
— 魔术章鱼缸
source
3

泡泡糖，50个字节

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

在线尝试！

— ovs
source
3

C，171字节

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);}

在线尝试！

C，146字节

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

只需打印硬编码的字符串。

在线尝试！

— 稳定箱
source
1
我认为您可以做得更好……
— cleblanc
2

Perl 5，92个字节

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

在线尝试！

— Xcali
source
您是否不需要将输入计入字节数？否则，只需输入整个字符串...
— cleblanc
没有输入。那只是我正在做的其他事情留下的TIO。
— Xcali
很酷，谢谢。
— cleblanc
+1。您可以使用RLE解码来保存一对，但是由于某种原因，我无法;用作分隔符s///。在移动设备上不能做太多事情！在线尝试！
— Dom Hastings
1

Python 3，202个字节

这非常可怕，它的字节数比仅定义字符串并打印还要多。

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

在线试用

— 本
source
6
您可以使用\n而不是单独的print语句
— Nissa
使用这种方法的148个字节
— Xcoder先生，2017年
7
欢迎来到PPCG！
— AdmBorkBork
1

果冻，74 72字节

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

在线尝试！

说明：

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.
— 小马同志
source
1

Mathematica，117个字节

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


产出
在此处输入图片说明

您可以在Wolfram沙箱上进行测试（尽管它们使用的字体可能会使结果失真一些）

— J42161217
source
有趣的\/是一个特殊字符。我找不到它的用途，所以我在Mma.SE上询问：mathematica.stackexchange.com/q/200673/61597
— lirtosiast
1

C，138字节

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

在线尝试！

— 苏
source
建议j=6;--j;puts(""))for(i=7;--i;)printf(&L"⽜ "[i>j]而不是j=1;++j<7;i=puts(""))for(;i<7;)printf(i++<j?" ":"\\/"
— ceilingcat '18
1

C 165字节

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);}
— 波尔卡王子
source
1

立方体，345个 336字节

⇒@@@
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@

通过此工具找到并通过搜索和替换进行了优化，并进行了一些自定义优化。

在线尝试！

替代方法：

391个字节（不修改多维数据集）

+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
source
1

C（gcc），137136字节

-1个字节，感谢ceilingcat

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

在线尝试！

— 克莱布朗
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.