***风景***

28

目标：编写一个程序，以生成美丽的（？）ASCII艺术风景和天际线！

您的程序只有一个输入：一个由char的任意组合/重复组成的字符串0123456789abc。

对于每个输入字符，输出如下垂直线：

         .
        ..
       ...
      oooo
     ooooo
    OOOOOO
   OOOOOOO
  XXXXXXXX
 XXXXXXXXX
XXXXXXXXXX

0123456789

字母abc后跟一个数字n，并在底部绘制垂直线n，分别具有1,2或3个孔（空格）。

例子

克莱斯勒大厦

输入：2479742

   .
   .
  ...
  ooo
  ooo
 OOOOO
 OOOOO
XXXXXXX
XXXXXXX
XXXXXXX

泰姬陵

输入：0804023324554233204080

 .                  .
 .                  .
 o                  o
 o        oo        o
 O O     OOOO     O O
 O O  OO OOOO OO  O O
 X X XXXXXXXXXXXX X X
 X X XXXXXXXXXXXX X X
XXXXXXXXXXXXXXXXXXXXXX

艾菲尔铁塔

输入：011a2b3b5c9c9b5b3a2110

      ..
      ..
      ..
      oo
     oooo
     OOOO
    OOOOOO
   XXX  XXX
 XXX      XXX
XXX        XXX

您可以假设输入不为空且格式正确。
接受从A +到Z ++的任何语言。

这是代码问题：最短的源代码获胜。
如果规则中有任何不清楚的地方，请随时在下面的评论中提问。

玩得开心，用几字节捕获数百米高的建筑物！

（并且不要忘记在您的解决方案中包括您最喜欢的建筑物）

PS：不，您不能从Internet下载/访问数据，请使用文件名作为数据以及所有其他内容。公平地说，只使用您的代码高尔夫球技能。

code-golf  ascii-art 
— 加布里埃莱·德安东尼
source
对我来说似乎9高...：-？
— 2014年
哦，我知道了：顶部定义为“ c9”，这意味着：绘制一条高度为9的垂直线并刮掉3个底部字符。这就是为什么您觉得7高。再次阅读规则，然后告诉我是否可以。
— 2014年
好的，我误读了您指定的偏移量。
— 霍华德

Answers:

5

GolfScript，69岁

'XXXOOoo...':s\{.96>{96-.' '*\@>+}{47-<' '10*+10<s\}if}%10/zip-1%n*\;

与APL解决方案相距不远。

在线测试

— 挥发性
source
5

红宝石， 88 85

有趣的挑战！

9.downto(0){|h|puts$*[0].gsub(/(\D?)(.)/){'XXXOOoo... '[h<$1.hex-9||$2.hex<h ?-1:h]}}

在命令行上输入，例如：

ruby landscapes.rb 011a2b3b5c9c9b5b3a2110

将打印出：

      ..      
      ..      
      ..      
      oo      
     oooo     
     OOOO     
    OOOOOO    
   XXX  XXX   
 XXX      XXX 
XXX        XXX
— 保罗·普雷斯蒂奇
source
5

Python 2.7-186

可能会更短...

x=[]
l=iter(raw_input())
a="XXX00oo..."
for i in l:
 try:i=int(i);o=0
 except:o=" abc".index(i);i=int(next(l))
 x.append(" "*o+a[o:i+1]+" "*(9-i))
for i in zip(*x)[::-1]:print''.join(i)

样品运行：

08040233245542332040800000247974200000011a2b3b5c9c9b5b3a2110
                             .              ..
 .                  .        .              ..
 .                  .       ...             ..
 o                  o       ooo             oo
 o        oo        o       ooo            oooo
 0 0     0000     0 0      00000           0000
 0 0  00 0000 00  0 0      00000          000000
 X X XXXXXXXXXXXX X X     XXXXXXX        XXX  XXX
 X X XXXXXXXXXXXX X X     XXXXXXX      XXX      XXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX        XXX

悉尼海港大桥

