Sprawdź, czy litery słów są w kolejności alfabetycznej

37

Napisz funkcję / program, który przyjmuje jako ciąg ciąg małych / wielkich liter [A-Za-z], który sprawdza, czy występujące litery są unikalne i czy są uporządkowane alfabetycznie (ignorując małe i wielkie litery), czy nie. Dane wyjściowe muszą być zgodne z prawdą, jeśli są unikalne, w kolejności alfabetycznej, a fałsz, jeśli nie.

Oto kilka przypadków testowych

a                           true
abcdefGHIjklmnopqrSTUVWXyz  true     
aa                          false
puz                         true
puzz                        false
puzZ                        false
puZ                         true
PuZ                         true
pzu                         false
pzU                         false
abcdABCD                    false
dcba                        false

Jeśli chcesz, uruchom swój program na wszystkich słowach z listy słów takich jak ta i zamieść kilka interesujących =).

Wynik

Najniższa liczba bajtów wygrywa.

wada
źródło
3
Słabe przypadki testowe. (Patrz mój komentarz na temat Richard A „s PHP odpowiedzi .)
manatwork
Czy alfabet zapętla się? Czy powinna zabyć prawdziwa wartość?
MayorMonty,
Nie, alfabet zaczyna się ai kończy na z.
flawr
Powinieneś mieć kilka przypadków testowych, które nie są w kolejności alfabetycznej
Jo King
1
@JoKing Dodałem trochę.
flawr

Odpowiedzi:

28

CJam, 8 bajtów

lel_$_&=

Oto uprząż testowa dla wszystkich przykładów w wyzwaniu. Zwraca 0lub 1(które są odpowiednio fałszem i prawdą w CJam).

A oto skrypt do filtrowania listy słów w pytaniu (uruchomienie zajmuje kilka sekund). Musisz ręcznie skopiować listę słów do pola wejściowego, ponieważ jest ona zbyt długa, aby można było skorzystać z bezpośredniego łącza.

Wyjaśnienie

l        "Read input.";
 el      "Convert to lower case.";
   _$    "Get a copy and sort it.";
     _&  "Remove duplicates (by computing the set intersection with itself).";
       = "Check for equality with original (lower case) word.";
Martin Ender
źródło
21

Regex (dowolny smak), 55 bajtów

Niektóre osoby nie uważają wyrażenia regularnego za język programowania, ale używano go już wcześniej i nie jest on zbyt krótki.

^a?b?c?d?e?f?g?h?i?j?k?l?m?n?o?p?q?r?s?t?u?v?w?x?y?z?$

Dodałem jeden bajt dla iflagi (bez rozróżniania wielkości liter). Jest to bardzo proste i może być krótsze do wygenerowania w locie.

Jeśli sam regex nie jest dozwolony, możesz użyć tego 56-bajtowego programu Retina sugerowanego przez Martina Büttnera:

i`^a?b?c?d?e?f?g?h?i?j?k?l?m?n?o?p?q?r?s?t?u?v?w?x?y?z?$

Uruchomienie tego na powyższej liście słów dało 10 6-literowych słów w kolejności alfabetycznej.

[„wstręt”, „prawie”, „zaczyna się”, „żebrać”, „bijoux”, „biopsja”, „szympansy”, „chinos”, „perkal”, „duchy”]

NinjaBearMonkey
źródło
2
Możesz użyć Retina zamiast ES6, jeśli ktoś narzeka, że ​​regex nie jest językiem:i`^a?b?c?d?e?f?g?h?i?j?k?l?m?n?o?p?q?r?s?t?u?v?w?x?y?z?$
Martin Ender
@ MartinBüttner Zapomniałem o Retinie. Dzięki!
NinjaBearMonkey
@ MartinBüttner Według META ( meta.codegolf.stackexchange.com/questions/2028/... ) Regeksy można „trochę” postrzegać jako język programowania.
Ismael Miguel
@IsmaelMiguel Wiem. W rzeczywistości definicja została specjalnie wybrana, aby upewnić się, że nie wyklucza wyrażenia regularnego. Ale niektórzy ludzie nadal regularnie narzekają, ponieważ nie można używać wyrażenia regularnego jak w innym języku.
Martin Ender
@ MartinBüttner Osoby narzekające mogą udać się do miejsca o nazwie META i poszukać go. Dlaczego nikt nie odwiedza tak pięknego miejsca pełnego pytań, które rozwiązują większość problemów?
Ismael Miguel
19

