Đây là một thử thách golf mã khá đơn giản. Chương trình của bạn, được cung cấp một chuỗi ASCII, là phân tích chuỗi đó thành hai chuỗi mà nó sẽ đánh giá. Nếu chuỗi thứ hai "muộn" hơn chuỗi thứ nhất, nó sẽ trả về 1, nếu nó "sớm hơn" chuỗi thứ nhất, nó sẽ trả về -1 và nếu chúng giống nhau, nó sẽ trả về 0. làm rõ nghĩa "sau" và "sớm hơn" nghĩa là gì, hãy xem mã ký tự ASCII. Bạn cần so sánh từng ký tự của chuỗi, coi mỗi ký tự là chữ số của một số. Sau này đề cập đến một số lớn hơn, xảy ra sau một số nhỏ hơn. Các chuỗi sẽ được định dạng bằng một ký tự gạch nối để tách hai nhóm đầu vào.

Hãy xem ví dụ này:

7-9như một đầu vào sẽ trở lại 1.

7chuyển đổi thành mã ASCII 55và 9chuyển đổi thành mã ASCII 57.

Như 57xảy ra số sau 55, 9muộn hơn 7.

Một vi dụ khac:

LKzb-LKaj như một đầu vào sẽ trở lại -1

Các chuỗi mã ASCII cho điều này là 76-75-122-98và76-75-97-106

Đây là một thử thách golf mã và số byte là cách các mục sẽ được ghi.

Bất kỳ đầu vào nào từ 95 ký tự ASCII có thể in được đều được chấp nhận, ngoại trừ khoảng trắng và dấu gạch nối cho bất cứ thứ gì ngoại trừ tách đầu vào. Ngoài ra, các chuỗi không được đảm bảo có cùng độ dài.

Chúc may mắn!

EDIT: Để rõ ràng hơn, mỗi ký tự sẽ được coi như một chữ số trong một số. Trong ví dụ LKzb-LKaj, mặc dù jmuộn hơn b, zmuộn hơn avà vì nó là một chữ số có ý nghĩa hơn, nên nó được ưu tiên. Một chuỗi được cung cấp sẽ luôn có tối thiểu 3 ký tự, loại bỏ các chuỗi trống khỏi phạm vi của vấn đề này.

EDIT: Dưới đây là một số trường hợp thử nghiệm khác, để được giúp đỡ của bạn:

• A-9 -> -1
• 11-Z -> -1
• 3h~J*-3h~J* -> 0
• Xv-Y0 -> 1

Pyth - 11 byte

Dễ dàng, sử dụng ._dấu hiệu để có được dấu hiệu và Cđể có được mã char.

._-F_CMcz\-

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

Bộ thử nghiệm .

._               Sign of number
 -F              Fold subtraction (this finds difference of a tuple)
  _              Reverse list to get correct order of operands when subtracting
   CM            Map char, already treats strings as digits of base256 number
    c \-         Split by "-"
     z           Input

CJam, 12 byte

l'-/esfb~\-g

Hãy thử trực tuyến trong trình thông dịch CJam .

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

l   e# Read a line from STDIN.
'-/ e# Split it at spaces.
es  e# Push the current time (milliseconds since epoch).
fb  e# Consider each string as digits in base huge-number.
~\  e# Dump the results and reverse their order.
-g  e# Subtract and apply sign function.

Java, 86 118

int f(String...s){return(int)Math.signum((s=s[0].split("-"))[1].compareTo(s[0])*(s[0].length()==s[1].length()?1:-1));}  

Một cách rất lạ để so sánh các chuỗi. Thực hiện một sửa chữa nhanh chóng để nó vượt qua các trường hợp thử nghiệm bổ sung, sẽ tìm kiếm nhiều golf hơn sau này.

Cảm ơn Vartan trong ý kiến ​​cho signumđề xuất

Perl, 31 byte

#!/usr/bin/perl -p
/-/;$_=($`.$'^$`)cmp($'.$`^$')

30 byte + 1 byte cho -p. Chấp nhận đầu vào trên STDIN.

Giải trình

Khi các toán hạng cmpcó độ dài khác nhau, như chickenvà egg, chúng được căn chỉnh như thế này:

c  h  i  c  k  e  n
e  g  g  \0 \0 \0 \0

sao cho egg> chicken( \0là một byte rỗng). Nhưng chúng tôi muốn chúng được căn chỉnh như thế này:

c  h  i  c  k  e  n
\0 \0 \0 \0 e  g  g

vậy mà chicken> egg.

Để làm điều này, chúng tôi nối chúng, một lần với chickentrước eggvà một lần với eggtrước chicken:

c  h  i  c  k  e  n  e  g  g
e  g  g  c  h  i  c  k  e  n

Bây giờ hai chuỗi của chúng tôi có cùng độ dài, chúng tôi xóa từ đầu bằng XOR để nhận:

\0 \0 \0 \0 \0 \0 \0 e  g  g
\0 \0 \0 c  h  i  c  k  e  n

Và bây giờ chúng ta có thể sử dụng cmpđể tìm cái nào đến trước. (Ở đó, tôi đã nói nó!)

Python 2, 88 ký tự

a=raw_input().split('-');print-cmp(*(map(ord,s.rjust(max(map(len,a)),'\0'))for s in a))

