นี่คือตัวอย่างของการป้อนข้อมูลของนักการสา มี 4 ในตัวอย่างนี้

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

เสาหินก้อนแรกมีความสูง 4 หน่วยตัวที่สองคือ 2 ตัวที่สามคือ 3 และตัวสุดท้ายคือ 1

งาน

โปรแกรมของคุณควรแสดงความสูงของเสาหินตามลำดับจากซ้ายไปขวา รูปแบบผลลัพธ์สามารถอยู่ในรายการหรือแถวลำดับใดก็ได้

หมายเหตุ

• อินพุตสามารถใช้เป็นสตริงมิติรายการของสตริงหรือรายการของอักขระ
• นี่คือรหัสกอล์ฟดังนั้นต่ำสุดไบต์ชนะ
• คุณต้องสมมติว่าเสาหินมีความกว้างเท่ากันเสมอและอยู่_ห่างจากที่อื่นอย่างน้อย 1 ครั้ง
• พวกเขาสามารถมาในความสูงใด ๆ และในปริมาณใด ๆ

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]

เยลลี่ , (8?) 9 ไบต์

Ỵ=”|Sḟ0m2

ลิงก์ monadic ยอมรับรายการอักขระตามที่ระบุและส่งคืนรายการจำนวนเต็ม

หมายเหตุ: 8 ไบต์ถ้ารายการของสตริงหนึ่งต่อบรรทัดก็ตั้งใจจริงๆที่จะเป็นรูปแบบการป้อนข้อมูลที่ได้รับอนุญาต - Ỵเพียงแค่ลบ

ลองออนไลน์!

อย่างไร?

Ỵ=”|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)

เยลลี่ 11 ไบต์

ỴṚZi€”_ỊÐḟ’

ลองออนไลน์!

JavaScript (ES6), 79 78 ไบต์

-1 ไบต์ขอบคุณ @Shaggy

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

รับอินพุตเป็นอาร์เรย์ของสตริง

ตัวอย่างการทดสอบ

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 ไบต์

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

ลองออนไลน์!

C ++ (GCC) 150 ไบต์

ขอบคุณ @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<<" ";}}

ลองออนไลน์!

05AB1E , 11 ไบต์

|Rζ'_δkJ®0‚K

ลองออนไลน์!

ζถูกแทนที่ด้วย.Bøบน TIO เนื่องจากยังไม่ได้ถูกดึงไปที่นั่น

Dyalog APL ขนาด 29 ไบต์

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

⎕IO←0ทำงานด้วย

ลองออนไลน์!

อย่างไร?

⌽⍵='_'- กรณีที่⍵เป็น'_'เส้นด้านบนเป็นครั้งแรก

×- คูณด้วย ...

(⍳≢⍵)- ช่วงของ⍵(ศูนย์จัดทำดัชนี)

↑¨ - สำหรับแต่ละบรรทัดให้ปัดด้วยศูนย์ด้วย ...

(⌈/⍴¨⍵) - ความยาวสูงสุด

↑+/ - รวมแถวที่ซิปและแบน

0~⍨ - ลบเลขศูนย์

Python 2 , 75 ไบต์

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

ลองออนไลน์!

PowerShell, 133 ไบต์

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

ดูเหมือนว่ามันจะไม่แข่งขันมาก มันจะเปลี่ยน regex เพื่อเปลี่ยน towers เป็นคอลัมน์ 1 ทำให้อาร์เรย์เป็น 0 ความยาวของสตริงอินพุตจากนั้นทำตามขั้นตอนผ่านบรรทัดที่เพิ่ม 1s ลงไป

การทดสอบพร้อมที่จะทำงาน:

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


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

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


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

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

Japt , 11 ไบต์

z ·mb'_ fw0

ทดสอบออนไลน์!

คำอธิบาย

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

เรติน่า48 48ไบต์

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

ลองออนไลน์! ลิงก์มีตัวอย่างแรก คำอธิบาย: บรรทัดนำหน้าซึ่งจะรวบรวมผลลัพธ์ เนื่องจากคอลัมน์แต่ละคอลัมน์จะถูกลบซ้ำ ๆ กันผู้ที่มี_ระดับพื้นดินด้านบนจะมีจำนวนบรรทัดที่เหลืออยู่ในคอลัมน์ ในที่สุดบรรทัดว่างตอนนี้จะถูกลบ แก้ไข: บันทึก 10 ไบต์ด้วยแรงบันดาลใจจาก @FryAmTheEggman

Java 8, 133 117 116 114 ไบต์

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+",");}}

ใช้อินพุตเป็น(←บันทึก 16 ไบต์) -2 ไบต์ในการแลกเปลี่ยนสำหรับการส่งออกน้อยขอบคุณที่อ่านได้จะ@ OlivierGrégoireโดยการเปลี่ยนไปString[] char[][]
print(l-j+",")println(l-j)

คำอธิบาย:

ลองที่นี่

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 ไบต์

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

คาดว่าอินพุตเป็นรายการของสตริง (rowwise)

Ruby , 82 ไบต์

ใช้ในรายการของบรรทัด

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

ลองออนไลน์!

APL (Dyalog)ขนาด 14 ไบต์

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

กับ ⎕IO←0

ลองออนไลน์!

ฟังก์ชั่นนี้เทียบเท่ากับ {((⍳≢⍵)+.×('_'=⊖⍵))~0}

MATLขนาด 12 ไบต์

&nxG2\&fx-Xz

