Đưa ra một danh sách các chữ số từ 1 đến 9, xuất ra cho dù mỗi chữ số được nhóm lại thành một khối liền kề. Nói cách khác, không có hai chữ số giống nhau được phân tách bằng các chữ số khác nhau. Không sao nếu một chữ số hoàn toàn không xuất hiện. Ít byte nhất sẽ thắng.

Đầu vào: Một danh sách không trống các chữ số từ 1 đến 9. Đây có thể là một số thập phân, chuỗi, danh sách hoặc chuỗi tương tự.

Đầu ra: Một giá trị Truthy nhất quán nếu tất cả các chữ số được nhóm trong các khối liền kề và giá trị Falsey nhất quán nếu không.

Trường hợp đúng:

3
51
44999911
123456789
222222222222222222222

Trường hợp sai:

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 byte

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

Điều này mong đợi một danh sách các chữ số hoặc chuỗi đơn lẻ làm đối số. Kiểm tra nó trên Ideone .

Cảm ơn @xsot vì đã chơi golf 4 byte!

Cảm ơn @immibis vì đã chơi golf 1 byte!

JavaScript (ES6), 27 byte

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

Sử dụng cái nhìn tiêu cực để tìm kiếm hai chữ số không liền nhau. Nếu có ít nhất hai chữ số như vậy tồn tại, thì chúng có thể được chọn sao cho chữ số đầu tiên đứng trước một chữ số khác nhau.

05AB1E , 4 byte

Mã số:

Ô¹ÙQ

Giải trình:

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

Sử dụng mã hóa CP-1252 .

Hãy thử trực tuyến!

Thạch , 5 byte

ĠIFPỊ

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

Bình thường, 6 5 byte

1 byte nhờ FryAmTheEggman

SIxLQ

Lấy cảm hứng từ giải pháp Python tại đây .

Bộ kiểm tra

Giải trình:

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 byte

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

Đây là một hàm chấp nhận đầu vào dưới dạng một vectơ các chữ số và trả về một boolean. Để gọi nó, gán nó cho một biến.

Không phải là ngắn nhất nhưng tôi nghĩ đó là một cách tiếp cận thú vị. Chúng tôi chạy chiều dài mã hóa đầu vào và trích xuất các giá trị. Nếu danh sách các giá trị chứa trùng lặp thì trả về FALSE, nếu không thì trả về TRUE.

Xác nhận tất cả các trường hợp kiểm tra trực tuyến

Đã lưu 20 byte nhờ MickyT, 3 nhờ Albert Masclans và 5 nhờ mnel!

MATL , 8 byte

t!=tXSP=

Đầu ra là một mảng chỉ chứa những mảng cho sự thật hoặc một mảng chứa ít nhất một số 0 cho falsey.

Hãy thử trực tuyến!

Giải trình

Xem xét đầu vào 22331, thỏa mãn điều kiện. Kiểm tra xem mỗi ký tự có bằng nhau không cho mảng 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

Kết quả cuối cùng phải là sự thật nếu các hàng của mảng đó (được coi là nguyên tử) theo thứ tự giảm dần (từ điển) . Để so sánh, đầu vào 22321cho mảng

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

trong đó các hàng không được sắp xếp.

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

Võng mạc , 17 byte

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

Hãy thử trực tuyến! (Sửa đổi một chút để chạy tất cả các trường hợp thử nghiệm cùng một lúc.)

Regex đầu tiên khớp với các chữ số được phân tách bằng các chữ số khác, vì vậy chúng tôi nhận được một 0đầu vào hợp lệ và bất cứ nơi nào giữa 1và 9cho các đầu vào không hợp lệ (do sự tham lam của .+, chúng tôi không thể nhận được nhiều hơn so n-1với ncác chữ số khác nhau).

Để đảo ngược tính trung thực của kết quả, chúng tôi đếm số 0s, 1dành cho đầu vào hợp lệ và 0cho đầu vào không hợp lệ.

Java, 161 156 byte

Vì Java ...

Không biết xấu hổ Ăn cắp một cách đáng mượn regex từ câu trả lời này bởi vì tôi đã bắt đầu thử làm điều này với các mảng và thao tác toán học, nhưng nó cực kỳ phức tạp và regex là một công cụ tốt như bất kỳ vấn đề nào.

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

Ung dung:

import java.util.regex.*;

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

Nói ra như một người Java nhạy cảm:

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

Bình thường, 7 byte

