Hier ist ein Beispiel für die Eingabe von Monolithen . In diesem Beispiel gibt es 4.

  _
 | |        _
 | |  _    | |
 | | | |   | |     _
_| |_| |___| |____| |_

Der erste Monolith ist 4 Einheiten hoch, der zweite ist 2, der dritte ist 3 und der letzte ist 1.

Die Aufgabe

Ihr Programm sollte die Höhen der Monolithen in der Reihenfolge von links nach rechts ausgeben. Das Ausgabeformat kann eine beliebige Liste oder ein beliebiges Array sein.

Anmerkungen

• Die Eingabe kann als eine beliebige dimensionale Zeichenfolge, eine Liste von Zeichenfolgen oder eine Liste von Zeichen erfolgen.
• Dies ist Code-Golf , also gewinnt das niedrigste Byte .
• Es ist davon auszugehen, dass Monolithen immer die gleiche Breite haben und immer mindestens einen _Abstand voneinander haben.
• Sie können in jeder Höhe und in jeder Menge kommen.

I / O

  _
 | |        _
 | |  _    | |
 | | | |   | |     _
_| |_| |___| |____| |_   >> [4,2,3,1]

           _
          | |
  _       | |
 | |  _   | |  _
_| |_| |__| |_| |_   >> [2,1,4,1]


 _   _   _ 
| |_| |_| |_____   >> [1,1,1]

____________________   >> undefined behavior

 _
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |   >> [11]

     _       _       _       _       _
 _  | |  _  | |  _  | |  _  | |  _  | |
| |_| |_| |_| |_| |_| |_| |_| |_| |_| |  >> [1,2,1,2,1,2,1,2,1,2]

Jelly , (8?) 9 Bytes

Ỵ=”|Sḟ0m2

Ein monadischer Link, der eine Liste der angegebenen Zeichen akzeptiert und eine Liste der Ganzzahlen zurückgibt.

Hinweis: 8 Byte, wenn eine Liste von Zeichenfolgen (eine pro Zeile) als zulässiges Eingabeformat vorgesehen war - entfernen Sie einfach die Zeichenfolge Ỵ.

Probieren Sie es online!

Wie?

Ỵ=”|Sḟ0m2 - Link: list of characters, s
Ỵ         - split at newlines
  ”|      - literal '|'
 =        - equals (vectorises)
    S     - sum (vectorises, hence counts the number of '|' in every column)
     ḟ0   - filter out zeros (only keep the results from the sides of the towers)
       m2 - modulo index with 2 (keep only the left side measurements)

Jelly , 11 Bytes

ỴṚZi€”_ỊÐḟ’

Probieren Sie es online!

JavaScript (ES6), 79 bis 78 Byte

-1 Byte dank @Shaggy

a=>a.map((b,i)=>b.replace(/_/g,(_,j)=>o[j]=a.length-i-1),o=[])&&o.filter(x=>x)

Nimmt Eingaben als ein Array von Zeichenfolgen.

Testschnipsel

f=
a=>a.map((b,i)=>b.replace(/_/g,(_,j)=>o[j]=a.length-i-1),o=[])&&o.filter(x=>x)
I.value="           _\n          | |\n  _       | |\n | |  _   | |  _\n_| |_| |__| |_| |_"

<textarea id=I rows=7 cols=30></textarea><br><button onclick="O.value=`[${f(I.value.split`\n`).join`, `}]`">Run</button> <input id=O disabled>

C ++, 171 169 Bytes

#import<vector>
#import<iostream>
int f(std::vector<std::string>s){for(int a,j,i=0,k=s.size()-1;a=s[k][i];++i)if(a==32){for(j=0;(a=s[k-++j][i])-95;);std::cout<<j<<" ";}}

Probieren Sie es online!

C ++ (GCC), 150 Bytes

Danke an @aschepler!

#import<vector>
#import<iostream>
int f(auto s){for(int a,j,i=0,k=s.size()-1;a=s[k][i];++i)if(a==32){for(j=0;(a=s[k-++j][i])-95;);std::cout<<j<<" ";}}

Probieren Sie es online!

05AB1E , 11 Bytes

|Rζ'_δkJ®0‚K

Probieren Sie es online!

ζwurde von .Bøauf TIO ersetzt, da es dort noch nicht gezogen wurde.

Dyalog APL, 29 Bytes

{0~⍨↑+/(⌈/⍴¨⍵)↑¨(⍳≢⍵)×⌽⍵='_'}

Laufen Sie mit ⎕IO←0.

Probieren Sie es online!

Wie?

⌽⍵='_'- wo ⍵ist '_', oberste Zeile zuerst

×- mal ...

(⍳≢⍵)- der Bereich von ⍵(null indiziert)

