Đây là câu hỏi về codegolf đầu tiên của tôi, vì vậy tôi xin lỗi trước nếu nó không phù hợp và tôi hoan nghênh mọi phản hồi.

Tôi có một tập tin với định dạng này:

a | rest of first line
b | rest of second line
b | rest of third line
c | rest of fourth line
d | rest of fifth line
d | rest of sixth line

Các nội dung thực tế khác nhau, cũng như dấu phân cách. Các nội dung chỉ là văn bản. Dấu phân cách chỉ xuất hiện một lần trên mỗi dòng. Đối với câu đố này, vui lòng thay đổi dấu phân cách, ví dụ: sử dụng "%" làm dấu phân cách.

Sản phẩm chất lượng:

a | rest of first line
b | rest of second line % rest of third line
c | rest of fourth line
d | rest of fifth line % rest of sixth line

Tôi đã có cả hai tập lệnh ruby ​​và awk để hợp nhất điều này, nhưng tôi nghi ngờ có thể có một oneliner ngắn. tức là một lớp lót có thể được sử dụng cùng với các đường ống và các lệnh khác trên dòng lệnh. Tôi không thể tìm ra nó, và kịch bản của riêng tôi là dài để chỉ nén trên dòng lệnh.

Nhân vật ngắn nhất ưa thích. Đầu vào không nhất thiết phải được sắp xếp, nhưng chúng tôi chỉ quan tâm đến việc hợp nhất các dòng liên tiếp với các trường đầu tiên phù hợp. Có dòng không giới hạn với các trường đầu tiên phù hợp. Trường 1 có thể là bất cứ thứ gì, ví dụ như tên của các loại trái cây, tên riêng, v.v.

(Tôi chạy trên MacOS, vì vậy cá nhân tôi quan tâm nhất đến việc triển khai chạy trên mac).

Đây là một ví dụ / thử nghiệm thứ hai. Thông báo "|" là dấu phân cách Khoảng trắng trước dấu "|" là không liên quan, và nếu bực bội nên được coi là một phần của chìa khóa. Tôi đang sử dụng "%" làm giới hạn trong đầu ra, nhưng một lần nữa, vui lòng thay đổi dấu phân cách (nhưng không sử dụng dấu ngoặc vuông).

Đầu vào:

why|[may express] surprise, reluctance, impatience, annoyance, indignation
whom|[used in] questions, subordination
whom|[possessive] whose
whom|[subjective] who
whoever|[objective] whomever
whoever|[possessive] whosever
who|[possessive] whose
who|[objective] whom

Sản phẩm chất lượng:

why|[may express] surprise, reluctance, impatience, annoyance, indignation
whom|[used in] questions, subordination%[possessive] whose%[subjective] who
whoever|[objective] whomever%[possessive] whosever
who|[possessive] whose%[objective] whom

Võng mạc , 17 byte

• 12 byte được lưu nhờ @MartinEnder
• Lưu 1 byte nhờ @ jimmy23013

Được ghi trong các byte được mã hóa ISO 8859-1.

Sử dụng ;thay vì |như dấu phân cách trường đầu vào.

(?<=(.+;).+)¶\1
%

Hãy thử trực tuyến.

V , 16 13 byte

òí^¨á«©.*úsî±

Hãy thử trực tuyến!

Bạn đã nói

Hãy thay đổi dấu phân cách

Vì vậy, tôi đã chọn |làm dấu phân cách. Nếu điều này không hợp lệ, hãy cho tôi biết và tôi sẽ thay đổi nó.

Giải trình:

ò                #Recursively:
 í               #Search for the following on any line:
  ^¨á«©          #1 or more alphabetic characters at the beginning of the line
       .*        #Followed by anything
         ús      #Mark everything after this to be removed:
           î±    #A new line, then the first match again (one or more alphabetic characters)

Perl -0n, 2 + 43 = 45 byte

s/
.*\|/%/g,print for/(.*\|)((?:
\1|.)*
)/g

Bản giới thiệu:

$ perl -0ne 's/
> .*\|/%/g,print for/(.*\|)((?:
> \1|.)*
> )/g' <<EOF
> why|[may express] surprise, reluctance, impatience, annoyance, indignation
> whom|[used in] questions, subordination
> whom|[possessive] whose
> whom|[subjective] who
> whoever|[objective] whomever
> whoever|[possessive] whosever
> who|[possessive] whose
> who|[objective] whom
> EOF
why|[may express] surprise, reluctance, impatience, annoyance, indignation
whom|[used in] questions, subordination%[possessive] whose%[subjective] who
whoever|[objective] whomever%[possessive] whosever
who|[possessive] whose%[objective] whom

SQL (PostgreSQL), 43 72 byte

COPY T FROM'T'(DELIMITER'|');SELECT a,string_agg(b,'%')FROM T GROUP BY A

Điều này tận dụng chức năng tổng hợp chuỗi_agg tiện dụng trong PostgreSQL. Đầu vào là từ một bảng được gọi Tvới 2 cột Avà B. Để tuân thủ câu hỏi tốt hơn, tôi đã đưa vào lệnh để tải dữ liệu từ một tệp vào bảng. Các tập tin là Ttốt. Tôi đã không đếm bảng tạo bảng.
Đầu ra sẽ không được sắp xếp, nhưng nếu đó là một vấn đề thì nó có thể được sửa bằngORDER BY A

SQLFiddle không muốn chơi cho tôi, nhưng đây là những gì tôi nhận được trong thiết lập của mình.

CREATE TABLE T (A VARCHAR(9),B VARCHAR(30));

COPY T FROM'T'(DELIMITER'|');SELECT a,string_agg(b,'%')FROM T GROUP BY A
a   string_agg
--- ----------------------------------------
c   rest of fourth line
b   rest of second line%rest of third line
a   rest of first line
d   rest of fifth line%rest of sixth line

C, 127 byte

o[99],n[99],p=n;main(i){for(;gets(n);strncmp(o,n,i-p)?printf(*o?"\n%s":"%s",n),strcpy(o,n):printf(" /%s",i))i=1+strchr(n,'|');}

Hoạt động với gcc. Thay đổi dấu phân cách thành /. Đưa đầu vào từ stdin và ghi đầu ra vào thiết bị xuất chuẩn, vì vậy hãy gọi với chuyển hướng đầu vào./a.out <filename

Ung dung:

o[99],n[99] //declare int, to save two bytes for the bounds
,p=n; //p is an int, saves one byte as opposed to applying an (int) cast to n,
//or to declaring o and n as char arrays
main(i){for(;gets(n);strncmp(o,n,i-p //an (int)n cast would be needed;
// -(n-i) does not work either,
//because pointer arithmetics scales to (int*)
)?printf(*o?"\n%s":"%s" //to avoid a newline at the beginning of output
,n),strcpy(o,n):printf(" /%s",i))i=1+strchr(n,'|');}

Pyth - 15 byte

Đưa ra một vài giả định về vấn đề, sẽ thay đổi khi OP làm rõ.

jm+Khhd-sdK.ghk

Hãy thử trực tuyến tại đây .

Python 3 - 146 byte

Đầu vào là tên tệp hoặc đường dẫn tệp của tệp, đầu ra là xuất chuẩn. Có thể ngắn hơn rất nhiều nếu tôi có thể lấy đầu vào dưới dạng văn bản thô từ dòng lệnh

Đưa đầu vào từ stdin và đầu ra cho stdin. Thiết lập với dải phân cách "|". Để kiểm tra đầu vào ví dụ đầu tiên, sử dụng dấu phân cách" | "

from itertools import*
for c,b in groupby([x.split("|")for x in input().split("\n")],key=lambda x:x[0]):print(c,"|"," % ".join((a[1]for a in b)))

Java 7, 167 byte

Nó có thể được đánh gôn nhiều hơn bằng cách sử dụng một cách tiếp cận khác ..

import java.util.*;Map c(String[]a){Map m=new HashMap();for(String s:a){String[]x=s.split("=");Object l;m.put(x[0],(l=m.get(x[0]))!=null?l+"%"+x[1]:x[1]);}return m;}

LƯU Ý: Phương thức trên tạo và trả về a HashMapvới các cặp khóa-giá trị mong muốn. Tuy nhiên, nó không in nó trong đầu ra chính xác như trong câu hỏi của OP với |vai trò là dấu phân cách đầu ra giữa các khóa và các giá trị mới. Đánh giá bằng câu trả lời SQL của MickeyT khi anh ta trả lại bảng cơ sở dữ liệu tôi cho rằng điều này được cho phép; nếu không thêm byte thì nên thêm chức năng in.