Python 3, 44 bajty

*s,=input().lower()
print(sorted(set(s))==s)

Proste podejście - sprawdź niepowtarzalność, sprawdź sortowanie.

Sp3000
źródło
Czy możesz wyjaśnić, co *s,=...robi?
flawr
@flawr Nazywa się to „przypisaniem z gwiazdką”. W tym kodzie po prostu konwertuje prawą stronę na listę. To jest tak samo jak s=list(input().lower()).
Jakube
1
@flawr Jak mówi Jakube, tutaj po prostu konwertuje dane wejściowe na listę znaków. Zasadniczo jest to specjalna składnia przypisania, która pozwala robić takie rzeczy, jak x,*y = [1, 2, 3, 4]przypisywanie 1 do xi [2, 3, 4]do y.
Sp3000,
@ mbomb007 *s,= is list(s) ... link
Sp3000
Możesz zrobić {*s}zamiast set(s)zaoszczędzić 2 bajty.
mbomb007
12

> <> , 52 42 39 bajtów

0>i:1+?v1n;
? )'`':/'@'v
0v?){:-<'`'/;n

Tego rodzaju pytanie jest jednym z niewielu rodzajów, z którymi> <> jest całkiem wygodne, ponieważ musimy radzić sobie tylko z jednym char na raz.

Wyjaśnienie

Nie zgub się! Tutaj jest dużo zawijania.

0            Push 0. We'll be mapping a-z to 1-26, so 0 will be smaller than everything

(loop)
i            Read a char of input
:1+? 1n;     If there's no more input, print 1
:'`')?       If the char is bigger than backtick...
  '`'          Push backtick  (which is one before 'a'), else...
  '@'          Push an @ sign (which is one before 'A')
-            Subtract, mapping a-z to 1-26
:{)?         If the new char is bigger than the previous char...
               Repeat from the beginning of the loop, else...
  0n;          Print 0

Poprzednie rozwiązanie, 42 bajty

