Giới thiệu

Vì vậy, tôi đã lãng phí thời gian của mình một lần nữa để nghiên cứu các thuật toán sắp xếp hậu tố, đánh giá các ý tưởng mới bằng tay và bằng mã. Nhưng tôi luôn đấu tranh để nhớ các loại hậu tố của tôi! Bạn có thể cho tôi biết loại hậu tố của tôi là gì?

Còn lại - gì nhất?

Rất nhiều thuật toán sắp xếp hậu tố (SAIS, KA, dwar riêng của tôi) nhóm hậu tố thành các loại khác nhau để sắp xếp chúng. Có hai loại cơ bản: S-type và L-type hậu tố. Hậu tố loại S là hậu tố ít hơn về mặt từ vựng ( S maller) so với hậu tố và loại L sau nếu nó lớn hơn về mặt từ vựng ( L arger). Một loại S hầu hết bên trái ( loại LMS ) chỉ là: Hậu tố loại S được đặt trước bởi hậu tố loại L.

Điều đặc biệt về các hậu tố kiểu LMS này là một khi chúng ta sắp xếp chúng, chúng ta có thể sắp xếp tất cả các hậu tố khác theo thời gian tuyến tính! Điều đó thật tuyệt phải không?

Các thách thức

Cho một chuỗi giả sử nó bị chấm dứt bởi một ký tự đặc biệt nhỏ hơn bất kỳ ký tự nào khác trong chuỗi đó (ví dụ nhỏ hơn cả byte rỗng). Xuất ra một kiểu corrosponding char cho mỗi hậu tố.

Bạn có thể tự do chọn char để sử dụng cho loại nhưng tôi muốn L, S and *cho L-, S- and LMS-typemiễn là họ đều có thể in được ( 0x20 - 0x7E).

Thí dụ

Cho mmiissiissiippiđầu ra chuỗi (khi sử dụng L, S and *):

 LL*SLL*SLL*SLLL

Ví dụ, điều đầu tiên Llà do thực tế mmiissiissiippi$là lớn hơn về mặt từ vựng miissiissiippi$( $đại diện cho ký tự tối thiểu được thêm vào):

L - mmiissiissiippi$ > miissiissiippi$
L - miissiissiippi$  > iissiissiippi$
* - iissiissiippi$   < issiissiippi     and preceeded by L
S - issiissiippi$    < ssiissiippi$
L - ssiissiippi$     > siissiippi$
L - siissiippi$      > iissiippi$
* - iissiippi$       < issiippi$        and preceeded by L
S - issiippi$        < ssiippi$
L - ssiippi$         > siippi$
L - siippi$          > iippi$
* - iippi$           < ippi$            and preceeded by L
S - ippi$            < ppi$
L - ppi$             > pi$
L - pi$              > i$
L - i$               > $

Một số ví dụ khác:

"hello world" -> "L*SSL*L*LLL"
"Hello World" -> "SSSSL*SSLLL"
"53Ab§%5qS"   -> "L*SSL*SLL"

Mục tiêu

Tôi không ở đây để làm phiền Peter Cordes (đôi khi tôi sẽ làm điều này trên stackoverflow); Tôi chỉ rất lười biếng nên đây dĩ nhiên là môn đánh gôn ! Câu trả lời ngắn nhất trong byte thắng.

Chỉnh sửa: Thứ tự các ký tự được cho bởi giá trị byte của chúng. Đó là phương tiện so sánh nên giống như C strcmp.

Chỉnh sửa2: Giống như đã nêu trong đầu ra nhận xét phải là một ký tự cho mỗi ký tự đầu vào. Mặc dù tôi cho rằng sẽ được hiểu là "trả về một chuỗi" nhưng có vẻ như ít nhất 1 câu trả lời trả về một danh sách các ký tự đơn. Để không làm mất hiệu lực các câu trả lời hiện có, tôi sẽ cho phép bạn trả về một danh sách các ký tự đơn (hoặc số nguyên mà khi in kết quả chỉ trong 1 char).

Lời khuyên cho thời gian tuyến tính:

1. Nó có thể được thực hiện trong 2 lần lặp tiến song song hoặc trong một lần lặp ngược duy nhất.
2. Trạng thái của mỗi hậu tố chỉ phụ thuộc vào 2 ký tự đầu tiên và loại thứ hai.
3. Quét đầu vào theo hướng ngược lại, bạn có thể xác định L hoặc S như thế này: $t=$c<=>$d?:$t(PHP 7), trong đó $cchar hiện tại $dlà loại trước và $tloại trước.
4. Xem câu trả lời PHP của tôi . Ngày mai tôi sẽ trao tiền thưởng.

Haskell , 64 53 48 42 byte

(0!)
k!(x:y)|x:y>y=1:2!y|2>1=k:0!y
_![]=[]

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

Ungolfed, với Charthay vì Int:

suffixes :: String -> String
suffixes = go 'S'
 where
   go :: Char -> String -> String
   go _ "" = ""
   go lorstar s | s > tail s = 'L' : go '*' (tail s)
                | otherwise  = lorstar : go 'S' (tail s)

Thạch ,  25 23 21 20  19 byte

Ṛ;\UỤỤIṠµI2n×ịØDṚ;0

Một chương trình đầy đủ in danh sách các ký tự, sử dụng:

L: 0
S: 8
*: 9

(Là một liên kết, nó trả về một danh sách trong đó tất cả các mục là ký tự ngoại trừ mục cuối cùng là số không.)

Hãy thử trực tuyến! hoặc xem bộ thử nghiệm (có chuyển đổi thànhLS*).

Làm sao?