อินพุตเป็นเมทริกซ์ถ่านโดยมี;ตัวคั่นแถว

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

C #, 150 144 137 ไบต์

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)

เวอร์ชันเต็ม / ฟอร์แมต:

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 ไบต์ 213 ไบต์

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+",");}}

ลองออนไลน์!

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 + ",");
    }
}

วูโพสต์แรก ความช่วยเหลือใด ๆ ในการปรับปรุงจะดีมาก ฉันรู้ว่าฉันสามารถกำจัดสิ่งที่indexOfเขียนได้สองครั้ง รู้แล้ว! ฉันเล่นกับความคิดในการเปลี่ยนประเภทในแผนที่จาก Integer เป็น Long แต่ฉันคิดว่ามันเป็นจุดจบ

_{ฉันรู้ว่ามีวิธีแก้ปัญหา Java 8 ที่ดีกว่าอยู่มาก แต่ใช้char[][]เป็นอินพุตซึ่งฉันคิดว่าง่ายกว่าที่จะใช้งานในกรณีนี้มากกว่า String}

MATL 10 ไบต์

ooYssqtO>)

อินพุตเป็นเมทริกซ์อักขระเสริม

ลองออนไลน์!

Mathematica, 48 47 39 ไบต์

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

ลองออนไลน์!

Functionซึ่งคาดว่าอาร์เรย์ของอักขระสี่เหลี่ยม ใช้Mostอาร์เรย์ (ทั้งหมดยกเว้นแถวสุดท้าย) Reverseจากนั้นใช้Transpose* จากนั้นค้นหาPositions ทั้งหมดที่_อักขระปรากฏ ความสูงที่เกี่ยวข้องคือLastองค์ประกอบของแต่ละPositionส่วน

* เป็น3อักขระใช้งานไบต์ส่วนตัวU+F3C7ซึ่งแสดง\[Transpose]ใน Mathematica โปรดทราบว่าวิธีนี้ใช้ไม่ได้ในMathicsดังนั้นลิงก์ TIO จึงใช้งานTransposeได้

SOGL V0.12 , 9 ไบต์

I{ _WH╥?O

ลองที่นี่!
รับอินพุตเป็นอาร์เรย์ของอาร์เรย์ของสตริง (อักขระ)

คำอธิบาย:

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 ไบต์

บันทึกแล้ว 16 ไบต์ขอบคุณ @JustinMariner

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

อินพุตถูกใช้เป็นอาร์เรย์ของสตริง

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 14 ไบต์

^{บันทึก 1 ไบต์ขอบคุณ @BusinessCat}

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

นี่คือบล็อกที่ใช้อาร์เรย์ของสตริงบนสแต็กและส่งออกอาร์เรย์

คำอธิบาย:

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 ไบต์

โค้ด 15 ไบต์, +2 สำหรับ-rpแฟล็ก

_FI_@?'_MRVgZDs

รับอินพุตจาก stdin ลองออนไลน์!

คำอธิบาย

                 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 ไบต์

f>T0mx_d\_.tQd

ทดสอบออนไลน์! อินพุตเป็นรายการของบรรทัด

คำอธิบาย

          .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

อ็อกเทฟ 31 ไบต์

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

ใช้อาร์เรย์ของตัวอักษรแบบ 2 มิติเป็นอินพุต

ตรวจสอบกรณีทดสอบทั้งหมด!

Perl 6 , 65 ไบต์

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

ลองออนไลน์!

• m:exhaustive/^^(\N+)_([\N*\n]+:)/ค้นหาสตริงอินพุตสำหรับขีดล่างทั้งหมดและส่งคืนอ็อบเจ็กต์การจับคู่สำหรับแต่ละรายการโดยที่วงเล็บที่จับภาพแรกมีส่วนก่อนหน้าของบรรทัดที่พบขีดล่างและวงเล็บจับภาพที่สองมีวงเล็บที่เหลือทั้งหมดของสตริง ส่วนที่เหลือของสตริงจะต้องมีอย่างน้อยหนึ่งบรรทัดใหม่ดังนั้นเราจึงไม่นับขีดเส้นใต้ที่ระดับพื้นดิน :exhaustiveธงช่วยตรงนี้จะทับซ้อนกัน
• .sort(*[0].chars)เรียงลำดับวัตถุการจับคู่เหล่านี้ตามจำนวนตัวอักษรในส่วนของบรรทัดก่อนหน้าขีดล่างแต่ละอัน คำสั่งนี้พวกเขาจากซ้ายไปขวา
• .map(+*[1].comb("\n"))จับคู่แต่ละวัตถุที่จับคู่กับจำนวนของอักขระบรรทัดใหม่ในส่วนของสตริงอินพุตที่ลากแต่ละขีดล่าง - นั่นคือความสูง \nเป็นตัวละครที่เกิดขึ้นจริงขึ้นบรรทัดใหม่ประหยัดหนึ่งไบต์

PHP, 119 ไบต์

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

มาทำลายมันกันเถอะ! อินพุตของเราที่นี่คืออาร์เรย์ 2 มิติของตัวอักษร

$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)

ใช้เวลาในสตริงหลายบรรทัด เครดิตสำหรับการตั้งค่า (ส่วนหัวและส่วนท้าย) ไปที่ @GarethPW

Python 2 , 29 ไบต์

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

ลองออนไลน์!

สิ่งนี้จะแบ่งอาร์เรย์ด้วยการขึ้นบรรทัดใหม่และส่งคืนความยาว -1