ให้รายการตัวเลข 1 ถึง 9 เอาท์พุทว่าแต่ละหลักจะถูกจัดกลุ่มเข้าด้วยกันเป็นบล็อกที่ต่อเนื่องกันหรือไม่ กล่าวอีกนัยหนึ่งไม่มีสองหลักเดียวกันจะถูกคั่นด้วยตัวเลขที่แตกต่างกัน ไม่เป็นไรถ้าตัวเลขไม่ปรากฏขึ้นเลย ไบต์ที่น้อยที่สุดจะเป็นผู้ชนะ

อินพุต:รายการที่ไม่ว่างของตัวเลข 1 ถึง 9 ซึ่งอาจเป็นตัวเลขทศนิยมสตริงรายการหรือลำดับที่คล้ายกัน

เอาท์พุท:ค่าความจริงที่สอดคล้องกันหากตัวเลขทั้งหมดจะถูกจัดกลุ่มในบล็อกที่ต่อเนื่องกันและค่าFalsey ที่สอดคล้องกันหากพวกเขาไม่ใช่

กรณีจริง:

3
51
44999911
123456789
222222222222222222222

กรณีเท็จ:

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 ไบต์

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

สิ่งนี้คาดว่ารายการของตัวเลขหรือสายเดี่ยวเป็นอาร์กิวเมนต์ ทดสอบบนIdeone

ขอบคุณ @xsot สำหรับการเล่นกอล์ฟ 4 ไบต์!

ขอบคุณ @immibis สำหรับการเล่นกอล์ฟ 1 ไบต์!

JavaScript (ES6), 27 ไบต์

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

ใช้ lookahead เชิงลบเพื่อค้นหาตัวเลขสองหลักที่ไม่ต่อเนื่องกัน หากมีอย่างน้อยสองหลักนั้นก็สามารถเลือกได้เพื่อให้ตัวเลขตัวแรกนำหน้าตัวเลขที่แตกต่างกัน

05AB1E , 4 ไบต์

รหัส:

Ô¹ÙQ

คำอธิบาย:

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

ลองออนไลน์!

เยลลี่ 5 ไบต์

ĠIFPỊ

ลองออนไลน์!

มันทำงานอย่างไร

Ġ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 ไบต์

1 ไบต์ขอบคุณ FryAmTheEggman

SIxLQ

แรงบันดาลใจจากการแก้ปัญหางูหลามที่นี่

ชุดทดสอบ

คำอธิบาย:

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 ไบต์

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

นี่คือฟังก์ชั่นที่รับอินพุตเป็นเวกเตอร์ของตัวเลขและส่งกลับบูลีน หากต้องการเรียกใช้กำหนดค่าให้กับตัวแปร

ไม่ใช่สั้นที่สุด แต่ฉันคิดว่ามันเป็นวิธีที่สนุก เรารันความยาวเข้ารหัสอินพุตและแยกค่า หากรายการค่ามีการซ้ำกันแล้วส่งกลับFALSEมิฉะนั้นกลับTRUEมิฉะนั้นกลับ

ตรวจสอบกรณีทดสอบทั้งหมดออนไลน์

บันทึกไว้ 20 ไบต์ด้วย MickyT, 3 ขอบคุณ Albert Masclans และ 5 ขอบคุณ mnel!

MATL , 8 ไบต์

t!=tXSP=

เอาท์พุทเป็นอาร์เรย์ที่มีเพียงคนเดียวสำหรับความจริงหรืออาร์เรย์ที่มีอย่างน้อยหนึ่งศูนย์สำหรับความเท็จ

ลองออนไลน์!

คำอธิบาย

พิจารณาอินพุต22331ซึ่งเป็นไปตามเงื่อนไข การทดสอบว่าอักขระแต่ละตัวมีค่าเท่ากันหรือไม่ให้อาร์เรย์ 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

ผลสุดท้ายควรจะ truthy ถ้าแถวของอาร์เรย์ (ถือว่าเป็นอะตอม) อยู่ใน (พจนานุกรม) การสั่งซื้อลดลง สำหรับการเปรียบเทียบอินพุต22321ให้อาร์เรย์

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

ซึ่งแถวจะไม่เรียงลำดับ

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

เรติน่า 17 ไบต์

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

ลองออนไลน์! (แก้ไขเล็กน้อยเพื่อเรียกใช้กรณีทดสอบทั้งหมดในครั้งเดียว)

regex แรกตรงกับตัวเลขที่จะแยกจากกันโดยตัวเลขอื่น ๆ เพื่อให้เราได้รับ0ปัจจัยการผลิตที่ถูกต้องและที่ใดก็ได้ระหว่าง1และ9ปัจจัยการผลิตที่ไม่ถูกต้อง (เนื่องจากความตะกละของที่.+เราไม่สามารถได้รับมากกว่าn-1ตรงnตัวเลขที่แตกต่างกัน)

เพื่อย้อนกลับความจริงของผลลัพธ์เราจะนับจำนวน0s ซึ่ง1ใช้สำหรับอินพุตที่ถูกต้องและ0สำหรับรายการที่ไม่ถูกต้อง

Java, 161 156 ไบต์

เพราะจาวา ...

การขโมย regex จากคำตอบนี้อย่างไม่มีเลศนัยเพราะฉันเริ่มพยายามทำสิ่งนี้ด้วยอาร์เรย์และการจัดการทางคณิตศาสตร์ แต่มันซับซ้อนอย่างน่าเกรงขามและ regex ก็เป็นเครื่องมือที่ดีสำหรับปัญหานี้

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

ออกมาเหมือนคน 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 ไบต์

{IeMrz8

Test Suite

ทับทิมขนาด 23 ไบต์

ฟังก์ชั่นไม่ระบุชื่อ ยอมรับสตริง Regex strat

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

การแยก 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

!~หมายความว่าถ้ามีการแข่งขันของ regex ภายในสตริงกลับไม่มีtrueและอื่น ๆ falseกลับมา

Mathematica ขนาด 26 ไบต์

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

MATL, 13 11 ไบต์

u"G@=fd2<vA

ขอบคุณLuis Mendoสำหรับการบันทึกสองไบต์!

ลองออนไลน์!

คำอธิบาย

        % 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 ไบต์

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

ตัวอย่างการใช้: ((==)<*>nub).map head.group $ "44999911"->True ->

รุ่นที่ไม่ใช่พอยต์:

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 ไบต์

-:]/:i.~

ทดสอบด้วยJ.js

มันทำงานอย่างไร

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

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

C#, 119 bytes

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 bytes

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

For whatever reason, sort does not take a string, but issorted does...

Factor, 22 bytes

[ dup natural-sort = ]

Does what it says on the tin. As an anonymouse function, you should call this, or make it a : word ;.

Lua, 107 94 85 Bytes

13 bytes saved thanks to @LeakyNun

At least, it beats Java :D. Lua sucks at manipulating strings, but I think it is good enough :).

It takes its input as a command-line argument, and outputs 1 for truthy cases and false for falsy ones. Now outputs using its exit code. Exit code 0 for truthy, and 1 for falsy

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

Ungolfed

Be care, there's two magic-variables called ..., the first one contains the argument of the program, the second one is local to the anonymous function and contains its parameters

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 bytes

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

Or, equivalently:

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

Golfing in progress.

Verify test cases

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 bytes

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

old strategy 131 bytes

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

first golf i think i did ok in

C, 74 73 71 bytes

Shaved one three byte thanks to @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!