Biorąc pod uwagę listę cyfr od 1 do 9, wypisz, czy każda cyfra jest zgrupowana jako pojedynczy ciągły blok. Innymi słowy, żadne dwie z tej samej cyfry nie są oddzielone różnymi cyframi. Jest OK, jeśli cyfra w ogóle się nie pojawia. Wygrywa najmniej bajtów.

Dane wejściowe: niepusta lista cyfr od 1 do 9. Może to być liczba dziesiętna, ciąg znaków, lista lub podobna sekwencja.

Dane wyjściowe: spójna wartość Prawda, jeśli wszystkie cyfry są pogrupowane w ciągłe bloki, i spójna wartość Falsey, jeśli nie są.

Prawdziwe przypadki:

3
51
44999911
123456789
222222222222222222222

Fałszywe przypadki:

818
8884443334
4545
554553
1234567891

var QUESTION_ID=77608,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/77608/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Python 3, 38 34 33 bajtów

lambda s:s==sorted(s,key=s.index)

To oczekuje listy cyfr lub ciągów singletonów jako argumentu. Przetestuj na Ideone .

Dzięki @xsot za grę w golfa z 4 bajtów!

Dzięki @immibis za grę w golfa na 1 bajcie!

JavaScript (ES6), 27 bajtów

s=>!/(.)(?!\1).*\1/.test(s)

Używa negatywnego spojrzenia przed siebie, aby wyszukać dwie niesąsiadujące cyfry. Jeśli istnieją co najmniej dwie takie cyfry, można je wybrać tak, aby pierwsza cyfra poprzedza inną cyfrę.

05AB1E , 4 bajty

Kod:

Ô¹ÙQ

Wyjaśnienie:

Ô     # Push connected uniquified input. E.g. 111223345565 would give 1234565.
 ¹    # Push input again.
  Ù   # Uniquify the input. E.g. 111223345565 would give 123456.
   Q  # Check if equal, which yields 1 or 0.

Wykorzystuje kodowanie CP-1252 .

Wypróbuj online!

Galaretka , 5 bajtów

ĠIFPỊ

Wypróbuj online!

Jak to działa

ĠIFPỊ  Main link. Input: n (list of digits or integer)

Ġ      Group the indices of n by their corresponding values, in ascending order.
       For 8884443334, this yields [[7, 8, 9], [4, 5, 6, 10], [1, 2, 3]].
 I     Increments; compute the all differences of consecutive numbers.
       For 8884443334, this yields [[1, 1], [1, 1, 4], [1, 1]].
  F    Flatten the resulting 2D list of increments.
   P   Product; multiply all increments.
    Ị  Insignificant; check if the product's absolute value is 1 or smaller.

Pyth, 6 5 bajtów

1 bajt dzięki FryAmTheEggman

SIxLQ

Zainspirowany tutaj rozwiązaniem Python .

Zestaw testowy

Wyjaśnienie:

SIxLQ
  xLQ   Map each element in the input to its index in the input. Input is implicit.
SI      Check whether this list is sorted.

R, 66 48 46 43 38 bajtów

function(s)!any(duplicated(rle(s)$v))

Jest to funkcja, która przyjmuje dane wejściowe jako wektor cyfr i zwraca wartość logiczną. Aby go wywołać, przypisz go do zmiennej.

Nie najkrótszy, ale pomyślałem, że to zabawne podejście. Uruchamiamy kodowanie długości danych wejściowych i wyodrębnianie wartości. Jeśli lista wartości zawiera duplikaty, zwróć FALSE, w przeciwnym razie zwróć TRUE.

Sprawdź wszystkie przypadki testowe online

Zaoszczędź 20 bajtów dzięki MickyT, 3 dzięki Albertowi Masclansowi i 5 dzięki mnel!

MATL , 8 bajtów

t!=tXSP=

Dane wyjściowe to tablica zawierająca tylko jedne dla prawdy lub tablica zawierająca co najmniej jedno zero dla falsey.