0i:1+?v1n;n0/\!
?)'`':/'@'v
? ){:-<'`'/ vv

Ciekawe jest to, że pomimo tego, że wydaje się mieć tę samą funkcjonalność, stanowi alternatywę

0i:1+?v1n;n0\/!
?)'`':/'@'v
? ){:-<'`'/ ^^

(Zmiana znajduje się w strzałkach i lusterkach po prawej stronie)

faktycznie daje niepoprawne wyniki, ponieważ interpreter> <> używa domyślnego słownika Pythona. To, co się dzieje, polega na tym, że przechodząc przez pustą przestrzeń na końcu drugiego rzędu, zero jest domyślnie umieszczane w pustych przestrzeniach, gdy> <> próbuje uzyskać dostęp do komórki. To wtedy miesza się z ?warunkową trampoliną na początku tego samego rzędu, ponieważ nowo umieszczone 0 są pomijane, a nie vna końcu.

Sp3000
źródło
Wydaje mi się, że można zaoszczędzić trochę bajtów, odejmując jedynie 32 od małych liter, zamiast uzyskać indeks alfabetyczny dla wszystkich liter
Aaron,
9

Haskell, 52 bajty

import Data.Char
and.(zipWith(>)=<<tail).map toLower

Zastosowanie: (and.(zipWith(>)=<<tail).map toLower) "abcd"które wyjścia True.

nimi
źródło
9

C, 67 65 57 54 (52) znaków

f(char*s){int c,d=0;for(;(c=*s++)&&(c&~32)>(d&~32);d=c);return!c;}

trochę krótszy:

f(char*s){int c,d=0;for(;(c=*s++)&&(c&~32)>d;d=c&~32);return!c;}

a nawet krótszy:

f(char*s){int d=32;for(;(*s|32)>d;d=*s++|32);return!*s;}

Oto mały test: http://ideone.com/ZHd0xl

Po najnowszych sugestiach nadal są dwie krótsze wersje:

// 54 bytes
f(char*s){int d=1;for(;(*s&=95)>d;d=*s++);return!*s;}

// 52, though not sure if valid because of global variable
d;f(char*s){d=1;for(;(*s&=95)>d;d=*s++);return!*s;}

Również ten kod opiera się na fakcie, że małe i wielkie litery ASCII różnią się tylko 5-tym bitem (32), który odfiltrowuję. Może to oczywiście nie działać z innymi kodowaniami.

EDYCJA: Najnowsza wersja zawsze ustawia 5. bit, ponieważ |32jest krótszy niż &~32.

Felix Bytów
źródło
Dobre wykorzystanie wiedzy o domenie do obsługi problemu rozróżniania wielkości liter.
RomSteady
Zapisz 2, zamieniając pętlę for na for(;(*s&=95)>d;d=*s++);. I można zainicjować daby 1nie zmieniając wynik, oszczędzając 1 więcej. Widzieć.
AShelly,
1
Nie jestem pewien, czy jest to uważane za legalne w kodzie golfowym, ale d;f(char*s){d=32;for...}działa, deklarując ddomyślnie jako int globalny (który w GCC jest ostrzeżeniem - „definicja danych nie ma typu ani klasy pamięci” - ale nie błąd). To oszczędza dwa bajty.
wchargin
AShelly hm, nie wziąłem tego pod uwagę. Twoja sugestia zmienia jednak oryginalny ciąg. Ale cokolwiek, to kod golfowy: D Nie jestem też pewien wskazówki WChargina, ponieważ d jako zmienna globalna tak naprawdę nie byłaby częścią tej funkcji.
Felix Bytow
1
Dlaczego nie zainicjować dw forpętli zamiast własnej instrukcji? W ten sposób oszczędzasz ;.
Josh
6

Ruby, 33

->s{c=s.upcase.chars
c==c.sort|c}

Sprawdza, czy posortowane unikalne znaki są takie same jak wszystkie znaki.

Britishtea
źródło
1
Pomyśl, że możesz go trochę skrócić za pomocąc==c.sort|c
histocrat
Och, podoba mi się to, jest sprytne. Dzięki.
britishtea
5

JavaScript (ES5), 101

function i(s){b=0;l=''.a
s.toUpperCase().split('').forEach(function(c){if(c<=l)b=1
l=c})
return!b}

Poprawiono do 87 przez edc95:

głosujcie na jego komentarz :)

function i(s){return!s.toUpperCase().split(l='').some(function(c){return(u=l,l=c)<=u})}

Przy okazji, przypadki testowe obecnie w OP są spełnione, jeśli program sprawdza tylko unikalność, nie uwzględniając kolejności.


Nie mogę jeszcze pisać komentarzy, więc odpowiem na kilka uwag tutaj:

@ edc65: Dzięki! Próbowałem przepisać go za pomocą some(), ale nie mogłem znaleźć krótszego rozwiązania, ponieważ chociaż wygląda na to, że pozwoliłoby mi to pozbyć się zbędnej zmiennej b, musisz wpisać „return” dwa razy (to samo z reduce()), a ty nie można po prostu zwrócić wyniku porównania bezpośrednio, ponieważ ostatnia postać musi zostać zapisana po porównaniu z nią.

@ edc65: To miłe użycie operatora przecinka dla 87! Zredagowałem to w mojej odpowiedzi dla większej widoczności.

