Дано список цифр від 1 до 9, виведіть, чи згрупується кожна цифра як один суміжний блок. Іншими словами, жодна дві однакові цифри не розділяються різними цифрами. Добре, якщо цифра взагалі не відображається. Виграє найменше байт.

Введення: Непорожній список цифр від 1 до 9. Це може бути як десяткове число, рядок, список або подібна послідовність.

Вихід: Послідовне значення Truthy, якщо всі цифри згруповані в суміжні блоки, і послідовне значення Фальсі, якщо вони не є.

Справжні випадки:

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)

Використовує негативну пошукову головку для пошуку двох безперервних цифр. Якщо принаймні дві такі цифри існують, то їх можна вибрати таким чином, щоб перша цифра передувала іншій цифрі.

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

Натхненні рішенням Python тут .

Тестовий набір

Пояснення:

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 подякам Альберту Масклану та 5 завдяки mnel!

MATL , 8 байт

t!=tXSP=

Вихід - це масив, що містить лише одиниці для truthy, або масив, що містить принаймні один нуль для фальси.

Спробуйте в Інтернеті!

Пояснення

Розглянемо вхід 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

Кінцевий результат повинен бути правдоподібним, якщо рядки цього масиву (вважаються атомними) знаходяться в (лексикографічному) порядку зменшення . Для порівняння, введення 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

Спробуйте в Інтернеті! (Трохи модифікований для запуску всіх тестових випадків одночасно.)

Перші матчі регулярного виразу цифра , які будуть розділені іншими цифрами, тому ми отримуємо 0для дійсних входів і в будь-якому місці між 1і 9недійсні входи (з - за жадібності з .+, ми не можемо отримати більше , ніж n-1сірників для nрізних цифр).

Для інвертування істинності результату підраховуємо кількість 0s, що відповідає 1дійсним вводу та 0недійсним.

Java, 161 156 байт

Тому що Java ...

Безсоромно красти запозичення регексу з цієї відповіді, тому що я почав намагатися це робити з масивами та математичними маніпуляціями, але це стало жахливо складним, і регулярний вираз є настільки ж хорошим інструментом, як і будь-яка проблема для цієї проблеми.

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

Безголівки:

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

Тестовий сюїт .

Рубін, 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

!~означає, якщо в рядку немає збігів регулярного вираження, повернути trueі іншим чином повернути false.

Математика, 26 байт

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

MATL, 13 11 байт

u"G@=fd2<vA

Дякуємо Луїсу Мендо за збереження двох байтів!

Спробуйте в Інтернеті!

Пояснення

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

Пітон, 56 55 байт

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

C #, 119 байт

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

Безумовно

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

    return true;
}

Джулія, 35 байт

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

З будь-якої причини sortне бере струну, але issortedробить ...

Фактор, 22 байти

[ dup natural-sort = ]

Робить те, що написано на жерсті. Як функція анонімної миші, ви повинні callце зробити або зробити це : word ;.

Луа, 107 94 85 байт

13 байт збережено завдяки @LeakyNun

Принаймні, це б'є Java: D. Луа смокче маніпулювати струнами, але я думаю, що це досить добре :).

Він бере свій вклад як аргумент командного рядка, а виводить 1для правдивих випадків і falseдля хибних. Тепер виводить, використовуючи свій вихідний код. Вийдіть з коду 0 для трити, а 1 - для помилки

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

Безумовно

Будьте обережні, є дві магічні змінні, які називаються ..., перша містить аргумент програми, друга - локальна анонімній функції та містить її параметри

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 байт

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

Або, рівнозначно:

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

Гольф в процесі.

Перевірка тестових випадків

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 байт

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

стара стратегія 131 байт

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

Перший гольф, я думаю, я зробив нормально

C, 74 73 71 байт

Поголив один три байти завдяки @xsot!

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

Хаскелл, 37 байт

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

Використовується той самий підхід, що і у відповіді MATL Луїса Мендо : створюється вектор для кожного запису, індекси якого дорівнюють йому, і перевіряє, чи результат сортується у порядку зменшення.

(<$>l).(==)<$>l- скорочена версія [map(==a)l|a<-l]. Функція, (<$>l).(==)яка бере aна себе map(==a)l, відображається на l.

scanl1 minприймає найменші найменші елементи l, які дорівнюють оригіналу лише за умови lзворотного сортування. (==)=<<перевіряє, чи список справді інваріантний в рамках цієї операції.

Інша рекурсивна стратегія дала 40 байт:

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

Це перевіряє кожен суфікс, щоб перевірити, чи не з’являється його перший елемент у решті, виправдовуючи випадки, коли перші два елементи рівні як частина суміжного блоку.

Ракетка, 53 байти

Тупий, простий варіант.

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

Безголівки:

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

Ракетка, 86 байт

Ось версія, що реалізує коментар @ xnor щодо більш ефективних способів зробити це.

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

Безголівки:

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

Гаразд, це може просто перенести вагу обчислень з sortфункції на regexp-replace, але це було цікавим рішенням. В основному він спочатку видаляє запуски дублікатів символів ( див. Тут ), а потім перевіряє, чи решта виконаних завдань довжиною-1 впорядковано.

Perl 5, 20 байт

19, плюс 1 для -peзамість -e.

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

Мова Вольфрама (Mathematica) , 18 байт

Gather@#==Split@#&

Спробуйте в Інтернеті!

Gatherзбирає список у підсписи однакових елементів і Splitрозбиває список на підсписи послідовних однакових елементів. Вони дають однаковий результат тоді і лише тоді, коли кожне значення відображається лише в одному суміжному блоці.

Опукла, 17 байт

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

Спробуйте в Інтернеті!

Japt , 9 байт

ò¦ mÌ
eUâ

Спробуй це

Пояснення

          :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 байт

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

Спробуйте в Інтернеті!