cmpkhông làm điều đúng khi bạn có hai chuỗi độ dài khác nhau, vì vậy tôi phải đệm cả hai chuỗi bằng ký tự null ( ordchuyển đổi thành 0) để xử lý trường hợp đó. Thật không may, điều đó đã thêm khoảng 35 ký tự, cộng với bây giờ là hai dòng thay vì một dòng vì tôi cần cả độ dài của đầu vào và lặp lại trên nó.

R, 54 byte

Điều này đòi hỏi thư viện pracma. Nó tách chuỗi đầu vào trên -. Phải biện minh cho các chuỗi. Xếp hạng chúng và làm khác.

Vì vậy, trong 11-7, chúng tôi kết thúc với các chuỗi "11" và "7". Thứ hạng của những thứ này là [2, 1]. Sự khác biệt là -1. Trong 3h ~ J * -3h ~ J *, chúng tôi nhận được "3h ~ J *" và "3h ~ J *". Thứ hạng của những thứ này là [1,5, 1,5] với độ chênh lệch là 0.

diff(rank(pracma::strjust(scan(,'',sep='-'),"right")))

Ví dụ kiểm tra

> diff(rank(pracma::strjust(scan(,'',sep='-'),"right")))
1: LKzb-LKaj
3: 
Read 2 items
[1] -1
> diff(rank(pracma::strjust(scan(,'',sep='-'),"right")))
1: A-9
3: 
Read 2 items
[1] -1
> diff(rank(pracma::strjust(scan(,'',sep='-'),"right")))
1: 11-Z
3: 
Read 2 items
[1] -1
> diff(rank(pracma::strjust(scan(,'',sep='-'),"right")))
1: 3h~J*-3h~J*
3: 
Read 2 items
[1] 0
> diff(rank(pracma::strjust(scan(,'',sep='-'),"right")))
1: Xv-Y0
3: 
Read 2 items
[1] 1

Cà phê, 143 140 139

f=(s)->[a,b]=((t=s.split '-').map (y)->Array((m=Math.max) 1, 1+(m ((l=(c)->c.length) t[0]),l t[1])-l y).join('\u0000')+y);`b<a?-1:(b>a?1:0)`

Đây là một jsfiddle với kết quả (nhìn trong bảng điều khiển)

PERL, 46 36 byte

print$2cmp$1if"@ARGV"=~/(\S+)-(\S+)/

Chuyển đổi danh sách argv thành một chuỗi, phân tách bằng dấu gạch nối thành bên trái và bên phải không có khoảng trắng arg, sau đó trả về một cuộc gọi cmp.

Python 3, 84 byte

x,y=[int.from_bytes(i.encode(),"big")for i in input().split("-")];print((x<y)-(y<x))

Chia chuỗi đầu vào bằng "-". Chuyển đổi chuỗi unicode thành chuỗi byte, sau đó diễn giải các chuỗi byte này dưới dạng số nguyên lớn. Cuối cùng, thực hiện so sánh - (un) may mắn cmplà không còn có sẵn trong Python 3.

Python 2, 69 byte

print -cmp(*[int(i.encode("hex"),16)for i in raw_input().split("-")]) 

Python 2, 79 byte

Giải pháp khá đơn giản và dễ hiểu. So sánh độ dài chuỗi, sau đó so sánh các chuỗi từ vựng.

Hãy thử nó ở đây

s,t=raw_input().split('-')
x,y=len(s),len(t)
print(x<y)*2-1if x-y else cmp(t,s)

perl5, 64

perl -aF- -pe '@f=map{length}@F;$_=$f[1]<=>$f[0]||$F[1]cmp$F[0]'

Chỉ cần chạy nó từ dòng lệnh. Mặc dù nó sẽ trông tốt hơn với một dòng mới nhưng chi phí là 1 char.

perl -laF- -pe '@f=map{length}@F;$_=$f[1]<=>$f[0]||$F[1]cmp$F[0]'

Phiên bản dài hơn này xử lý độ dài không khớp chính xác.

F #, 53

fun s->let[|a;b|]=s="";s.Split[|'-'|]in b.CompareTo a

Đây là dưới dạng một hàm ẩn danh (lambda), vì vậy bạn phải dán nó và cung cấp tham số trực tiếp sau đó là (hoặc, sử dụng ký hiệu đường ống). Ví dụ: (trong FSI):

> "7-9" |> fun s->let[|a;b|]=s="";s.Split[|'-'|]in b.CompareTo a
1
> "abc-abc" |> fun s->let[|a;b|]=s="";s.Split[|'-'|]in b.CompareTo a
0
> "LKzb-LKaj" |> fun s->let[|a;b|]=s="";s.Split[|'-'|]in b.CompareTo a
-1

JavaScript ES6, 46 43 byte

f=s=>((a=s.split('-'))[1]>a[0])-(a[1]<a[0])

Ruby, 59 byte

a,b=gets.chomp.split ?-
p (b.size<=>a.size).nonzero?||b<=>a

05AB1E , 12 11 9 byte

'-¡₄ö¥0.S

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

'-¡          # Split the (implicit) input on '-'
             #  i.e. 'LKzb-LKaj' → ['LKzb','LKaj']
   ₄ö        # Convert both parts to a Base-1000 number
             #  i.e. ['LKzb','LKaj'] → [21020061037,21020036045]
     ¥       # Push the deltas (subtraction between each sub sequential pair) of the list
             #  i.e. [21020061037,21020036045] → [-24992]
      0.S    # Get the sign [1 for a>0; -1 for a<0; 0 for a==0] (and output implicitly)
             #  i.e. [-24992] → [-1]