Tamas
źródło
To lepszy pomysł niż mój. Korzystanie z .some mogłoby być jeszcze lepsze (52 z ES6)
edc65
Możesz usunąć odstęp między returni, !baby zapisać znak.
ProgramFOX
Tak jak tylko troskliwa biała przestrzeń, 96:function i(s){b=0;l='';s.toUpperCase().split('').forEach(function(c){if(c<=l)b=1;l=c});return!b}
edc65
To samo, więcej function i(s){s.toUpperCase(b=0).split(l='').forEach(function(c){if(c<=l)b=1;l=c});return!b}
grał w
1
Używając niektórych (lub każdego, tego samego wyniku), 87:function i(s){return!s.toUpperCase().split(l='').some(function(c){return(u=l,l=c)<=u})}
edc65
4

Haskell, 90 bajtów

Dostarcza funkcję f :: String -> Bool

import Data.List
import Distribution.Simple.Utils
f l=g$lowercase l
g l=sort l==l&&l==nub l

Użycie (przy założeniu, że jest zapisane jako golf.hs). ...służy do zastąpienia ghcipełnych komunikatów ładujących.

$ ghci golf.hs
...
*Main> f "as"
...
True
*Main> f "aa"
False

Jeśli ktoś ma lowercasemetodę krótszą niż import Distribution.Simple.Utilswtedy, prosimy o komentarz.

HEGX64
źródło
1
Zastosowanie map toLowerod Data.Charzamiastlowercase
Nimi
1
Ponadto: możesz usunąć parametr lz f, tj. f=g.lowercase(Lub f=g.map toLowerpo przełączeniu na toLower). W ciągu gjednego porównania: Dosyć g l=nub(sort l)==l.
nimi
4

Wolfram Mathematica, 49 37 bajtów

f[x_]:=(l=Characters[ToLowerCase[x]];Union[l]==l)

PS Krótsze rozwiązanie Martina Büttnera:

