Objective: Write a program that generates beautiful (?) ASCII-art landscapes and skylines!

Your program has just one input: a string composed of any combination/repetition of the chars 0123456789abc.

For each input character, output a vertical line composed as follows:

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

0123456789

Letters abc instead are followed by one number n, and draw the vertical line n with respectively 1,2 or 3 holes (spaces) at the bottom.

Examples

The Crysler Building

Input: 2479742

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

The Taj Mahal

Input: 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

The Eiffel Tower

Input: 011a2b3b5c9c9b5b3a2110

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

You can assume input is not empty and that it's well-formed.
Any language is accepted, from A+ to Z++.

This is code-golf: the shortest source code wins.
If anything in the rules is not clear, feel free to ask below in the comments.

Have fun, and capture hundred meters high structures in a few bytes!

(and don't forget to include your favourite building in your solution)

P.S.: no, you can't download/access data from the Internet, use your file name as data and all that stuff. Be fair, and use only your code-golf skills.

Gabriele D'Antona

Posted 2014-01-20T22:30:13.733

Reputation: 1 336

Seems tall 9 to me...:-? – Gabriele D'Antona – 2014-01-21T06:52:28.643

Oh, I see it: the top is defined as "c9", that means: draw a vertical line with height 9 and shave off the 3 bottom chars. That's why it seems tall 7 to you. Read the rules again and tell me if it's ok. – Gabriele D'Antona – 2014-01-21T07:04:22.410

ok, i misread your specification of the offset. – Howard – 2014-01-21T08:21:19.797

Answers

GolfScript, 69

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

Not far off the APL solution.

Test online

Volatility

Posted 2014-01-20T22:30:13.733

Reputation: 3 206

Ruby, 88 85

Fun challenge!

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

Takes input on the commandline, eg:

ruby landscapes.rb 011a2b3b5c9c9b5b3a2110

Will print out:

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

Paul Prestidge

Posted 2014-01-20T22:30:13.733

Reputation: 2 390

C, 130 126 chars

Kinda long compared to the competition, but I blame the language...

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

I don't know about favourite building, but one of the more recognizable ones around here is Globen, so here is a poor rendition of it.

% ./a.out <<<24556667777776665542


       ......       
    oooooooooooo    
  oooooooooooooooo  
 OOOOOOOOOOOOOOOOOO 
 OOOOOOOOOOOOOOOOOO 
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX

FireFly

Posted 2014-01-20T22:30:13.733

Reputation: 7 107

You can chop off a character by switching the declaration order of char b[99],*p; so it reads char*p,b[99];. Also it may be shorter to use puts for printing the newline. – C0deH4cker – 2014-01-23T21:10:29.363

@C0deH4cker nice, thanks! That saves me four chars. – FireFly – 2014-01-23T21:52:57.840

@friol oh, I didn't mean it like that at all, it's just that I dunno what I'd consider my favourite building. :P – FireFly – 2014-01-24T19:01:44.857

Python 2.7 - 186

Probably can be shorter...

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)

Sample run:

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

Sydney Harbour Bridge

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

Golden gate bridge / Cisco logo

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

Great question by the way!

user8777

Posted 2014-01-20T22:30:13.733

Reputation:

Great monuments! :) – Gabriele D'Antona – 2014-01-22T17:59:05.280

C64 BASIC, 276 PETSCII chars

My own solution, golfed down to 276 chars and 10 lines of 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",".",".","."

(copy and paste in an emulator to see the result).

And finally, my favourite monument, the Brooklyn Bridge :)

enter image description here

Gabriele D'Antona

Posted 2014-01-20T22:30:13.733

Reputation: 1 336

APL (69 66)

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

Examples:

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

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

marinus

Posted 2014-01-20T22:30:13.733

Reputation: 30 224

I don't know APL very well, but are you sure you need the space at the beginning of the ' XXXOOoo...' string? – Gabriele D'Antona – 2014-01-21T07:05:45.960

@friol: yes, it's used to fill up the "empty" space – marinus – 2014-01-21T10:12:26.313

PowerShell, 127 bytes

$r=,''*10
$args|% t*y|%{if($_-in97..99){$b=$_-96}else{,' '*$b+'XXXOOoo...'[$b.."$_"]+,' '*(9-"$_")|%{$r[--$i]+=$_}
$b=$i=0}}
$r

Try it online!

mazzy

Posted 2014-01-20T22:30:13.733

Reputation: 4 832

Canvas, 35 33 bytes

±｛⌐╷≡？┤╵“`Fc|C！‟ｍ］ｃ96－ ×１１╋╋｝｝）⤢⇵

Try it here!

dzaima

Posted 2014-01-20T22:30:13.733

Reputation: 19 048

PHP, 131 114 bytes

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

Try it online!

$ 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

Russ G

Posted 2014-01-20T22:30:13.733

Reputation: 41

Perl 6, 93 bytes

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

A block that takes in the string and prints to stdout.

Try it online!

bb94

Posted 2014-01-20T22:30:13.733

Reputation: 1 831

Japt `-R`, 36 bytes

óÈ¦nÃ£ÒXÌ î"XXXOOoo..."hSpXÎnD)s9Ãz3

Try it

óÈ¦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

Shaggy

Posted 2014-01-20T22:30:13.733

Reputation: 24 623

05AB1E (legacy), 34 bytes

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

Uses the legacy version of 05AB1E to save 2 bytes, since ζ also works on strings instead of just lists of characters.

Try it online.

Explanation:

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)

As for my favorite 'building', let's go with this tree. ;)

b2b3b4b5b6b7898b7b6b5b4b3b2

       .       
      ...      
     .....     
    ooooooo    
   ooooooooo   
  OOOOOOOOOOO  
 OOOOOOOOOOOOO 
XXXXXXXXXXXXXXX
      XXX      
      XXX

Kevin Cruijssen

Posted 2014-01-20T22:30:13.733

Reputation: 67 575

***Landscapes***

Answers

GolfScript, 69

Ruby, 88 85

C, 130 126 chars

Python 2.7 - 186

Sydney Harbour Bridge

Golden gate bridge / Cisco logo

C64 BASIC, 276 PETSCII chars

APL (69 66)

PowerShell, 127 bytes

Canvas, 35 33 bytes

PHP, 131 114 bytes

Perl 6, 93 bytes

Japt -R, 36 bytes

05AB1E (legacy), 34 bytes

Landscapes

Japt `-R`, 36 bytes