↑¨ - Füllen Sie jede Zeile mit Nullen auf, indem Sie ...

(⌈/⍴¨⍵) - die maximale Länge

↑+/ - Summe der Zeilen mit Reißverschluss und Abflachung

0~⍨ - Entfernt Nullen

Python 2 , 75 Bytes

lambda s:[x.index('_')for x in map(None,*s.split('\n')[::-1])if'_'in x[1:]]

Probieren Sie es online!

PowerShell, 133 Byte

param($s)$r=,0*($l=($s=$s-replace'\| \|',' 1 ')[0].Length);1..$s.Count|%{$z=$_-1;0..($l-1)|%{$r[$_]+=(''+$s[$z][$_]-as[int])}};$r-ne0

Sieht aus wie es nicht sehr wettbewerbsfähig ist; Es wird ein regulärer Ausdruck ersetzt, um die Türme in Spalten von 1 zu verwandeln. Ein Array von 0 wird zur Länge der Eingabezeichenfolge. Anschließend werden die Zeilen schrittweise durchlaufen, wobei die Einsen addiert werden.

Tests bereit zu laufen:

$s1 = @'
  _                   
 | |        _         
 | |  _    | |        
 | | | |   | |     _  
_| |_| |___| |____| |_
'@-split"`r?`n"


$s2 = @'
 _
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| | 
'@-split"`r?`n"

$s3 = @'
           _      
          | |       
  _       | |           
 | |  _   | |  _   
_| |_| |__| |_| |_ 
'@-split"`r?`n"


$s4 = @'
 _   _   _      
| |_| |_| |_____ 
'@-split"`r?`n"

$s5 = @'
     _       _       _       _       _ 
 _  | |  _  | |  _  | |  _  | |  _  | |
| |_| |_| |_| |_| |_| |_| |_| |_| |_| | 
'@-split"`r?`n"

Japt , 11 Bytes

z ·mb'_ fw0

Online testen!

Erläuterung

z ·mb'_ fw0   : Implicit input
z             : Rotate the input clockwise. This puts the "floor" against the left side.
  ·           : Split the 2D string into lines.
   m          : Replace each column (now row) X with
    b'_       :   the index of '_' in X (0-indexed). This gives us the output list, with
              :   0's and -1's mixed in representing the columns that are not monoliths.
        f     : Take only the items X where
         w0   :   max(X, 0) is truthy. Since 0 is falsy, this removes anything <= 0.
              : Implicit: output result of last expression

Retina , 48 38 Bytes