Mã thử nghiệm & mã hóa:

import java.util.*;

class Main{

    static Map c(String[] a){
        Map m = new HashMap();
        for(String s : a){
            String[] x = s.split("\\|");
            Object l;
            m.put(x[0], (l = m.get(x[0])) != null
                            ? l + "%" + x[1]
                            : x[1]);
        }
        return m;
    }

    public static void main(String[] a){
        Map m = c(new String[]{
            "why|[may express] surprise, reluctance, impatience, annoyance, indignation",
            "whom|[used in] questions, subordination",
            "whom|[possessive] whose",
            "whom|[subjective] who",
            "whoever|[objective] whomever",
            "whoever|[possessive] whosever",
            "who|[possessive] whose",
            "who|[objective] whom"
        });

        // Object instead of Map.EntrySet because the method returns a generic Map
        for (Object e : m.entrySet()){
            System.out.println(e.toString().replace("=", "|"));
        }
    }
}

Đầu ra:

whoever|[objective] whomever%[possessive] whosever
whom|[used in] questions, subordination%[possessive] whose%[subjective] who
why|[may express] surprise, reluctance, impatience, annoyance, indignation
who|[possessive] whose%[objective] whom

PowerShell, 85 byte

Chuỗi được hợp nhất bằng cách sử dụng hashtable:

%{$h=@{}}{$k,$v=$_-split'\|';$h.$k=($h.$k,$v|?{$_})-join'%'}{$h.Keys|%{$_+'|'+$h.$_}}

Thí dụ

Vì PowerShell không hỗ trợ chuyển hướng stdin thông qua <, tôi giả sử rằng nó Get-Content .\Filename.txt |sẽ được sử dụng làm phương thức I / O mặc định.

Get-Content .\Filename.txt | %{$h=@{}}{$k,$v=$_-split'\|';$h.$k=($h.$k,$v|?{$_})-join'%'}{$h.Keys|%{$_+'|'+$h.$_}}

Đầu ra

whoever|[objective] whomever%[possessive] whosever
why|[may express] surprise, reluctance, impatience, annoyance, indignation
whom|[used in] questions, subordination%[possessive] whose%[subjective] who
who|[possessive] whose%[objective] whom

APL, 42 ký tự

{⊃{∊⍺,{⍺'%'⍵}/⍵}⌸/↓[1]↑{(1,¯1↓'|'=⍵)⊂⍵}¨⍵}

Sed, 55 byte

:a N;:b s/^\([^|]*\)|\([^\n]*\)\n\1|/\1|\2 %/;ta;P;D;tb

Chạy thử nghiệm :

$ echo """why|[may express] surprise, reluctance, impatience, annoyance, indignation
> whom|[used in] questions, subordination
> whom|[possessive] whose
> whom|[subjective] who
> whoever|[objective] whomever
> whoever|[possessive] whosever
> who|[possessive] whose
> who|[objective] whom""" | sed ':a N;:b s/^\([^|]*\)|\([^\n]*\)\n\1|/\1|\2 %/;ta;P;D;tb'
why|[may express] surprise, reluctance, impatience, annoyance, indignation
whom|[used in] questions, subordination %[possessive] whose %[subjective] who
whoever|[objective] whomever %[possessive] whosever
who|[possessive] whose %[objective] whom

q / kdb +, 46 byte

Giải pháp:

exec"%"sv v by k from flip`k`v!("s*";"|")0:`:f

Thí dụ:

q)exec"%"sv v by k from flip`k`v!("s*";"|")0:`:f
who    | "[possessive] whose%[objective] whom"
whoever| "[objective] whomever%[possessive] whosever"
whom   | "[used in] questions, subordination%[possessive] whose%[subjective] who"
why    | "[may express] surprise, reluctance, impatience, annoyance, indignation"

Giải trình:

`:f            // assumes the file is named 'f'
("s*";"|")0:   // read in file, assume it has two columns delimitered by pipe
flip `k`v      // convert into table with columns k (key) and v (value)
exec .. by k   // group on key
"%"sv v        // join values with "%"