입력 문자열 S가 주어지면 S의 truthy모든 문자가 사전 순으로 정렬되면 ASCII 값이 오름차순 또는 내림차순이어야합니다. falsy다른 경우에는 반환하십시오 .

입력

• 입력은 같은 경우입니다 (모두 대문자 또는 모두 소문자). 제출물이 두 가지를 모두 처리 할 수 ​​있어야합니다.
• 입력은 범위 내 [A-Za-z]에서만 ASCII로 구성 됩니다.
• 입력 길이는 언어가 지원하는 최대 값까지 1 이상입니다.
• 입력은 문자열이며 문자 목록이 아니며 ASCII 코드 포인트 배열이 아닙니다.

산출

• 출력은 true또는 false, 또는 또는 언어가 제공 할 수 0/1있는 다른 고유 한 true / false스타일 출력이어야 합니다.
• 모든 실제 사례는 모든 잘못된 사례와 동일한 결과를 가져야합니다. 아니오 "거짓은 0, 참은 1, 2 또는 3"입니다.

추가 규칙

• 표준 허점 은 금지되어 있습니다
• 답변은 스 니펫이나 REPL 항목이 아닌 전체 프로그램 또는 기능이어야합니다.
• code-golf , 바이트 단위의 최단 답변이 승리합니다.

테스트 사례

Truthy

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

거짓

"ABCDC"
"yes"
"deed"

무효

"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 바이트

Â)¤{å

온라인으로 사용해보십시오!

설명

Â)     # 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]

파이썬 2 , 53 44 40 39 바이트

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

온라인으로 사용해보십시오!

하스켈 , 33 바이트

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

온라인으로 사용해보십시오!

앨리어싱이 scanl1적용된 1 바이트의 Ørjan Johansen에게 감사합니다 .

Haskell은 골프 정렬 기반의 도전 과제에있어 흥미로운 언어 import Data.List입니다. 이를 통해 명시 적으로 정렬하지 않고 수동으로 작업을 수행 할 수있는 방법을 찾는 것이 좋습니다.

이 코드 scanl1는를 사용 하여 목록에서 왼쪽에서 오른쪽으로 작업을 접고 중간 결과를 추적합니다. 따라서, scanl1 max리스트의 누적 최대 값, 즉 점진적으로 긴 접두사의 최대 값을 나열하는 효과가 있습니다. 예를 들면 다음과 같습니다 scanl1 max [3,1,2,5,4] == [3,3,3,5,5].

min목록의 감소 여부 를 확인합니다. 코드는 두 경우를 확인하고와 결합합니다 ||.

다른 표현과 비교 :

(%)=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]

펄 6 , 25 바이트

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

작동 방식 :

• .comb 입력을 일련의 문자로 분할합니다.
• le및 ge있다 "작거나 같은" 및 "크거나 같은" 문자열 비교 연산자.
• [ ]중위 연산자를 사용하면 해당 연산자로 인수 목록을 줄입니다 ( "폴드"). (입력에 0 또는 1 개의 문자 만 있으면 True를 반환하는 것이 좋습니다.)
• or 양쪽의 표현식이 참이면 True를 반환합니다.

자바 스크립트 (ES6), 43 바이트

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

MATL , 7 바이트

dZSuz2<

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .

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

클로저, 47 바이트

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

C (gcc) , 70 바이트

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

재귀 함수를 기반으로 더 짧은 솔루션을 찾고 싶었지만 출력 요구 사항으로 인해 해결되지 않았습니다. 그래서 여기에 필수적인 접근 방식이 있습니다. 적어도 C의 연산자 우선 순위는 내부 루프 문에 훌륭하게 작동합니다.

온라인으로 사용해보십시오!

R, 48 50 61 바이트

명명되지 않은 함수로

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

약간의 추가 바이트를위한 @guiseppe에게 감사합니다.

charToRaw소요 s원시 벡터에와 분할. 이것은 정수로 변환되고 diff적용됩니다. signdiff를 단일 단위로 만듭니다. range벡터를 최소 및 최대로 줄입니다. 표준 편차 sd가 1보다 작 으면 참입니다.

온라인으로 사용해보십시오!

MATL, 8 바이트

tPvGSXma

온라인으로 사용해보십시오!

설명

        % 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

젤리 , 4 5 바이트

Ṣm0ẇ@

온라인으로 사용해보십시오!

원래 Ṣm0w4 바이트였습니다.

설명

Ṣ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 바이트

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

