Bir giriş dizgesi verildiğinde, S truthyharfindeki tüm harfler Lexically Ordered ise döner : ASCII değerlerinin artan veya azalan sırada olması gerekir. falsyDiğer durumlarda iade edin .

Giriş

• Giriş aynı durumda olacaktır (tümü büyük veya tümü küçük harf). Gönderiniz her ikisini de yapabilmelidir.
• Giriş, [A-Za-z]yalnızca aralıktaki ASCII’den oluşacak
• Giriş uzunluğu, dilinizin desteklediği maksimum değere kadar en az 1 olacaktır.
• Giriş bir dizedir - bir karakter listesi değil, bir ASCII kod noktası dizisi değil.

Çıktı

• Çıktı olmalıdır trueya false, ya 0/1, ya da başka farklı true / falsetarzı çıkışı Dil sağlayabilir.
• Tüm gerçek vakalar aynı çıktıya ve tüm yanlış durumlara sahip olmalıdır. "Yanlış 0, gerçek 1, 2 veya 3" değildir.

Ek kurallar

• Standart boşluklar yasaktır
• Cevap, snippet veya REPL girişi değil, tam program veya işlev olmalıdır.
• kod-golf , bayt cinsinden en kısa cevap kazanır.

Test durumları

Doğru

"ABCDEF"
"ZYX"
"no"
"tree"   --> the multiple 'e's don't break the order
"q"

Falsy

"ABCDC"
"yes"
"deed"

Geçersiz

"Hello" --> invalid input - mixed case-, does not have to be handled
""      --> invalid input - length 0-, does not have to be handled
"\n
  "     --> invalid input - newline is not in range [A-Za-z]-, does not have to be handled

05AB1E , 5 bayt