Union[l=Characters@ToLowerCase@#]==l&
Savenkov Alexey
źródło
2
#⋃#==#&@*Characters@*ToLowerCase
alephalpha
1
@alephalpha That is beautiful!
Martin Ender
4

J, 17 bajtów

Sprawdza, czy posortowany /:~ciąg -:małych liter jest równy ~.ciągowi nub małymi literami .

   (/:~-:~.)@tolower

   NB. testing with the example inputs
   ((/:~-:~.)@tolower) every (1$'a');'abcdefGHIjklmnopqrSTUVWXyz';'aa';'puz';'puzz';'puzZ';'puZ';'PuZ'
1 1 0 1 0 0 1 1

Tak jak w J 1-znakowy długi „ciąg” reprezentowany jako zwykły ciąg (z cudzysłowami) jest tylko atomem znaków, a nie prawdziwym ciągiem, odpowiednio sformatowałem dane wejściowe, aby wszystkie dane wejściowe były prawdziwymi łańcuchami. (W powyższym przykładzie użyłem 1$'a'.)

randomra
źródło
4

MATLAB, 29 27 bajtów

Teraz dla jednej linii, która ma sens nawet poza golfem.

Jako funkcja anonimowa (użyj jako o('yourstring'))

o=@(s)all(diff(lower(s))>0)

Myślę, że ta funkcja jest dość oczywista, ponieważ brzmi jak reklama w gazecie.

Poprzednia wersja (29 bajtów):

all(diff(lower(input('')))>0)

Dane wejściowe muszą być prezentowane między 'znakami, np 'Potato'.

Sanchises
źródło
4

Brachylog , 3 bajty

ḷ⊆Ạ

Wypróbuj online!

Predykat kończy się powodzeniem, jeśli dane wejściowe spełniają określone wymagania, a jeśli nie, drukowanie true.lub false.uruchamianie jako program kończy się niepowodzeniem .

       The input,
ḷ      lowercased,
 ⊆     is a not-necessarily-contiguous sub-list of
  Ạ    "abcdefghijklmnopqrstuvwxyz".

Pierwsza wersja, którą wymyśliłem, nie odnosząc się wprost do alfabetu:

Brachylog , 4 bajty

ḷ≠.o

Wypróbuj online!

        The input,
ḷ       lowercased,
 ≠      in which every character is distinct,
  .     is the output variable,
   o    which sorted,
        is still the output variable.
Niepowiązany ciąg
źródło
3

J, 21 znaków

To za długo Argument musi mieć rangę 1, tzn. Musi być łańcuchem lub wektorem.

*/@(<=~.;/:~)@tolower
  • tolower y- ymałymi literami.
  • /:~ y- yw porządku leksykalnym.
  • ~. y- nub y, czyli yz usuniętymi duplikatami.
  • x ; y- xi ywkładany do pudełek, a następnie łączony.
  • < y- ywłożyć do pudełka.
  • x = y- w x porównaniu z elementem y.
  • (< y) = (~. y) ; (/:~ y)- wektor wskazujący, czy yjest równy nub i sam posortowany.
  • */ y- iloczyn pozycji ylub jego logika oraz jeśli pozycje są wartościami logicznymi.
  • */ (< y) = (~. y) ; (/:~ y)- wartość logiczna wskazująca pożądaną właściwość małych liter y.
FUZxxl
źródło
3

Julia, 44 bajty

s->(l=lowercase(s);l==join(sort(unique(l))))

Tworzy to anonimową funkcję, która pobiera pojedynczy argument s, konwertuje go na małe litery i porównuje z unikalną posortowaną wersją łańcucha. Zwraca wartość logiczną, tj . trueLub false. Jeśli chcesz to przetestować, przypisz to, f=s->...a następnie zadzwoń f("PuZ")itp.

Alex A.
źródło
Amen do tego, @flawr. Dzięki za wsparcie.
Alex A.
3

Pure Bash 4.x, 37

[[ ${1,,} =~ ^`printf %s? {a..z}`$ ]]

Dane wejściowe są brane jako parametr wiersza polecenia. Zgodnie ze standardową semantyką powłoki, kod wyjścia 0 oznacza prawda (alfabetycznie), a kod wyjścia! = 0 oznacza fałsz (nie alfabetycznie).

Printf tworzy regex jak w rozwiązaniu @ hsl . Łańcuch wejściowy jest rozwijany do małych liter i porównywany z wyrażeniem regularnym.


Poprzednia odpowiedź:

Bash + coreutils, 52

Proste rozwiązanie:

a=`fold -1<<<${1,,}`
cmp -s <(sort -u<<<"$a")<<<"$a"
Cyfrowa trauma
źródło
Zauważ, że wymaga to bash 4.x.
Mark Reed
@MarkReed Tak. Znakomity.
Cyfrowy uraz
3

C # 6, 18 + 82 76 = 94 bajtów

Wymaga (18 bajtów):

using System.Linq;

Kod (76 bajtów):

bool a(string s)=>(s=s.ToLower()).Distinct().OrderBy(x=>x).SequenceEqual(s);

C # 6 obsługuje lambdy do zdefiniowania funkcji, która jest przydatna podczas gry w golfa.

Wersja inna niż C # 6:

bool a(string s){return (s=s.ToLower()).Distinct().OrderBy(x=>x).SequenceEqual(s);}

Nieskluczony kod:

bool IsInAlphabeticalOrder(string s)
{
    s = s.ToLower();
    return s.Distinct()
            .OrderBy(x => x)
            .SequenceEqual(s);
}
ProgramFOX
źródło
3

JavaScript (ES6) 54

Konwertuj na wielkie litery, a następnie na tablicę i sortuj. Jeśli podczas sortowania dwa elementy są w niewłaściwej kolejności lub równe, zwróć 0 (fałsz) w przeciwnym razie 1 (prawda)

Edycja skróconego thx do @Optimizer (ale nadal 2 więcej niż roztwór @Tamas realizowanego w ES6: F=s=>[...s.toUpperCase()].every(c=>(u=l,l=c)>u,l=''))

F=s=>[...s.toUpperCase(x=1)].sort((a,b)=>a<b?1:x=0)&&x

Test w konsoli Firefox / FireBug

;['a','abcdefGHIjklmnopqrSTUVWXyz','aa','puz','puzz','puzZ','puZ','PuZ']
.map(w=>w+' '+F(w))

[„a 1”, „abcdefGHIjklmnopqrSTUVWXyz 1”, „aa 0”, „puz 1”, „puzz 0”, „puzZ 0”, „puZ 1”, „PuZ 1”]

edc65
źródło
1
s=nie wydaje się być wymagane ...
Optymalizator
@Optimizer racja, to była pierwsza próba, kiedy w końcu porównałem oryginał (wielkie litery) i posortowane
edc65
3

C (44 bajty)

f(char*s){return(*s&=95)?f(s+1)>*s?*s:0:96;}

Przetestuj tutaj: http://ideone.com/q1LL3E

Publikowanie tego, ponieważ nie mogę jeszcze komentować, w przeciwnym razie byłaby sugestia, aby poprawić istniejącą odpowiedź C, ponieważ całkowicie ukradłem pomysł bez rozróżniania wielkości liter z istniejącej odpowiedzi C.

Zwraca 0, jeśli ciąg nie jest uporządkowany, a wartość niezerowa, jeśli jest uporządkowana.

erai
źródło
3

Golang (65 bajtów)

Go nie jest językiem przyjaznym golfowi, a także, ssę golfa ...

func a(s[]byte)(bool){return len(s)<2||s[0]|32<s[1]|32&&a(s[1:])}

Uruchom tutaj: http://play.golang.org/p/xXJX8GjDvr

edycja 106-> 102

edycja 102-> 96

edycja 96-> 91

edycja 91-> 87

edycja 87-> 65

Pokonałem wersję Java, mogę zatrzymać się na dziś

Kristoffer Sall-Storgaard
źródło
3

Java 8 - 90 89 87 85 znaków

Chodzi tutaj o użycie funkcji „zmniejszania”, która śledzi ostatni znak i „poddaje się”, gdy wykryje, że sekwencja nie jest ściśle rosnąca.

grał w golfa:

int f(String s){return s.toLowerCase().chars().reduce(0,(v,c)->(v<0)?v:(c>v)?c:-1);}

bez golfa:

int f(String s){
    return s.toLowerCase()
            .chars()
            .reduce(0, (v,c) -> (v<0)? v : (c>v)?c:-1);
}

przykład:

System.out.println(new Quick().f("abc"));
System.out.println(new Quick().f("aa"));
System.out.println(new Quick().f("abcdefGHIjklmnopqrSTUVWXyz"));
System.out.println(new Quick().f("puZ"));
System.out.println(new Quick().f("Puz"));
System.out.println(new Quick().f("cba"));

wydajność:

99
-1
122
122
122
-1
Michael Easter
źródło
3

Perl 6, 35 bajtów

{my@c=.uc.comb;@c [email protected]}

Powoduje to wywołanie bloku; jeśli mógłbym tylko założyć, że $_jest już ustawione pożądane słowo, mógłbym usunąć otaczające nawiasy klamrowe i stracić dwa dodatkowe bajty, ale prawdopodobnie jedynym rozsądnym sposobem na przyjęcie takiego założenia byłoby uruchomienie go -ni przekazanie słowa jako standardowego wejścia , który dodałby dwa bajty od razu.

Mark Reed
źródło
Jasne, że tak. .uc.combniczego nie zmienia, więc jeśli tablica wielkich i czesanych jest równa posortowanej tablicy i czesanych, oznacza to, że zaczęła się w posortowanej kolejności.
Mark Reed
tak, sprawdza rozmiar skrzyżowania, co ignoruje kolejność. OK, zaktualizowano.
Mark Reed
3

R , 37 bajtów

all(diff(utf8ToInt(scan(,''))%%32)>0)

Wypróbuj online!

Delegowanie ponieważ jest znacznie krótsza niż inne i Michała R odpowiedź .

Konwertuje litery na znaki kodowe ASCII za pomocą utf8ToInt, a następnie bierze modulo 32, dzięki czemu dolne i górne litery są konwertowane na te same cyfry 1 ... 26. Oblicza różnice par i sprawdza, czy wszystkie są dodatnie.

Robin Ryder
źródło
2

Perl, 27

Wyrażenie regularne @ hsl buduje się dynamicznie.

#!perl -p
$"="?";@x=a..z;$_=/^@x?$/i

Możemy również wykonać odwrotne dopasowanie: przekonwertować dane wejściowe na wyrażenie regularne: PuZ=>, .*p.*u.*z.*a następnie dopasować to do ciągu liter w kolejności alfabetycznej. Wynik - także 27 znaków.

#!perl -lp
$_=join(s//.*/g,a..z)=~lc
nutki
źródło
2

k (6 bajtów)

&/>':_

& zwraca true, jeśli oba argumenty są prawdziwe

/modyfikuje, &aby zastosować „nad” listą, podobnie jak fold w językach funkcjonalnych

> Lepszy niż

':modyfikuje, >aby zastosować „przed każdym”, więc zwraca wektor wartości logicznych określający, które elementy są większe niż ich poprzednik

_ czyni to argument małą literą

  _"puzZ"
"puzz"
  >':_"puzZ"
1110b
  &/>':_"puzZ"
0b

( 0boznacza boolean false)

q (13 bajtów)

all(>':)lower

q jest po prostu cukrem syntaktycznym na k. alljest zdefiniowany jako &/, a niższy to_

mollmerx
źródło
4
Czy możesz wyjaśnić, jak to działa?
flawr
To prawie jak oszustwo w innych językach ... Kto potrzebuje nazw funkcji, nawiasów i średników? :)
Sanchises
@sanchises k ma wszystkie te rzeczy i działają one prawie tak samo, jak w językach w stylu C. Po prostu problem ten może być wyrażony jako pojedyncze stwierdzenie.
mollmerx
2

VBA (161 bajtów)

Function t(s As String)
t = 0
For i = 2 To Len(s)
a = Left(LCase(s), i)
    If Asc(Right(a, 1)) <= Asc(Right(a, 2)) Then Exit Function
Next
t = 1
End Function  

Porównuje wartość ascii z poprzednią literą małymi literami, zwraca 0 (fałsz), gdy jej wartość jest mniejsza / równa, i wychodzi z funkcji

Alex
źródło
2

Python 2 , 43 bajty

lambda s:eval('"%s"'%'"<"'.join(s.lower()))

Wypróbuj online!

Umieszcza <symbole między wszystkimi literami (konwertowane na małe litery), a następnie evals to. Łańcuchowe operatory porównania w Pythonie z wielką przyjemnością oceniają całość jako jedno duże wyrażenie logiczne.

ArBo
źródło
1

Erlang, 51

f(S)->G=string:to_lower(S),ordsets:from_list(G)==G.

Używa uporządkowanego zestawu (analogicznie do java.util.TreeSet) do sortowania znaków i odrzucania duplikatów. Nowa lista jest następnie porównywana z ciągiem wejściowym.

Funkcja testowa:

test() ->
    [io:format("~p ~p~n", [S, f(S)]) || S <- ["a","abcdefGHIjklmnopqrSTUVWXyz","aa","puz","puzz","puzZ","puZ","PuZ"]].
cPu1
źródło
1

Java, 96

boolean a(char[]a){int i=-1,l=0;for(;++i<a.length;l+=i>0&&a[i]<=a[i-1]?1:0)a[i]|=32;return l<1;}

Całkiem proste. Wystarczy przekonwertować wszystkie na niższe i porównać każdą z poprzednimi postaciami.

Geobity
źródło