^
¶
{`(¶.*)*¶_(.*¶)+
$#2 $&
}`¶.
¶
G`.

Probieren Sie es online! Link enthält erstes Beispiel. Erläuterung: Es wird eine Zeile vorangestellt, in der die Ergebnisse erfasst werden. Da jede Spalte _der Reihe nach wiederholt gelöscht wird, wird die Anzahl der verbleibenden Zeilen in der Spalte gezählt , wenn eine oberirdische Ebene vorhanden ist. Schließlich werden die jetzt leeren Zeilen gelöscht. Bearbeiten: 10 Bytes dank Inspriation von @FryAmTheEggman gespeichert.

Java 8, 133, 117 116 114 Bytes

a->{for(int l=a.length-1,i=0,j;i<a[0].length;i++)if(a[l][i]<33){for(j=0;a[j][i]<33;j++);System.out.print(l-j+",");}}

Übernimmt die Eingabe als (← speichert 16 Bytes). -2 Bytes im Austausch für weniger lesbare Ausgabe dank @ OlivierGrégoire durch Umstellung auf .String[] char[][]
print(l-j+",")println(l-j)

Erläuterung:

Probieren Sie es hier aus.

a->{                         // Method with character 2D-array parameter and no return-type
  for(int l=a.length-1,      //  Length of the 2D char-array - 1
      i=0,j;                 //  Index-integers
    i<a[0].length;i++)       //  Loop (1) over the 2D char-array
    if(a[l][i]<33){          //   If the base of the current column is a space
      for(j=0;a[j][i]<33;    //    Loop (2) over the cells in this column as long as
                             //    we encounter spaces (from top to bottom)
        j++                  //     And increase `j` every time, to go down the column
      );                     //    End of loop (2)
      System.out.println(l-j);
                             //    Print the amount of rows - `j`
    }                        //   End of if-block
                             //  End of loop (1) (implicit / single-line body)
}                            // End of method

Haskell, 75 74 Bytes

import Data.List;f=filter(>0).map(length.fst.span(<'!').reverse).transpose

Die Eingabe wird als Liste von Zeichenfolgen (zeilenweise) erwartet.

Ruby , 82 Bytes

Nimmt eine Liste von Zeilen auf.

->l{l.map! &:chars;(l.pop.zip(*l).map{|s|s.join.count ?|}-[i=0]).select{0<1&i+=1}}

Probieren Sie es online!

APL (Dyalog) , 14 Bytes

0~⍨⍳∘≢+.×'_'=⊖

mit ⎕IO←0

Probieren Sie es online!

Dieser Funktionszug entspricht {((⍳≢⍵)+.×('_'=⊖⍵))~0}

MATL , 12 Bytes

&nxG2\&fx-Xz

Die Eingabe ist eine Zeichenmatrix mit einem ;Zeilentrennzeichen.

Probieren Sie es online! Oder überprüfen Sie alle Testfälle .

C #, 150 144 137 Bytes

using System.Linq;a=>a.SelectMany((i,h)=>i.Select((c,w)=>new{c,w,d=a.Length-1-h}).Where(o=>o.c==95&o.d>0)).OrderBy(o=>o.w).Select(o=>o.d)

Voll / Formatierte Version:

using System;
using System.Collections.Generic;
using System.Linq;

class P
{
    static void Main()
    {
        Func<char[][], IEnumerable<int>> f = a =>
            a.SelectMany((i, h) => i.Select((c, w) => new { c, w, d = a.Length - 1 - h })
                                    .Where(o => o.c == 95 & o.d > 0))
             .OrderBy(o => o.w)
             .Select(o => o.d);

        Console.WriteLine(string.Concat(f(new char[][]
        {
            "  _                 ".ToArray(),
            " | |       _        ".ToArray(),
            " | |  _   | |       ".ToArray(),
            " | | | |  | |    _  ".ToArray(),
            "_| |_| |__| |___| |_".ToArray(),
        })));

        Console.ReadLine();
    }
}

Java 8 - 229 Bytes 213 Bytes

s->{Map<Integer,Integer> m=new TreeMap();String[] l=s.split("\n");for(int i=0,j=-1;i<l.length-1;++i){s=l[i];while((j=s.indexOf("_",j+1))>=0){m.put(j,i);}}for(int i:m.values()){System.out.print(l.length-i-1+",");}}

Probieren Sie es online!

Ungolfed:

public static void foo(String input)
{
    Map<Integer, Integer> map = new TreeMap(); // Raw types!!
    String[] lines = input.split("\n");

    for (int i = 0, j = -1; i < lines.length - 1; ++i)
    {
        input = lines[i];

        while ((j = input.indexOf("_", j + 1)) >= 0)
        {
            map.put(j, i);
        }
    }

    for(int i:map.values())
    {
        System.out.print(lines.length - i - 1 + ",");
    }
}

Woo, erster Beitrag. Jede Hilfe bei der Verbesserung wäre großartig. Ich weiß, dass ich indexOfdas zweimal loswerden kann . Wusste es! Ich spielte mit der Idee, die Typen in der Karte von Integer auf Long zu ändern, aber ich denke, das ist eine Sackgasse.

_{Ich weiß, dass es bereits eine viel, viel bessere Java 8-Lösung gibt , aber das ist eine char[][]Eingabe, die meiner Meinung nach in diesem Fall einfacher zu verarbeiten ist als String.}

MATL , 10 Bytes

ooYssqtO>)

Die Eingabe ist eine gepolsterte Zeichenmatrix.

Probieren Sie es online!

Mathematica, 48 47 39 Bytes

Last/@(Reverse@Most@#~Position~"_")&

Probieren Sie es online!

Functiondas erwartet ein rechteckiges Array von Zeichen. NimmtMost das Array (alle bis auf die letzte Zeile), Reversenimmt es dann das Transpose* und findet dann alle Positions, in denen das _Zeichen vorkommt. Die relevanten Höhen sind dieLast Elemente von jedem Position.

* ist das 3Byte für den privaten Gebrauch, U+F3C7das \[Transpose]in Mathematica dargestellt wird. Beachten Sie, dass dies in Mathematik nicht funktioniert , daher der TIO-Link nur verwendet wird Transpose.

SOGL V0.12 , 9 Bytes

I{ _WH╥?O

Probieren Sie es hier aus!
Nimmt Eingaben als Array von Arrays von Zeichenfolgen (Zeichen) an.

Erläuterung:

I          rotate the array clockwise
 {         for each element
   _       push "_"
    W      get its index in the array (0 if not found, 1 if its the ground, >1 if its what we need)
     H     decrease that
      ╥    palindromize (duplicates the number, if it's <0, then errors and pushes 0, if =0, pushes 0, if >0, then pushes the number palindromized (always truthy))
       ?   if that, then
        T  output in a new line the original decreased index

JavaScript (ES6), 108 104 88 Byte

16 Bytes dank @JustinMariner eingespart

i=>i.map((s,h)=>{while(t=r.exec(s))m[t.index]=i.length-h-1},m=[],r=/_/g)&&m.filter(e=>e)

Eingabe als Array von Zeichenfolgen

let input = [
'  _',
' | |           _',
' | |  _   _   | |',
' | | | | | |  | |     _',
'_| |_| |_| |__| |____| |_'
]

let anonymousFunction =
i=>i.map((s,h)=>{while(t=r.exec(s))m[t.index]=i.length-h-1},m=[],r=/_/g)&&m.filter(e=>e)

console.log(anonymousFunction(input))

CJam, 15 bis 14 Bytes

^{1 Byte gespart dank @BusinessCat}

{W%z'_f#{0>},}

Dies ist ein Block, der ein Array von Zeichenfolgen auf dem Stapel aufnimmt und ein Array ausgibt.

Erläuterung:

W%    e# Reverse
z     e# Zip
'_f#  e# Get the index of '_' in each element (-1 if not found)
{0>}, e# Filter where positive

Pip , 18 17 Bytes

15 Byte Code, +2 für -rpFlags.

_FI_@?'_MRVgZDs

Übernimmt die Eingabe von stdin. Probieren Sie es online!

Erläuterung

                 g is list of lines from stdin (-r flag); s is space
         RVg     Reverse g
            ZDs  Zip (transpose), filling gaps with a default char of space
        M        Map this function:
   _@?'_          Index of _ in each line (or nil if it doesn't appear)
_FI              Filter, keeping only the truthy (nonzero, non-nil) values
                 Autoprint in repr format (-p flag)

Pyth , 19 15 14 Bytes

f>T0mx_d\_.tQd

Online testen! Die Eingabe ist eine Liste von Zeilen.

Erklärungen

          .tQd     # Transpose, pad with spaces
    mx_d\_         # For each line, reverse it, find the position of "_" (-1 if not found)
f>T0               # Filter on positions greater than zero

Oktave, 31 Bytes

@(a)(s=sum(a>95))(s>0)(1:2:end)

Nimmt ein 2D-Array von Zeichen als Eingabe.

Überprüfen Sie alle Testfälle!

Perl 6 , 65 Bytes

{m:ex/^^(\N+)_([\N*\n]+:)/.sort(*[0].chars).map(+*[1].comb("
"))}

Probieren Sie es online!

• m:exhaustive/^^(\N+)_([\N*\n]+:)/Durchsucht die Eingabezeichenfolge nach allen Unterstrichen und gibt jeweils ein Übereinstimmungsobjekt zurück, wobei die ersten Erfassungsklammern den vorhergehenden Teil der Zeile enthalten, in der sich der Unterstrich befindet, und die zweiten Erfassungsklammern den gesamten Rest der Zeichenfolge enthalten. Der Rest der Zeichenfolge muss mindestens eine neue Zeile enthalten, damit die Unterstriche in Bodennähe nicht gezählt werden. Das:exhaustive Flag ermöglicht, dass sich diese Übereinstimmungen überschneiden.
• .sort(*[0].chars)sortiert diese Übereinstimmungsobjekte nach der Anzahl der Zeichen in dem Teil der Zeile, der jedem Unterstrich vorausgeht. Dies ordnet sie von links nach rechts.
• .map(+*[1].comb("\n"))Ordnet jedes Übereinstimmungsobjekt der Anzahl der Zeilenumbrüche in dem Teil der Eingabezeichenfolge zu, der hinter jedem Unterstrich (dh der Höhe) steht. Das \nist ein tatsächliches Newline-Zeichen, das ein Byte spart.

PHP, 119 Bytes

function($s){$r=array_map(null,...$s);foreach($r as$k=>&$v)if($v=array_count_values($v)['|'])echo($v+$r[$k+2]=0)." ";};

Lassen Sie uns das aufschlüsseln! Unsere Eingabe hier ist ein 2D-Array von Zeichen.

$r=array_map(null,...$s) // Neat little snippet to transpose the array

foreach($r as$k=>&$v)    // Loop through the array, grabbing each row of our 2D array 
(which is now each column of the monolith)

if($v=array_count_values($v)['|']) // Count the number of '|' characters in the column 
(which is the height of our monolith), and if it's greater than 0 (truthy in PHP)...

echo($v+$r[$k+2]=0)." "; // Output that number, and simultaneously set the row 2 indices
                            down to null (to remove duplicate values)

Nimmt eine mehrzeilige Zeichenfolge auf. Das Guthaben für das Setup (Kopf- und Fußzeile) geht an @GarethPW

Python 2 , 29 Bytes

lambda s:len(s.split('\n'))-1

Probieren Sie es online!

Dadurch wird das Array einfach nach Zeilenumbruch aufgeteilt und Länge-1 zurückgegeben.