Â)¤{å

Çevrimiçi deneyin!

açıklama

Â)     # pair the input with it's reverse in a list
  ¤{   # get a copy of the reverse and sort it
    å  # check if the sorted copy is in the list of [input,reverse_input]

Python 2 , 53 44 40 39 bayt

lambda a:`sorted(a)`[2::5]in(a,a[::-1])

Çevrimiçi deneyin!

Haskell , 33 bayt

(%)=scanl1
f s=s==max%s||s==min%s

Çevrimiçi deneyin!

Takma ad scanl1ekli 1 byte için Ørjan Johansen'e teşekkürler .

Haskell, golf sıralama temelli zorluklar için ilginç bir dildir, çünkü yerleşik bir sıralama özelliği yoktur ve uzun süren bir engeli yoktur import Data.List. Bu, açıkça sıralama yapmadan görevi el ile yapmanın bir yolunu bulmayı teşvik eder.

Kod scanl1, ara sonuçları izleyerek listeden bir işlemi soldan sağa doğru katlayan bir işlem kullanır . Bu nedenle, scanl1 maxlistenin kümülatif maksimasını, yani aşamalı olarak daha uzun öneklerin maksimasını listeleme etkisine sahiptir. Örneğin scanl1 max [3,1,2,5,4] == [3,3,3,5,5],.

Aynı şekilde minlistenin azalıp azalmayacağı da kontrol edilir. Kod iki vakayı kontrol eder ve bunları birleştirir ||.

Diğer ifadelerle karşılaştır:

(%)=scanl1;f s=s==max%s||s==min%s

f s=or[s==scanl1 q s|q<-[min,max]]
f s=s==scanl1 max s||s==scanl1 min s
f s=any(\q->scanl1 q s==s)[min,max]
f s=any((==s).(`scanl1`s))[min,max]
f s=elem s$(`scanl1`s)<$>[min,max]

Perl 6 , 25 bayt

{[le] .comb or[ge] .comb}

Nasıl çalışır:

• .comb girişi bir karakter dizisine böler.
• leve gevardır "az veya eşit" ve "büyük veya eşit" string karşılaştırma operatörleri.
• [ ]Bir infix operatörünün çevresinde, bu operatörle olan argüman listesini azaltır ("katlar"). (Girdide yalnızca sıfır veya bir karakter varsa, True değerini döndürecek kadar akıllıdır.)
• or her iki tarafındaki ifadeler doğruysa True değerini döndürür.

JavaScript (ES6), 43 bayt

([...s],q=s+"")=>q==s.sort()|q==s.reverse()

MATL , 7 bayt

dZSuz2<

Çevrimiçi deneyin! Veya tüm test durumlarını doğrulayın .

d     % Implicitly input string. Push array of consecutive differences of code points
ZS    % Sign. Transforms each entry into 1, 0 or -1
u     % Unique
z     % Number of nonzeros
2<    % Is it less than 2? Implicit display

Clojure, 47 bayt

#(let[c(map int %)a apply](or(a <= c)(a >= c)))

C (gcc) , 70 bayt

o(s,a)char*s;{for(a=0;s[1];s++)a|=s[1]-*s&64|*s-s[1]&32;return a!=96;}

Özyinelemeli bir işleve dayalı daha kısa bir çözüm bulmayı umuyordum, ancak çıktı gereksinimi nedeniyle işe yaramadı. İşte zorunlu bir yaklaşım. En azından, C'nin operatörü önceliği iç döngü ifadesi için iyi çalışıyor.

Çevrimiçi deneyin!

R, 48 50 61 bayt

Adsız bir işlev olarak

function(s)sd(range(sign(diff(utf8ToInt(s)))))<1

@Guiseppe'ye birkaç ekstra bayt için teşekkürler.

charToRawalır sve ham bir vektöre ayrılır. Bu tamsayılara ve bir diffuygulamalıya dönüştürülür . signfarkları tek bir birim yapar. rangevektörü minimum ve maksimum değerine indirir. O zaman standart sapma sd1'den azsa, TRUE olur.

Çevrimiçi deneyin!

MATL, 8 bayt

tPvGSXma

Çevrimiçi Deneyin!

açıklama

        % Implicitly grab the input as a string
tP      % Create a copy that is reversed
v       % Vertically concatenate these
GS      % Grab the input again and sort it
Xm      % Check if each row of the normal and reversed matrix is equal to the sorted one
a       % Check if either row matched
        % Implicitly display the result

Jöle , 4 5 bayt

Ṣm0ẇ@

Çevrimiçi deneyin!

Başlangıçta Ṣm0wdört bayt idi.

açıklama

Ṣm0ẇ@  Input: string S
Ṣ      Sort S
 m0    Concatenate sort(S) with reverse(sort(S))
   ẇ@  Sublist exists? Check if S is contained in the previous result

Mathematica, 33 bayt

0<=##||##>=0&@@ToCharacterCode@#&

Bu ipucuna dayanarak . Ne yazık ki, kullanmak zorunda ToCharacterCodeyerine Characters, çünkü <=ve >=değil karşılaştırmak dizeleri yapmak.

PowerShell , 61 bayt

param($a)$a-in-join(($b=[char[]]$a)|sort),-join($b|sort -des)

Çevrimiçi deneyin!

Girdiyi alır $a, sonra -iniki elemanlı bir dizi olup olmadığını kontrol eder . Dizi, bir dizi olarak alarak $a, onu sonradan chardepolayarak, sözlü olarak sıralayan $bboruları sort-objectoluşturarak oluşturulur. Diğer eleman, $bsıralama -desdüzeninde sıralanır.

Perl , 35 bayt

@Xcali sayesinde 4 bayt ve 4 dolaylı daha tasarruf sağladı .

31 bayt kodu + -pFbayrak.

@b=reverse@a=sort@F;$_=/@a|@b/x

Çevrimiçi deneyin!

Kod girişi sıralar ve girişlerin kendisinin sıralanmış (veya ters sırada) eşleşip eşleşmediğini kontrol eder.

Jöle , 5 bayt

,Ue@Ṣ

Çevrimiçi deneyin!

Nasıl?

,Ue@Ṣ - Main link: string
,     - pair string with
 U    - reverse(string)
    Ṣ - sorted(string)
  e@  - exists in with reversed arguments

Bash + coreutils, 59 bayt

f()(sed 's/\(.\)/\1\
/g'<<<$s|grep .|sort -c$1)
s=$1
f||f r

Giriş dizesi bir argüman olarak iletilir.

Çıkış, PPCG I / O metotlarının izin verdiği şekilde çıkış kodunda (truthy için 0, falsy için 1, her zamanki gibi) döndürülür .

PHP, 66 bayt

$a=$s=$r=str_split($argv[1]);sort($s);rsort($r);echo$s==$a|$r==$a;

komut satırı argümanından girdi alır. İle koş -r.

Ruby , 44 bayt

->s{[s,s.reverse].include?s.chars.sort.join}

Çevrimiçi deneyin!

Raket , 93 bayt

(define(f s)(let([t(string->list s)])(or(equal?(sort t char<=?)t)(equal?(sort t char>=?)t))))

Çevrimiçi deneyin!

Ungolfed:

(define (lex-sorted? string)
  (let ([char-list (string->list string)])
    (or
     (equal? (sort char-list char<=?) char-list)
     (equal? (sort char-list char>=?) char-list))))

Sıralama kullanarak sonra özgün yaklaşımla karşılaştırın

Brachylog , 5 bayt

Başarı olmadan 4 baytlık bir çözüm bulmaya çalıştım, bu yüzden şu an için bulduğum en ilginç 5 baytlık çözüm:

:No₎?

Çevrimiçi deneyin!

o, sipariş fonksiyonu, bir parametre alabilir: 0artan sıralama, 1azalan sıralama anlamına gelir. Bu parametreyi bağlanmamış bir değişkene ayarladık N. Brachylog N(sadece 0veya 1mümkün) için farklı değerler deneyecek, sonucu girdiyle birleştirmeye çalışacak ve bu denemelerden herhangi birinin başarılı olup olmadığını geri getirecektir.

MATLAB / Octave, 38 bayt

@(x)any(all([x;flip(x)]'==sort(x)',1))

Çevrimiçi demo

JavaScript (ES6) 74 62 50 47 43 bayt

([...a],b=a+'')=>b==a.sort()|b==a.reverse()

Bazı golf oynama ve hata düzeltme işlemlerinden sonra, bu cevap ETHProduction ile hemen hemen aynı oldu, bu yüzden lütfen cevabını kontrol edin ve bir cevap verin +1.

Haskell, 54 50 bayt

t a=or[and(zipWith(<=)`f`tail$a)|f<-[(=<<),(<*>)]]

Kullanım örneği: t "defggh"-> True. Çevrimiçi deneyin! .

Belki de kullanmak sortgibi olsa da diğer cevaplar daha kısa olabilir import Data.List. İşte farklı bir yaklaşım:

Her fonksiyon fiçin [(=<<),(<*>)], and(zipWith(<=)`f`tail$a)sonuçlardan herhangi birini hesaplayın ve isteyin True. Fonksiyonlar

((=<<) (zipWith(<=)) tail) a
((<*>) (zipWith(<=)) tail) a

Her iki giriş listesinin komşu elemanların karşılaştırmaları yapmak olan aile <=, fakat bağımsız değişken ile, bir bir sonuçlanan çevrilmiş >=. andTüm karşılaştırmaların olup olmadığını kontrol eder True.

Pushy , 7 bayt

ogoGo|#

Çevrimiçi deneyin!

Açıklama:

      \ Implicit: Input on stack as charcodes
og    \ Check if the stack is sorted ascendingly (Push 0/1)
oG    \ Check if the stack is sorted descendingly (Push 0/1)
      \   - Note that this will work regardless of the first check, as input
      \     is guaranteed to be /[A-Za-z]+/
o|    \ Bitwise OR
#     \ Print the result

Pyth, 5 bayt

}Q_BS