{IeMrz8

Phòng thử nghiệm .

Ruby, 23 byte

Chức năng ẩn danh. Chấp nhận một chuỗi. Chiến lược Regex.

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

Sự cố 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

!~có nghĩa là nếu không có kết quả khớp nào của regex trong chuỗi, trả về truevà ngược lại false.

Toán học, 26 byte

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

MATL, 13 11 byte

u"G@=fd2<vA

Cảm ơn Luis Mendo vì đã tiết kiệm hai byte!

Hãy thử trực tuyến!

Giải trình

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

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

Ví dụ sử dụng: ((==)<*>nub).map head.group $ "44999911"-> True.

Một phiên bản không có điể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 byte

-:]/:i.~

Kiểm tra nó với J.js .

Làm thế nào nó hoạt động

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

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

C #, 119 byte

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

Bị đánh cắp

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 byte

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

Vì lý do nào, sortkhông lấy một chuỗi, nhưng issorted...

Yếu tố, 22 byte

[ dup natural-sort = ]

Liệu những gì nó nói trên tin. Là một hàm ẩn danh, bạn nên làm callđiều này hoặc làm cho nó một : word ;.

Lua, 107 94 85 byte

13 byte được lưu nhờ @LeakyNun

Ít nhất, nó đánh bại Java: D. Lua hút lúc thao túng các chuỗi, nhưng tôi nghĩ nó đủ tốt :).

Nó lấy đầu vào của nó làm đối số dòng lệnh và đầu ra 1cho các trường hợp trung thực và falsecho các trường hợp giả . Bây giờ đầu ra bằng cách sử dụng mã thoát của nó. Mã thoát 0 cho sự thật và 1 cho sai

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

Bị đánh cắp

Hãy cẩn thận, có hai biến ma thuật được gọi ..., biến thứ nhất chứa đối số của chương trình, biến thứ hai là cục bộ của hàm ẩn danh và chứa tham số của nó

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 byte

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

Hoặc, tương đương:

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

Chơi gôn trong tiến trình.

Xác nhận trường hợp kiểm tra

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 byte

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

chiến lược cũ 131 byte

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

golf đầu tiên tôi nghĩ rằng tôi đã làm tốt trong

C, 74 73 71 byte

Cạo một ba byte nhờ @xsot!

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

Haskell, 37 byte

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

Sử dụng cách tiếp cận tương tự như câu trả lời MATL của Luis Mendo : tạo một vectơ cho mỗi mục nhập có chỉ số bằng nhau và kiểm tra xem kết quả được sắp xếp theo thứ tự giảm dần.

(<$>l).(==)<$>llà phiên bản ngắn hơn của [map(==a)l|a<-l]. Các chức năng (<$>l).(==)mà được đưa avào map(==a)lđược ánh xạ lên l.

scanl1 minlấy các phần tử nhỏ nhất tích lũy của l, chỉ bằng với bản gốc nếu lđược sắp xếp ngược lại. (==)=<<kiểm tra xem danh sách có thực sự bất biến trong hoạt động này không.

Một chiến lược đệ quy khác đã cho 40 byte:

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

Điều này kiểm tra từng hậu tố để xem nếu phần tử đầu tiên của nó không xuất hiện trong phần còn lại, xin lỗi các trường hợp trong đó hai phần tử đầu tiên bằng nhau như là một phần của khối liền kề.

Vợt, 53 byte

Phiên bản câm, đơn giản.

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

Ung dung:

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

Vợt, 86 byte

Đây là phiên bản triển khai nhận xét của @ xnor về những cách hiệu quả hơn để làm điều này.

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

Ung dung:

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

Được rồi, điều này thực sự có thể chỉ chuyển trọng số tính toán từ sorthàm sang regexp-replace, nhưng đó là một giải pháp thú vị. Về cơ bản, nó loại bỏ các lần chạy của các ký tự trùng lặp trước ( xem tại đây ), sau đó kiểm tra xem các lần chạy có độ dài 1 còn lại có theo kiểu được sắp xếp hay không.

Perl 5, 20 byte

19, cộng 1 cho -pethay vì -e.

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

Ngôn ngữ Wolfram (Mathicala) , 18 byte

Gather@#==Split@#&

Hãy thử trực tuyến!

Gathertập hợp một danh sách thành danh sách con của các yếu tố giống hệt nhau và Splitchia danh sách thành danh sách con của các yếu tố giống hệt nhau liên tiếp. Chúng cho cùng một kết quả khi và chỉ khi mỗi giá trị chỉ xuất hiện trong một khối liền kề.

Lồi, 17 byte

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

Hãy thử trực tuyến!

Japt , 9 byte

ò¦ mÌ
eUâ

Thử nó

Giải trình

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

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

Hãy thử trực tuyến!