*** Paisajes ***

28

Objetivo : ¡Escribir un programa que genere hermosos (?) Paisajes y horizontes de arte ASCII!

Su programa tiene solo una entrada: una cadena compuesta de cualquier combinación / repetición de los caracteres 0123456789abc.

Para cada carácter de entrada, genere una línea vertical compuesta de la siguiente manera:

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

0123456789

En abccambio, las letras van seguidas de un número n, y dibuja la línea vertical n con respectivamente 1,2 o 3 agujeros (espacios) en la parte inferior.

Ejemplos

El edificio Crysler

Entrada: 2479742

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

El Taj Mahal

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

La torre Eiffel

Entrada: 011a2b3b5c9c9b5b3a2110

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

Puede suponer que la entrada no está vacía y que está bien formada.
Se acepta cualquier idioma, desde A + hasta Z ++ .

Este es el código de golf: gana el código fuente más corto .
Si algo en las reglas no está claro, no dude en preguntar a continuación en los comentarios.

¡Diviértete y captura estructuras de cien metros de altura en unos pocos bytes!

(y no olvide incluir su edificio favorito en su solución)

PD: no, no puede descargar / acceder a datos de Internet, use su nombre de archivo como datos y todo eso. Sé justo y usa solo tus habilidades de código de golf.

Gabriele D'Antona
fuente
Me parece alto 9 ...: -?
Gabriele D'Antona
Ah, ya lo veo: la parte superior se define como "c9", es decir: dibuja una línea vertical con altura 9 y afeita los 3 caracteres inferiores. Es por eso que te parece alto 7. Lea las reglas nuevamente y dígame si está bien.
Gabriele D'Antona
ok, leí mal su especificación de la compensación.
Howard

Respuestas:

5

GolfScript, 69

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

No muy lejos de la solución APL.

Prueba en línea

Volatilidad
fuente
5

Rubí, 88 85

Desafío divertido!

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

Toma información en la línea de comandos, por ejemplo:

ruby landscapes.rb 011a2b3b5c9c9b5b3a2110

Imprimirá:

      ..      
      ..      
      ..      
      oo      
     oooo     
     OOOO     
    OOOOOO    
   XXX  XXX   
 XXX      XXX 
XXX        XXX
Paul Prestidge
fuente
5

Python 2.7 - 186

Probablemente puede ser más corto ...

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)

Ejecución de muestra:

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

Puente de Harbour en Sidney

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

Puente Golden Gate / logotipo de Cisco

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

Gran pregunta por cierto!


fuente
Grandes monumentos! :)
Gabriele D'Antona
5

C64 BASIC, 276 caracteres PETSCII

¡Mi propia solución, hasta 276 caracteres y 10 líneas de 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",".",".","."

(copie y pegue en un emulador para ver el resultado).

Y finalmente, mi monumento favorito, el Puente de Brooklyn :)

ingrese la descripción de la imagen aquí

Gabriele D'Antona
fuente
5

C, 130 126 caracteres

Un poco largo en comparación con la competencia, pero culpo al lenguaje ...

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

No sé sobre el edificio favorito , pero uno de los más reconocibles por aquí es Globen , así que aquí hay una mala interpretación del mismo.

% ./a.out <<<24556667777776665542


       ......       
    oooooooooooo    
  oooooooooooooooo  
 OOOOOOOOOOOOOOOOOO 
 OOOOOOOOOOOOOOOOOO 
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXX
Luciérnaga
fuente
Puede cortar un carácter cambiando el orden de declaración de char b[99],*p;modo que se lea char*p,b[99];. También puede ser más corto de usar putspara imprimir la nueva línea.
C0deH4cker
@ C0deH4cker bien, gracias! Eso me ahorra cuatro caracteres.
FireFly
@friol oh, no quise decir eso en absoluto, es solo que no sé lo que consideraría mi edificio favorito. : P
FireFly
3

APL ( 69 66)

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

Ejemplos:

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

 . .
 . .
 oo 
 o oo o 
 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∊⍨ Yo ← ⌽⍞]
011a2b3b5c9c9b5b3a2110
      ..      
      ..      
      ..      
      oo      
     oooo     
     OOOO     
    OOOOOO    
   XXX XXX   
 XXX XXX 
XXX XXX
marinus
fuente
No conozco muy bien APL, pero ¿estás seguro de que necesitas el espacio al comienzo de la cadena 'XXXOOoo ...'?
Gabriele D'Antona
@friol: sí, se usa para llenar el espacio "vacío"
marinus
2

PowerShell , 127 bytes

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

Pruébalo en línea!

mazzy
fuente
2

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

Pruébalo en línea!

$ 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
fuente
1

Perl 6 , 93 bytes

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

Un bloque que toma la cadena e imprime en stdout.

Pruébalo en línea!

bb94
fuente
1

05AB1E (heredado) , 34 bytes

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

Utiliza la versión heredada de 05AB1E para guardar 2 bytes, ya que ζtambién funciona en cadenas en lugar de solo listas de caracteres.

Pruébalo en línea.

Explicación:

R                  # Reverse the (implicit) input-string
 v                 # Loop `y` over each character:
  yi             #  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)

En cuanto a mi 'edificio' favorito, vamos con este árbol. ;)

b2b3b4b5b6b7898b7b6b5b4b3b2

       .       
      ...      
     .....     
    ooooooo    
   ooooooooo   
  OOOOOOOOOOO  
 OOOOOOOOOOOOO 
XXXXXXXXXXXXXXX
      XXX      
      XXX      
Kevin Cruijssen
fuente
1

Japt -R , 36 bytes

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

Intentalo

óȦ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
Lanudo
fuente