Girişini alan "quoted string"ve basan Trueveya Falseuygun bir program.

Test odası

Nasıl çalışır

}Q_BS   Program. Input: Q
}Q_BSQ  Implicit variable fill
 Q      Is Q
}       in
    SQ  Q sorted
   B    or
  _     Q sorted reversed?
        Implicitly print

Oktav, 24 bayt

@(s)issorted(s,'either')

Çevrimiçi Deneyin!

GNU sed, 97 + 1 (r bayrağı) = 98 bayt

Harfler sıralanırsa, komut dosyası 1aksi durumda döner 0. Sed'de veri türü yoktur.

s:$: zyxwvutsrqponmlkjihgfedcba:
s:(.*(.)(.).* ).*\2.*\3.*:\1abcdefghijklmnopqrstuvwxyz:i
//c0
c1

Tüm harflerin artan düzende olup olmadığını kontrol etmek için, azalan bir alfabedeki her ardışık harf çiftinden bir tablo araması yapıyorum, yani bir sayaç örneği bulmaya çalışıyorum. //Son düzenli ifade eşleşmesinin gerçekte tekrarlandığını unutmayın ! (2. ve 3. satırlara bakınız)

Run örneği: script, her satırda bir tane olmak üzere birden fazla giriş kelimesini test edebilir.

me@LCARS:/PPCG$ echo -e "tree\nABCDC" | sed -rf word_ordered.sed
1
0

CJam , 12 11 bayt

q_$_W%+\#)g

Çevrimiçi deneyin!

açıklama

q            Push the input
 _$          Duplicate and sort
   _W%       Duplicate and reverse
      +      Concatenate the sorted and the reversed strings
       \     Bring input to the top
        #    Find the index of the input in the other string; returns -1 if not found
         )   Increment
          g  Signum (coerces to 0 or 1)

8086 makine kodu, 68 61 48 46 45 39 bayt

00000000  b2 31 be 82 00 ac 9f 88  c3 ac 3c 0d 74 14 38 c3  |.1........<.t.8.|
00000010  74 f5 e3 03 b1 00 9f 77  05 9e 76 ea eb 03 9e 77  |t......w..v....w|
00000020  e5 4a b4 02 cd 21 c3                              |.J...!.|
00000027

Şuradan toplandı:

org 0x100
use16
    mov dl, 0x31
    mov si, 0x82
    lodsb
a:  lahf
b:  mov bl, al
    lodsb
    cmp al, 0x0d
    je y
    cmp bl, al
    je b
    jcxz @f
    mov cl, 0
    lahf
@@: ja @f
    sahf
    jbe a
    jmp n
@@: sahf
    ja a
n:  dec dx
y:  mov ah, 0x02
    int '!'
    ret

Scala, 47 bayt

def f(x:String)=x==x.sorted|x==x.sorted.reverse