a1a13443a1a2a3a4a5a6a6a7a7a8a8a8a8a9a9a9a9a9a9a8a8a8a8a7a7a6a6a5a4a4a3a2a13443a1a1
                   ......
               ..............
             ..................
           oooooooooooooooooooooo
          oooooooooooooooooooooooo
   00    000000000000000000000000000    00
  0000  00000000000000000000000000000  0000
  XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  XXXX                                 XXXX

金门大桥/思科徽标

a2a0a0a4a0a06a0a0a4a0a0a2a0a0a4a0a06a0a0a4a0a0a2



      o           o
      o           o
   0  0  0     0  0  0
   0  0  0     0  0  0
X  X  X  X  X  X  X  X  X
X  X  X  X  X  X  X  X  X
      X           X

顺便问个好问题！

伟大的古迹！:)
— Gabriele D'Antona 2014年
5

C64 BASIC，276个PETSCII字符

我自己的解决方案，打入276个字符和10行BASIC V2.0！

0inputa$:dIc$(10):fOi=0to9:rE c$(i):nE:fOr=0to9
1z=1
2c=aS(mI(a$,z,z+1))
3ifc>57tHgO8
4ifc>=57-r tH?c$(9-r);:gO6
5?" ";
6z=z+1:ifz<=len(a$)gO2
7?:nE:eN
8z=z+1:w=aS(mI(a$,z,z+1)):ifw>=57-r aNc<=73-r tH?c$(9-r);:gO6
9?" ";:gO6:dA"x","x","x","o","o","W","W",".",".","."

（复制并粘贴到仿真器中以查看结果）。

最后，我最喜欢的纪念碑，布鲁克林大桥:)

enter image description here

— 加布里埃莱·德安东尼
source
5

C，130 126个字符

与竞争相比，金田（Kinda）很久了，但我把语言归咎于...

char*p,b[99];r=10,q;main(o){for(gets(&b);r--;puts(""))
for(p=b;q=*p++;)o=q<60?putchar("XXXOOoo... "[o<r&r<q-47?r:10]),-1:q-97;}

我不知道最喜欢的建筑，但是这里周围最知名的建筑之一是Globen，所以这里的建筑简直不尽人意。

% ./a.out <<<24556667777776665542


       ......       
    oooooooooooo    
  oooooooooooooooo  
 OOOOOOOOOOOOOOOOOO 
 OOOOOOOOOOOOOOOOOO 
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
— 萤火虫
source
您可以通过切换的声明顺序来砍掉一个字符，char b[99],*p;使其读入char*p,b[99];。同样，puts用于打印换行符的时间可能会更短。
— C0deH4cker 2014年
@ C0deH4cker很好，谢谢！这为我节省了四个字符。
— FireFly 2014年
@friol哦，我根本不是那个意思，只是我不知道自己认为我最喜欢的建筑是什么。：P
— FireFly 2014年
3

APL（69 66）

' XXXOOoo...'[1+⌽⍉⌽↑{z×(z<' abc'⍳⍵)<(1+⍎⍺)≥z←⍳10}/↑2↑¨I⊂⍨⎕D∊⍨I←⌽⍞]

例子：

      'XXXOOoo ...'[1 +⌽⍉⌽↑{z×（z <'abc'⍳⍵）<（1 +⍎⍺）≥z←⍳10} /↑2↑¨I⊂⍨⎕D∊⍨我←⌽⍞]
0804023324554233204080

 。。
 。。
 OO 
 喔喔喔 
 OO OOOO OO 
 OO OO OOOO OO OO 
 XX XXXXXXXXXXXX XX 
 XX XXXXXXXXXXXX XX 
XXXXXXXXXXXXXXXXXXXXXX

      'XXXOOoo ...'[1 +⌽⍉⌽↑{z×（z <'abc'⍳⍵）<（1 +⍎⍺）≥z←⍳10} /↑2↑¨I⊂⍨⎕D∊⍨我←⌽⍞]
011a2b3b5c9c9b5b3a2110
      ..      
      ..      
      ..      
      OO      
     oo     
     OOOO     
    O    
   XXX XXX   
 XXX XXX 