Wypróbuj online!

Wyjaśnienie

Rozważ dane wejściowe 22331, które spełniają warunek. Testowanie, czy każdy znak jest równy, daje tablicę 2D

1 1 0 0 0
1 1 0 0 0
0 0 1 1 0
0 0 1 1 0
0 0 0 0 1

Ostateczny wynik powinien być prawdziwy, jeśli rzędy tej tablicy (uważane za atomowe) są w porządku (leksykograficznym) malejącym . Dla porównania dane wejściowe 22321dają tablicę

1 1 0 1 0
1 1 0 1 0
0 0 1 0 0
1 1 0 1 0
0 0 0 0 1

w których wiersze nie są sortowane.

t!   % Take string input. Duplicate and tranpose
=    % Test for equality, element-wise with broadcast: gives a 2D array that
     % contains 0 or 1, for all pairs of characters in the input
t    % Duplicate
XS   % Sort rows (as atomic) in increasing order
P    % Flip vertically to obtain decreasing order
=    % Test for equality, element-wise

Siatkówka , 17 bajtów

M`(.)(?!\1).+\1
0

Wypróbuj online! (Nieznacznie zmodyfikowany, aby uruchomić wszystkie przypadki testowe jednocześnie).

Pierwszy regex pasuje do cyfr, które są oddzielone od pozostałych cyfr, więc dostać 0do prawidłowych wejść i nigdzie pomiędzy 1i 9za nieprawidłowe wejść (z powodu chciwości z The .+, nie możemy dostać więcej niż n-1mecze dla nróżnych cyfr).

Aby odwrócić prawdziwość wyniku, zliczamy liczbę 0s, która jest 1dla poprawnych danych wejściowych i0 nieprawidłowych .

Java, 161 156 bajtów

Ponieważ Java ...

Bezwstydnie kradnie zapożyczanie wyrażenia regularnego z tej odpowiedzi ponieważ zacząłem próbować robić to za pomocą tablic i manipulacji matematycznych, ale stało się to strasznie skomplikowane, a wyrażenie regularne jest tak samo dobrym narzędziem jak ten problem.

import java.util.regex.*;public class a{public static void main(String[] a){System.out.println(!Pattern.compile("(.)(?!\\1).*\\1").matcher(a[0]).find());}}

Nie golfowany:

import java.util.regex.*;

public class a {
    public static void main(String[] args) {
        System.out.println(!Pattern.compile("(.)(?!\\1).*\\1").matcher(args[0]).find());
    }

Przedstawiony jak rozsądna osoba Java:

import java.util.regex.Matcher;
import java.util.regex.Pattern;

public class  {
    public static void main(String[] args) {
        Pattern p = Pattern.compile("(.)(?!\\1).*\\1");
        Matcher m = p.matcher(args[0]);
        System.out.println(!m.find());
    }
}

Pyth, 7 bajtów

{IeMrz8

Pakiet testowy .

Rubinowy, 23 bajty

Funkcja anonimowa. Akceptuje ciąg. Strate Regex.

->n{/(.)(?!\1).*\1/!~n}

Podział Regex

/(.)(?!\1).*\1/
 (.)            # Match a character and save it to group 1
    (?!\1)      # Negative lookahead, match if next character isn't
                #  the same character from group 1
          .*    # Any number of matches
            \1  # The same sequence as group 1

!~oznacza, jeśli w ciągu nie ma żadnych dopasowań wyrażenia regularnego, return truei return return false.

Mathematica, 26 bajtów

0<##&@@Sort[#&@@@Split@#]&

MATL, 13 11 bajtów

u"G@=fd2<vA

Dzięki Luis Mendo za uratowanie dwóch bajtów!

Wypróbuj online!

Wyjaśnienie

        % Grab the input implicitly
u       % Find the unique characters
"       % For each of the unique characters
    G   % Grab the input again
    @=  % Determine which chars equal the current char
    f   % Find the locations of these characters
    d   % Compute the difference between the locations
    2<  % Find all index differences < 2 (indicating consecutive chars)
    v   % Vertically concatenate all stack contents
    A   % Ensure that they are all true
        % Implicit end of the for loop

Haskell, 44 bajty

import Data.List 
((==)<*>nub).map head.group

Przykład użycia: ((==)<*>nub).map head.group $ "44999911"->True .

Wersja bez point-point:

f x = q == nub q                -- True if q equals q with duplicates removed
  where
  q = map head $ group x        -- group identical digits and take the first
                                -- e.g. "44999911" -> ["44","9999","11"] -> "491"
                                -- e.g  "3443311" -> ["3","44","33","11"] -> "3431"

J, 8 bajtów

-:]/:i.~

Przetestuj to z J.JS .

Jak to działa

-:]/:i.~  Monadic verb. Argument: y (list of digits)

     i.~  Find the index in y of each d in y.
  ]/:     Sort y by the indices.
-:        Match; compare the reordering with the original y.

Python, 56 55 bajtów

a=lambda s:~(s[0]in s.lstrip(s[0]))&a(s[1:])if s else 1

C #, 119 bajtów

bool m(String s){for(int i=0;i<9;i++){if(new Regex(i.ToString()+"+").Matches(s).Count>1){return false;}}return true;}

Bez golfa

bool m(String s) {
    for(int i=0;i<9;i++) {
        if(new Regex(i.ToString() + "+").Matches(s).Count > 1) {
            return false;
        }
    }

    return true;
}

Julia, 35 bajtów

s->issorted(s,by=x->findfirst(s,x))

Z jakiegokolwiek powodu sortnie bierze sznurka, ale issorted...

Współczynnik, 22 bajty

[ dup natural-sort = ]

Robi to, co jest napisane na puszce. Jako funkcję anonimową powinieneś callto zrobić lub zrobić to : word ;.

Lua, 107 94 85 bajtów

13 bajtów zapisanych dzięki @LeakyNun

Przynajmniej bije Java: D. Lua ssie manipulowanie ciągami, ale myślę, że to wystarczy :).

Bierze swoje dane wejściowe jako argument wiersza poleceń, a dane wyjściowe 1dla prawdziwych przypadków i falsedla fałszywych. Teraz wyświetla dane wyjściowe za pomocą kodu wyjścia. Wyjdź z kodu 0 dla prawdy i 1 dla fałszu

o=os.exit;(...):gsub("(.)(.+)%1",function(a,b)if 0<#b:gsub(a,"")then o(1)end end)o(0)

Bez golfa

Uwaga, wywoływane są dwie magiczne zmienne ..., pierwsza zawiera argument programu, druga jest lokalna dla funkcji anonimowej i zawiera jej parametry

o=os.exit;               -- ; mandatory, else it would exit instantly
(...):gsub("(.)(.+)%1",  -- iterate over each group of the form x.*x and apply an anonymous
  function(a,b)          -- function that takes the captured group as parameters
  if 0<#b:gsub(a,"")     -- if the captured group (.+) contain other character than
  then                   -- the one captured by (.)
    o(1)                 -- exit with falsy
  end
end)
o(0)                     -- exit with truthy, reached only when the string is okay

JavaScript ES6, 71 69 bajtów

h=y=>y.match(/(.)\1*/g);x=>h((u=h(x)).sort().join``).length==u.length

Lub równoważnie:

x=>((u=x.match(r=/(.)\1*/g)).sort().join``).match(r).length==u.length
x=>(h=y=>y.match(/(.)\1*/g))((u=h(x)).sort().join``).length==u.length

Gra w golfa w toku.

Sprawdź przypadki testowe

var truthy = `3
51
44999911
123456789
222222222222222222222`.split `
`;
var falsey = `818
8884443334
4545
554553
1234567891`.split `
`;

var Q = x => ((u = x.match(r = /(.)\1*/g)).sort().join ``).match(r).length == u.length;
truthy.concat(falsey).forEach(e => {
  t = document.createTextNode(`${e} => ${Q(e)}`);
  o.appendChild(t);
  o.appendChild(document.createElement("br"));
});

* {
  font-family: Consolas, monospace;
}

<div id=o></div>

C # 111 bajtów

bool f(string s){for(int i=0;i<s.Length-1;i++)if(s[i]!=s[i+1]&&s.LastIndexOf(s[i])!=i)return 1==2;return true;}

stara strategia 131 bajtów

bool s(string i){var f=Regex.Matches(i,@"([0-9])\1{0,}").Cast<Match>().Select(m=>m.Value[0]);return f.Distinct().SequenceEqual(f);}

pierwszy golf myślę, że zrobiłem dobrze w

C, 74 73 71 bajtów

Ogolony jeden trzech bajtów dzięki @xsot!

a[99],c,m;main(d){for(;~c;m|=c^d&&a[d=c]++)c=getchar();putchar(48+!m);}

Haskell, 37 bytes

f l=(==)=<<scanl1 min$(<$>l).(==)<$>l

Uses the same approach as Luis Mendo's MATL answer: creates a vector for each entry which indices equal it, and checks that the result is sorted in decreasing order.

(<$>l).(==)<$>l is shorter version of [map(==a)l|a<-l]. The function (<$>l).(==) that takes a to map(==a)l is mapped onto l.

scanl1 min takes the cumulative smallest elements of l, which equals the original only if l is reverse-sorted. (==)=<< checks if the list is indeed invariant under this operation.

A different recursive strategy gave 40 bytes:

f(a:b:t)=f(b:t)>(elem a t&&a/=b)
f _=1>0

This checks each suffix to see if its first element doesn't appear in the remainder, excusing cases where the first two elements are equal as part of a contiguous block.

Racket, 53 bytes

The dumb, simple version.

(λ(s)(let([s(string->list s)])(eq?(sort s char<?)s)))

Ungolfed:

(define (lame-all-together s)
  (let ([s (string->list s)])
    (eq? (sort s char<?) s)))

Racket, 86 bytes

Here's the version implementing @xnor's comment about more efficient ways to do this.

(λ(s)(let([s(string->list(regexp-replace#px"(.)\\1+"s"\\1"))])(eq?(sort s char<?)s)))

Ungolfed:

(define (all-together s)
    (let ([s (string->list (regexp-replace #px"(.)\\1+" s "\\1"))])
      (eq? (sort s char<?) s )))

Okay, this may actually just shift the weight of computation from the sort function to regexp-replace, but it was an interesting solution. Basically, it removes runs of duplicate characters first (see here), then tests if the remaining length-1 runs are in sorted fashion.

Perl 5, 20 bytes

19, plus 1 for -pe instead of -e.

$_=!/(.)(?!\1).+\1/

Wolfram Language (Mathematica), 18 bytes

Gather@#==Split@#&

Try it online!

Gather gathers a list into sublists of identical elements, and Split splits a list into sublists of consecutive identical elements. They give the same result if and only if each value appears in only one contiguous block.

Convex, 17 bytes

9´\f{\s'++\ð½¬}ª!

Try it online!

Japt, 9 bytes

ò¦ mÌ
eUâ

Try it

Explanation

          :Implicit input of string U             :e.g., "8884443334"
ò¦        :Split on inequality                    :["888","444","333","4"]
   mÌ     :Map and return the last digit of each  :["8","4","3","4"]
\n        :Assign to U
  Uâ      :Remove duplicates                      :["8","4","3"]
e         :Test for equality with U               :false
          :Implicit output of result

APL (Dyalog), 17 bytes

(⍋≡⍳∘≢)∘⌽∘∊2⊥∘.=⍨

Try it online!