Perl, 103 + 2 = 105 ไบต์
s/$/$"x y===c/gem;$a=$_;$_.=$"while$a=~s/^./!($_.=$&)/gem;s/$1/-/g,$b="$&$b"while/\s(\w)(\1|-)+ /;say$b
ทำงานด้วย-n0(โทษ 2 ไบต์)
คำอธิบาย:
# -n0: read entire input into `$_` at start of program
# (technically speaking it reads to the first NUL byte, but there aren't any)
# We want to be able to extract columns from the input, so we need to add spaces
# to the ends of each line such that each column is complete. Adding too many
# space is OK, so to ensure we have enough, we add a number of spaces equal to the
# length of the input.
s/$/ # At the end of {something},
$" x # append a number of spaces ($" is a space by default)
y===c # obtained by counting the characters in $_
/gem; # where {something} is each (g) line (m)
$a = $_; # store a copy of the transformed input in $a
# The next step is to create a transposition of the input. To do that, we
# repeatedly extract the first column of $a and append it to $_. This will lead to
# a bunch of junk whitespace at the end of $_ (of varying lengths, because once a
# line is empty it's omitted from the extracted column), but we're OK with that.
# To transpose properly, we'd want to place newlines between the extracted
# columns; however, it happens that the rest of the program treats space the same
# way it would newline, and separating via spaces is shorter, so we do that.
while ( # keep looping as long as there are matches
$a =~ s/^./ # replace the first character of {something related to $a}
!( # with the null string (NOT of something truthy)
$_.=$&) # but append that character ($&) to $_
/gem) { # {something} is each (g) line (m) of $a
$_.=$" # append a space ($", equivalent to newline here) to $_
}
# Finally, we repeatedly replace every character in the topmost line with the -
# character (treating a line as continuous through the - character but not through
# other characters), thus finding the lines from top to bottom. Because we
# appended the transpose of $_ to $_ above, each line appears twice: once
# horizontally, once vertically. We find only the horizontal copy, but replace
# both with hyphens.
# (Note: I rewrote the regex into a bit more readable of a form in this ungolfed
# version, because the original version wouldn't allow me room to write comments
# inside it. The two should be equivalent; I tested the golfed version.)
while ( # keep looping as long as there are matches
/\s(\w) # match a space or newline, $1 (a letter/digit/underscore),
(\1|-)+ # any positive number of $1s and hyphens,
\ /x) { # and a space
s/$1/-/g, # changes all $1s to spaces; set $& to $1, $1 becomes invalid
$b = "$&$b" # prepend $& to $b
}
# We need to output the lines from first (i.e. bottom) to last (i.e. top).
# We found them in the opposite order, but reversed them via prepending
# (not appending) the partial results to $b.
say $b # output $b
ความบอบบางเล็กน้อยที่นี่มาพร้อมกับอินพุตเช่นนี้:
เอบีซี
DDDDDDDDD
เอบีซี
เอบีซี
เอบีซี
ดูบรรทัดที่สี่ที่นี่ หากลำดับการเขียนเป็น BACBD อาจมีเส้นแนวนอนอย่างแท้จริงBโดยไม่ละเมิดสมมติฐานใด ๆ ของปัญหา (นอกเหนือจากนั้นมีเพียงหนึ่งบรรทัดของแต่ละสีซึ่งเป็นสิ่งที่เราไม่ได้ตรวจสอบ) เพื่อให้ได้สิ่งนี้เรามั่นใจว่าใน regex สุดท้ายที่แต่ละบรรทัดเริ่มต้นด้วยตัวอักษร (หรือตัวเลขหรือขีดเส้นใต้ แต่เป็นไปไม่ได้) และพึ่งพาความจริงที่ว่าเส้นคู่ขนานจะพบจากซ้ายไปขวาและบนสุด -to-bottom (เพราะ regex จะค้นหาคู่แรกภายในสตริง) ด้วยเหตุนี้อักขระตัวแรกของแต่ละบรรทัดที่ไม่ชัดเจนในที่นี้จะถูกเขียนทับก่อนที่เส้นจะถูกมองว่าเป็นการจับคู่และป้องกันการจับคู่ regex