이 팁을 기반으로 합니다 . 불행하게도, 내가 사용해야하는 ToCharacterCode대신 Characters, 때문에 <=하고 >=있지 비교 문자열을한다.

PowerShell , 61 바이트

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

온라인으로 사용해보십시오!

input을 가져 $a와서 -in요소가 2 개인 배열 인지 확인합니다 . 이 배열은을 가져 와서 배열로 $a캐스팅 하여 나중에 char저장하고 어휘 적으로 정렬하는 $b파이프로 sort-object구성됩니다. 다른 요소는 오름차순 $b으로 정렬됩니다 -des.

펄 , 35 바이트

@Xcali 덕분에 4 바이트를 직접 절약 하고 4 개 더 간접적으로 저장

31 바이트의 코드 + -pF플래그

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

온라인으로 사용해보십시오!

이 코드는 입력을 정렬하고 입력이 자체적으로 (또는 역순으로) 일치하는지 확인합니다.

젤리 , 5 바이트

,Ue@Ṣ

온라인으로 사용해보십시오!

어떻게?

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

Bash + coreutils, 59 바이트

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

입력 문자열이 인수로 전달됩니다.

출력은 PPCG I / O 메소드에 의해 허용되는대로 종료 코드 (정확한 경우 0, 거짓 인 경우 1)로 리턴됩니다 .

PHP, 66 바이트

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

명령 행 인수에서 입력을받습니다. 로 실행하십시오 -r.

루비 , 44 바이트

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

온라인으로 사용해보십시오!

라켓 , 93 바이트

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

온라인으로 사용해보십시오!

언 골프 드 :

(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))))

정렬을 사용하여 원래 접근 방식과 비교

Brachylog , 5 바이트

나는 성공하지 않고 4 바이트 솔루션을 찾으려고 노력 했으므로 지금은 내가 찾은 가장 흥미로운 5 바이트 솔루션이 있습니다.

:No₎?

온라인으로 사용해보십시오!

o, 순서 함수는 매개 변수를 취할 수 있습니다. 0오름차순, 1내림차순을 의미합니다. 해당 매개 변수를 바인딩되지 않은 변수로 설정했습니다 N. Brachylog는 다른 값을 시도 하거나 N( 가능한 경우에만 ) 입력과 결과를 통합하고 시도한 결과가 있는지 여부를 반환합니다.01

MATLAB / 옥타브, 38 바이트

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

온라인 데모

JavaScript (ES6) 74 62 50 47 43 바이트

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

골프와 버그 수정 후,이 답변은 ETHProduction과 거의 같았으므로, 답변을 확인한 후을 입력하십시오 +1.

하스켈, 54 50 바이트

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

사용 예 : t "defggh"-> True. 온라인으로 사용해보십시오! .

어쩌면 sortlike를 사용 하면 다른 답변이 더 짧을 수도 있습니다 import Data.List. 다른 접근 방식은 다음과 같습니다.

모든 함수의 f에서 [(=<<),(<*>)]계산,and(zipWith(<=)`f`tail$a) 그리고 할 결과 중 하나를 필요 True. 기능은

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

두 입력리스트의 인접 요소들의 비교를 수행하는 a과를 <=하지만 인수 하나가 발생 대칭 >=. and모든 비교가 있는지 확인합니다 True.

Pushy , 7 바이트

ogoGo|#

온라인으로 사용해보십시오!

설명:

      \ 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 바이트

}Q_BS

a를 입력 "quoted string"하여 인쇄 True하거나 False적절한 프로그램.

테스트 스위트

작동 원리

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

옥타브, 24 바이트

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

온라인으로 사용해보십시오!

GNU sed, 97 + 1 (r 플래그) = 98 바이트

문자가 정렬되면 스크립트는를 반환 1하고 그렇지 않으면를 반환합니다 0. sed에는 데이터 유형이 없습니다.

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

모든 문자가 오름차순으로 정렬되어 있는지 확인하기 위해 연속되는 각 문자 쌍을 내림차순으로 표 조회합니다. 즉, 카운터 예제를 찾으려고합니다. 참고 //실제로 지난 정규 표현식 매치를 반복! (2 행과 3 행 참조)

실행 예 : 스크립트는 한 줄에 하나씩 여러 입력 단어를 테스트 할 수 있습니다

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

CJam , 12 11 바이트

q_$_W%+\#)g

온라인으로 사용해보십시오!

설명

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 기계 코드, 68 61 48 46 45 39 바이트

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

다음에서 조립 :

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

스칼라, 47 바이트

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