Bu oldukça basit bir kod golf meydan okumadır. ASCII dizesi verilen programınız, bu dizeyi değerlendireceği iki dizeye ayrıştırmaktır. İkinci dize birinciden "geç" ise, bir 1 döndürür, birinciden "daha erken" ise -1 döndürür ve eğer aynıysa 0 döndürür. "later" ve "early" kelimelerinin ne anlama geldiğini açıklığa kavuşturalım, ASCII karakter kodlarına bakalım. Dizenin her karakterini karşılaştırmalı ve her birine bir sayının rakamları olarak davranmalısınız. Daha sonra, daha küçük bir sayıdan sonra ortaya çıkan daha büyük bir sayı anlamına gelir. Dizeler, iki giriş grubunu ayırmak için kısa çizgi karakteri ile biçimlendirilir.

Bu örneğe bir göz atın:

7-9bir girdi olarak dönmelidir 1.

7ASCII koduna 55ve 9ASCII koduna dönüştürür 57.

Gibi 57sayısal sonra gerçekleşir 55, 9daha sonra daha 7.

Başka bir örnek:

LKzb-LKaj bir girdi dönmesi gerektiği gibi -1

Bunun için ASCII kod dizileri 76-75-122-98ve76-75-97-106

Bu bir kod golf meydan okumadır ve bayt sayısı girişlerin nasıl puanlanacağıdır.

Yazdırılabilir 95 ASCII karakterden herhangi bir girdi, boşluklar ve girişi ayırmaktan başka herhangi bir şey için tireler hariç kabul edilir. Ayrıca, dizelerin aynı uzunlukta olacağı garanti edilmez.

İyi şanslar!

DÜZENLEME: Daha açık olmak gerekirse, her karakter bir sayıdaki rakam gibi ele alınmalıdır. Örnekte LKzb-LKaj, gerçi jdaha geç b, zdaha sonra daha ave daha önemli bir basamak olduğu için, bu önceliklidir. Sağlanan bir dize her zaman en az 3 karakterden oluşur ve boş dizeleri bu sorunun kapsamından çıkarır.

EDIT: Yardımınız için bazı test örnekleri:

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

Pyth - 11 bayt

Kolay, ._işareti almak ve Cchar kodları almak için işareti kullanır .

._-F_CMcz\-

Burada çevrimiçi deneyin .

Test takı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 bayt

l'-/esfb~\-g

CJam yorumlayıcısında çevrimiçi deneyin .

Nasıl çalışır

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));}  

Dizeleri karşılaştırmanın çok garip bir yolu. Ek test durumlarını geçmesi için hızlı bir düzeltme yapıldı, daha sonra daha fazla golf arar.

signumÖneri için yorumlarda Vartan'a teşekkürler

Perl, 31 bayt

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

İçin 30 bayt + 1 bayt -p. STDIN girişini kabul eder.

açıklama

İşlenen için zaman cmpfarklı uzunluklara gibi olan chickenve egg, bunlar aşağıdaki şekilde hizalanır:

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

böylece egg> chicken( \0boş bir bayttır). Ama onların şu şekilde hizalanmasını istiyoruz:

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

böylece chicken> egg.

Bunu yapmak için, biz bir kez, onları bağlamak chickenönce eggve bir kez eggdaha önce chicken:

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

Artık iki dizemiz aynı uzunlukta olduğundan, elde etmek için XOR kullanarak baştaki kelimeyi kaldırıyoruz:

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

Ve şimdicmp hangisinin önce geldiğini bulmak için kullanabiliriz . (Orada söyledim!)

Python 2,88 karakter

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

cmpiki farklı uzunluk dizeleri olduğunda doğru olanı yapmaz, bu yüzden her ikisi de bu durumda işlemek için null karakteri ( orddönüştürür 0) ile doldurmak zorunda. Ne yazık ki, bu yaklaşık 35 karakter ekledi, hem şimdi hem de yerine iki satır var çünkü hem girişin uzunluğuna hem de yinelemeye ihtiyacım var.

R, 54 Bayt

Bu pracma kütüphanesini gerektirir. Girdi dizesini -. Sağ dizeleri haklı çıkarır. Onları sıralar ve bir fark yapar.

Böylece 11-7 için "11" ve "7" dizeleriyle karşılaşıyoruz. Bunların sırası [2, 1]. Fark -1'dir. 3h ~ J * -3h ~ J * için "3h ~ J *" ve "3h ~ J *" elde edilir. Bunların sırası, 0 farkıyla [1.5, 1.5] 'dir.

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

Test örnekleri

> 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

CoffeeScript, 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)`

İşte sonuçları olan bir jsfiddle (konsola bakın)

PERL, 46 36 Bayt

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

Argv listesini bir dizeye dönüştürür, kısa çizgi ile sol ve sağ taraflı boşluk argümanına böler, sonra bir cmp çağrısı döndürür.

Python 3, 84 bayt

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

Dize girişini bölün "-". Unicode dizelerini bayt dizelerine dönüştürün, ardından bu bayt dizelerini big-endian tamsayıları olarak yorumlayın. Son olarak, karşılaştırmayı yapın - (un) neyse ki cmpartık Python 3'te mevcut değil.

Python 2, 69 bayt

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

Python 2, 79 bayt

Oldukça basit bir çözüm ve anlaşılması kolaydır. Dize uzunluklarını karşılaştırır, sonra dizeleri sözcüksel olarak karşılaştırır.

Burada deneyin

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]'

Sadece komut satırından çalıştırın. yeni bir çizgi ile daha iyi görünmesine rağmen, ama bu 1 char maliyeti.

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

Bu daha uzun versiyon, eşleşmeyen uzunlukları doğru şekilde işler.

F #, 53

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

Bu formda anonim bir işlevdir (lambda), bu yüzden onu yapıştırmanız ve parametreyi hemen sonra (veya boru notasyonunu kullanarak) sağlamanız gerekir. Örneğin (FSI'da):

> "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 bayt

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

Ruby, 59 bayt

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

05AB1E , 12 11 9 bayt

'-¡₄ö¥0.S

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

'-¡          # 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]