Ṛ;\UỤỤIṠµI2n×ịØDṚ;0 - Link: list of characters, s  e.g. "cast"
Ṛ                   - reverse                           "tsac"
  \                 - cumulative reduce by:
 ;                  -   concatenation                   ["t","ts","tsa","tsac"]
   U                - upend (reverse each)              ["t","st","ast","cast"] (suffixes)
    Ụ               - sort indexes by value             [3,4,2,1] (lexicographical order)
     Ụ              - sort indexes by value             [4,3,1,2] (order of that)
      I             - incremental differences           [-1,-2,1] (change)
       Ṡ            - sign                              [-1,-1,1] (comparisons)
        µ           - monadic chain separation, call that x
         I          - incremental differences           [0,2] (only (-1,1) produce 2s)
          2         - literal 2                         2
           n        - not equal?                        [1,0] (indexes of * will be 0)
            ×       - multiply by x (vectorises)        [-1,0,1] (make indexes of *s 0)
              ØD    - decimal yield                     "0123456789"
             ị      - index into (1-indexed & modular)  ['8','9','0']
                Ṛ   - reverse                           ['0','9','8']
                 ;0 - concatenate a zero                ['0','9','8',0]
                    - implicit print                     0980
                    -                              i.e. "L*SL"

Python 3, 92 87 74 69 65 byte

s=input()
c=1
while s:d=s<s[1:];print(d+(c<d),end='');s=s[1:];c=d

Sử dụng 0cho L, 1cho Svà 2cho *. Bọc chuỗi đầu vào trong ký tự trích dẫn; Tôi tin rằng điều này được cho phép bởi quy ước.

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

Ví dụ sử dụng:

mmiissiissiippi
002100210021000

đã lưu 5 byte nhờ Leaky Nun, 4 byte nhờ vào ovs

JavaScript (ES6), 51 45 byte

f=(c,d)=>c&&(d<(d=c<(c=c.slice(1))))+d+f(c,d)

Đã lưu 6 byte nhờ @Neil.

Một giải pháp đệ quy cho bài tập.

f=(c,d)=>c&&(d<(d=c<(c=c.slice(1))))+d+f(c,d)

console.log(f('mmiissiissiippi')); //LL*SLL*SLL*SLLL   002100210021000
console.log(f('hello world'));     //L*SSL*L*LLL       02110202000
console.log(f('Hello World'));     //SSSSL*SSLLL       11110211000
console.log(f('53Ab§%5qS'));       //L*SSL*SLL         021102100

JavaScript (ES6), 52 byte

f=
s=>s.replace(/./g,_=>(c<(c=s<(s=s.slice(1))))+c,c=1)

<input oninput=o.textContent=f(this.value)><pre id=o>

Câu trả lời của cảng @ L3viathan.

C (tiếng kêu) , 88 byte

S(S,A,I)char*S,*A;{for(;strlen(S);A=S,S++,printf("%c",I=strcmp(A,S)>0?76:I==76?42:83));}

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

Haskell , 77 75 byte, thời gian tuyến tính

f(a:b:c)|let g"L"|a<b="SL";g"S"|a>b="L*";g d=d++d;d:e=f$b:c=g[d]++e
f _="L"

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

Làm thế nào nó hoạt động

Điều này sử dụng đệ quy, tước bỏ một ký tự tại một thời điểm từ đầu chuỗi. (Loại chuỗi Haskell là danh sách các ký tự được liên kết đơn, vì vậy mỗi bước này là thời gian không đổi.)

• Đối với một chuỗi abc trong đó a và b là các ký tự đơn và c là bất kỳ chuỗi nào (có thể trống),
  • f ( abc ) = SL e , nếu f ( bc ) = L e và a < b ;
  • f ( abc ) = L * e , nếu f ( bc ) = S e và a > b ;
  • f ( abc ) = LL e , nếu f ( bc ) = L e và a ≥ b ;
  • f ( abc ) = SS e , nếu f ( bc ) = S e và a ≤ b .
• Đối với chuỗi ký tự đơn a , f ( a ) = L

Python 2 , 65 55 byte

Phiên bản đệ quy, dựa trên câu trả lời của L3viathan , sử dụng 012như LS*:

def g(s,d=2):c=s<s[1:];return s and`c+(d<c)`+g(s[1:],c)

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

Python 3 , 65 59 byte

Giải pháp đệ quy sử dụng L, Svà *:

f=lambda s:s and('LS'[s<s[1:]]+f(s[1:])).replace('LS','L*')

Chạy qua chuỗi từ phía trước và thay thế tất cả các trường hợp LSbằngL*

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

PHP, 82 byte, thời gian tuyến tính

for($a=$argn;a&$c=$a[$i-=1];$d=$c)$a[$i]=2+$t=$d<=>$c?:$t;echo strtr($a,[13=>12]);

Đi qua đầu vào từ phải sang trái và thay thế từng char bằng loại.

$t=$d<=>$c?:$t

Tính toán cho loại hiện tại và char trước (-1 hoặc 1). Nếu bằng nhau loại không thay đổi.

PHP , 70 byte

L = 1, S = 0, * = 2

Thay vào đó, cần có Hỗ trợ đa lõi cho Testcase cuối cùng với §+3 Bytemb_substrsubstr

for(;$s=&$argn;$s=$u)$r.=$l=($l&1)+(1&$l^($s>$u=substr($s,1)));echo$r;

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

PHP , 71 byte

L = 1, S = 0, * = 2

for(;$s=&$argn;$s=$u)$r.=+($s>$u=substr($s,1));echo strtr($r,[10=>12]);

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

PHP , 74 byte

for(;$s=&$argn;$s=$u)$r.=SL[$s>$u=substr($s,1)];echo strtr($r,[LS=>"L*"]);

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