1'den 9'a kadar olan rakamların bir listesi göz önüne alındığında, her bir basamağın tek bir bitişik blok olarak gruplanmış olup olmadığına bakın. Başka bir deyişle, aynı rakamın hiçbiri farklı rakamlarla ayrılmaz. Bir rakam hiç görünmüyorsa tamamdır. En az bayt kazanır.

Giriş: 1 ile 9 arasındaki rakamların boş olmayan bir listesi. Ondalık sayı, dize, liste veya benzeri bir sıralama olabilir.

Çıkış: tutarlı Truthy tüm rakamlar bitişik bloklar gruplandırılır, değer ve tutarlı bir Falsey değiller ise değer.

Gerçek durumlar:

3
51
44999911
123456789
222222222222222222222

Yanlış durumlar:

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 bayt

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

Bu, argüman olarak rakam veya singleton dizelerinin bir listesini bekler. İdeone üzerinde test et .

4 baytlık golf oynamak için @xsot'a teşekkürler!

1 byte kapalı golf için @ immibis için teşekkürler!

JavaScript (ES6), 27 bayt

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

İki bitişik olmayan rakam aramak için negatif görünüm kullanır. Eğer en az iki tane rakam mevcutsa, ilk rakam farklı bir rakamdan önce gelecek şekilde seçilebilirler.

05AB1E , 4 bayt

Kod:

Ô¹ÙQ

Açıklama:

Ô     # 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.

CP-1252 kodlamasını kullanır .

Çevrimiçi deneyin!

Jöle , 5 bayt

ĠIFPỊ

Çevrimiçi deneyin!

Nasıl çalışır

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

FryAmTheEggman sayesinde 1 bayt

SIxLQ

Burada Python çözümünden esinlenilmiştir .

Test odası

Açıklama:

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 bayt

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

Bu, girişi basamakların bir vektörü olarak kabul eden ve bir boolean döndüren bir işlevdir. Aramak için değişkene atayın.

En kısa değil ama eğlenceli bir yaklaşım olduğunu düşündüm. Length komutunu giriyoruz ve girdiyi kodluyoruz. Değerlerin listesi kopya içeriyorsa FALSE, geri dönün , yoksa geri dönün TRUE.

Tüm test durumlarını çevrimiçi olarak doğrulayın

MickyT sayesinde 20 bayt, Albert Masclans sayesinde 3, mnel sayesinde 5 teşekkür!

MATL , 8 bayt

t!=tXSP=

Çıktı, yalnızca truthy için olanları içeren bir dizi veya falsey için en az bir sıfır içeren bir dizidir.

Çevrimiçi deneyin!

açıklama

22331Koşulu sağlayan girdiyi düşünün . Her karakterin birbirine eşit olup olmadığının test edilmesi 2B dizi verir.

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

Nihai sonuç , bu dizinin (atomik olarak kabul edilir) sıraları (sözlükbilimsel) azalan bir düzendeyse , sıradışı olmalıdır . Karşılaştırma için, giriş 22321diziyi verir

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

sıraların sıralanmadığı.

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

Retina , 17 bayt

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

Çevrimiçi deneyin! (Tüm test durumlarını bir kerede çalıştırmak için hafifçe değiştirilmiş.)

İlk regex maçları rakam olan bir olsun, böylece diğer rakamlar ile ayrılmış 0arasında herhangi bir yerde geçerli girişler için ve 1ve 9geçersiz girişler için (nedeniyle bir açgözlülükle için .+, biz fazla alamayan n-1için maçları nfarklı basamak).

Sonucun doğruluğunu tersine çevirmek için geçerli girdiler ve geçersiz olanlar için 0olan s sayısını sayarız .10

Java, 161 156 bayt

Çünkü Java ...

Utanmadan çalmak gelen regex ödünç Bu cevap ben diziler ve matematik manipülasyon ile bu yapmaya çalışıyor başladı çünkü ancak iğrenç karmaşık var ve regex iyi olarak bu sorun için herhangi bir araçtır.

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

Ungolfed:

import java.util.regex.*;

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

Mantıklı bir Java kullanıcısı gibi ortaya çıktı:

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 bayt