XXX XXX
— 马里纳斯
source
我对APL不太了解，但是您确定在'XXXOOoo ...'字符串开头需要空格吗？
— 2014年
@friol：是的，它用来填充“空”空间
— marinus 2014年
2

PHP，131 114字节

for($b=10;$b--;print"
")foreach(str_split($argn)as$a)$c=strpos(' abc',$a)?:!print$a<$b|$b<$c?' ':'XXXOOoo...'[$b];

在线尝试！

$ echo 2479742|php -nF land.php 
   . 
   . 
  ... 
  ooo 
  ooo 
 OOOOO 
 OOOOO 
XXXXXXX 
XXXXXXX 
XXXXXXX 


$ echo 011a2b3b5c9c9b5b3a2110|php -nF land.php 
      .. 
      .. 
      .. 
      oo 
     oooo 
     OOOO 
    OOOOOO 
   XXX  XXX 
 XXX      XXX 
XXX        XXX 


$ echo a2a0a0a4a0a06a0a0a4a0a0a2a0a0a4a0a06a0a0a4a0a0a2|php -nF land.php 



      o           o 
      o           o 
   O  O  O     O  O  O 
   O  O  O     O  O  O 
X  X  X  X  X  X  X  X  X 
X  X  X  X  X  X  X  X  X 
      X           X
— 拉斯·G
source
1

Perl 6，93个字节

{for 9...0 ->\n {say .subst(/(\D)?(.)/,{'XXXOOoo... '.comb[$1>=n>=ord($0//0)-96??n!!10]}):g}}

一个接受字符串并打印到stdout的块。

在线尝试！

— bb94
source
1

05AB1E（旧版），34 个字节

Rvy.ïi"XXXOOoo..."y>£ëðAykÝǝ])ζRí»

使用05AB1E的旧版版本可节省2个字节，因为它ζ也适用于字符串，而不仅仅是字符列表。

在线尝试。

说明：

R                  # Reverse the (implicit) input-string
 v                 # Loop `y` over each character:
  y.ïi             #  If `y` is a digit:
      "XXXOOoo..." #   Push string "XXXOOoo..."
        y>£        #   And only leave the first `y`+1 characters as substring
     ë             #  Else (`y` is a letter):
       Ayk         #   Get the index of `y` in the lowercase alphabet
          Ý        #   Create a list in the range [0, alphabet-index]
      ð    ǝ       #   Replace in the string at the top of the stack the characters at
                   #   those indices with a space
 ]                 # Close the if-else statement and loop
  )                # Wrap all strings on the stack into a list
   ζ               # Zip/transpose; swapping rows/columns
    Rí             # Reverse this list, as well as each individual line
      »            # And join the strings by newlines
                   # (after which the result is output implicitly)

至于我最喜欢的“建筑”，让我们一起来看看这棵树。;）

b2b3b4b5b6b7898b7b6b5b4b3b2

       .       
      ...      
     .....     
    ooooooo    
   ooooooooo   
  OOOOOOOOOOO  
 OOOOOOOOOOOOO 
XXXXXXXXXXXXXXX
      XXX      
      XXX
— 凯文·克鲁伊森
source
1

Japt -R，36个字节

óȦnãÒXÌ î"XXXOOoo..."hSpXÎnD)s9Ãz3

试试吧

óȦnãÒXÌ î"..."hSpXÎnD)s9Ãz3     :Implicit input of string
ó                                 :Partition at
 È                                :Characters that return true when passed through the following function
  ¦                               :  Test for inequality with
   n                              :  Convert to number
    Ã                             :End function
     £                            :Map each X
      Ò                           :  Bitwise increment
       XÌ                         :  Last character of X
          î                       :  Slice the following to that length
           "..."                  :    Literal string
                h                 :    Replace as many characters as necessary at the start of that string with
                 S                :      Space
                  p               :      Repeat
                   XÎ             :        First character of X
                     n            :        Convert from base
                      D           :        14
                       )          :      End repeat
                        s9        :      Slice off the first 9 characters
                          Ã       :End map
                           z3     :Rotate clockwise by 90 degrees 3 times
                                  :Implicit output, joined by newlines
— 毛茸茸
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.