{IeMrz8

Test Takımı .

Ruby, 23 bayt

Anonim işlev Bir dizeyi kabul eder. Regex strat.

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

Regex dağılımı

/(.)(?!\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

!~ Dize içinde regex eşleşmesi yoksa, return true yoksa ve aksi takdirde return anlamına gelir false.

Mathematica, 26 bayt

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

Matl, 13 11 bayt

u"G@=fd2<vA

Luis Mendo'ya teşekkürlerİki baytı kurtardığı !

Çevrimiçi Deneyin!

açıklama

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

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

Kullanım örneği: ((==)<*>nub).map head.group $ "44999911" -> True.

Noktasız sürüm:

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 bayt

-:]/:i.~

Şununla test et J.Js sınayın .

Nasıl çalışır

-:]/: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 bayt

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

C #, 119 bayt

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

Ungolfed

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 bayt

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

Her ne sebeple olursa olsun, sortbir ip issortedalmaz , ama ...

Faktör, 22 bayt

[ dup natural-sort = ]

Teneke ne diyor yok. Anonim bir işlev olarak, bunu yapmalısınız callveya a : word ;.

Lua, 107 94 85 Bayt

@LeakyNun sayesinde 13 bayt kurtarıldı

En azından Java'yı yeniyor: D. Lua dizeleri manipüle etmekte berbat ama bence yeterince iyi :).

Bu bir komut satırı argümanı olarak girdi alır ve çıkışlar 1truthy durumlar için ve falsefalsy olanlar için. Şimdi çıkış kodunu kullanarak çıktı verir. Truthy için 0 kodundan, falsy için 1 kodundan çık

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

Ungolfed

Dikkatli olun, iki sihirli değişken var ..., ilki programın argümanını içeriyor, ikincisi anonim işlevde yerel ve parametrelerini içeriyor

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 bayt

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

Veya eşdeğer olarak:

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

Golf devam ediyor.

Test durumlarını doğrulayın

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 bayt

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

eski strateji 131 bayt

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

ilk golf tamam mı sanırım

C, 74 73 71 bayt

Tıraş tek @xsot üç bayt sayesinde!

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

Haskell, 37 bayt

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

Luis Mendo'nun MATL cevabıyla aynı yaklaşımı kullanır : her giriş için eşit indeksleyen bir vektör oluşturur ve sonucun azalan düzende sıralandığını kontrol eder.

(<$>l).(==)<$>lkısa versiyonudur [map(==a)l|a<-l]. Fonksiyon (<$>l).(==)alır aiçin map(==a)lüzerine eşleştirilir l.

scanl1 minlyalnızca ltersine sıralanırsa orijinaline eşit olan kümülatif en küçük öğelerini alır . (==)=<<Bu işlemin altında listenin gerçekten değişmez olup olmadığını kontrol eder.

Farklı bir özyinelemeli strateji 40 bayt verdi:

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

Bu, ilk iki öğenin bitişik bir bloğun parçası olarak eşit olduğu durumlar hariç, ilk öğesinin geri kalan kısmında görünüp görünmediğini görmek için her bir son eki denetler.

Raket, 53 bayt

Aptal, basit versiyon.

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

Raket, 86 bayt

İşte bunu yapmak için daha etkili yöntemler hakkında @ xnor'ın yorumunu yapan versiyon .

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

Tamam, bu aslında hesaplamanın ağırlığını sortişlevden işlevine değiştirebilir regexp-replace, ancak ilginç bir çözümdü. Temel olarak, önce yinelenen karakterlerin çalışmalarını kaldırır ( buraya bakın ), sonra kalan uzunluk-1 çalışmalarının sıralı bir şekilde olup olmadığını test eder.

Perl 5, 20 bayt

19, artı -peyerine 1 -e.

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

Wolfram Dili (Mathematica) , 18 bayt

Gather@#==Split@#&

Çevrimiçi deneyin!

Gatherbir listeyi aynı elemanların alt listelerine toplar ve Splitbir listeyi ardışık aynı elemanların alt listelerine böler. Aynı sonucu verir ve eğer sadece her bir değer bitişik bir blokta belirirse.

Dışbükey, 17 bayt

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

Çevrimiçi deneyin!

Japt , 9 bayt

ò¦ mÌ
eUâ

Dene

açıklama

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

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

Çevrimiçi deneyin!