Wkład

Twoje dane wejściowe to lista liczb jednocyfrowych w dowolnym rozsądnym formacie, w tym ciąg cyfr. Dane wejściowe nie będą puste.

Wydajność

Twój wynik będzie listą wejściową, ale z każdym odwróconym maksymalnym przebiegiem niezerowych cyfr.

Przykład

Rozważ dane wejściowe

95883007414830
<--->  <---->

gdzie niezerowe przebiegi zostały oznaczone strzałkami. Odwracając każdy z tych przebiegów, otrzymujemy dane wyjściowe

38859003841470

Zasady i punktacja

Możesz napisać pełny program lub funkcję. Wygrywa najniższa liczba bajtów, a standardowe luki są niedozwolone.

Wyzwanie to jest powiązane, ale o wiele bardziej złożone, ponieważ obejmuje dodatkowe przetwarzanie ciągów.

Przypadki testowe

4 -> 4
00 -> 00
123 -> 321
0010 -> 0010
12000345 -> 21000543
18161604 -> 61618104
95883007414830 -> 38859003841470
010230456078912 -> 010320654021987
357509902003550 -> 575309902005530
2492882377675046 -> 5767732882942064
03026302053000357099 -> 03036202035000753099

Tabela liderów

Oto fragment kodu, aby wygenerować tabelę wyników i listę zwycięzców według języka. Aby upewnić się, że twoja odpowiedź się pojawi, zacznij od nagłówka formularza

## Language, N bytes

Możesz zachować stare wyniki w nagłówku, używając tagów przekreślenia: <s>57</s>pojawi się jako 57 .

/* Configuration */

var QUESTION_ID = 78510; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 32014; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(-?\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    if (! /<a/.test(lang)) lang = '<i>' + lang + '</i>';
    lang = jQuery(lang).text().toLowerCase();

    languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link, uniq: lang};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.uniq > b.uniq) return 1;
    if (a.uniq < b.uniq) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

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/Sites/codegolf/all.css?v=617d0685f6f3">
<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><a href="{{LINK}}">{{SIZE}}</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td><a href="{{LINK}}">{{SIZE}}</a></td></tr>
  </tbody>
</table>

Pyth, 8

j0_Mcz\0

Podziel na zera, odwróć i połącz ponownie na zerach.

Pakiet testowy

IPOS , 5 bajtów

'0!r%

%dzieli ciąg wejściowy na zera, stosuje polecenie r(wstecz) do każdego podłańcucha i łączy wynik z powrotem na zerach.

Siatkówka , 15 bajtów

S`0
O%^$`.

¶
0

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

Wyjaśnienie

S`0

Podziel dane wejściowe na 0s, to znaczy umieść każdy (możliwie pusty) ciąg niezerowych cyfr we własnej linii.

O%^$`.

Spowoduje to odwrócenie każdej linii o:

• Stosując scenę do każdej linii indywidualnie za pomocą %.
• Dopasowywanie każdej postaci indywidualnie ..
• Sortowanie według wyniku podstawienia ( $) pustym łańcuchem (pusta druga linia). To znaczy, że w ogóle się nie sortuje, ponieważ wszystkie wartości sortowania są identyczne.
• Następnie odwraca kolejność posortowanych znaków.

Wreszcie:

¶
0

Przekręć linie z powrotem na 0s.

05AB1E , 6 bajtów

Kod:

0¡€R0ý

Wyjaśnienie:

0¡      # Split on zeros
  €R    # For each item in the array, reverse it
    0ý  # Join by zeros

Wykorzystuje kodowanie CP-1252 . Wypróbuj online! .

Julia, 30 bajtów

s->replace(s,r"[^0]+",reverse)

Jest to anonimowa funkcja, która przyjmuje ciąg i zwraca ciąg. Aby go wywołać, przypisz go do zmiennej.

replaceFunkcja umożliwia zastąpienie mecze wyrażenia regularnego z wynikiem funkcji przyłożonego do każdego meczu. W tym przypadku możemy uzyskać niezerowe użycie [^0]+i zastąpienie tych przebiegów wynikiem reversefunkcji zastosowanej do dopasowanego tekstu.

Sprawdź wszystkie przypadki testowe online!

Siatkówka oka, 25 24

O^$#`[^0](?=(.*?0)*)
$#1

Wypróbuj online

Zapisano 1 bajt dzięki Martinowi!

Sortuj niezerowe cyfry według liczby zer następujących po tej cyfrze, w odwrotnej kolejności.

Zobacz rozwiązanie Martina dla sprytnego wykorzystania trybu per-line, aby uzyskać krótszy program!

Jolf, 8 bajtów

RΜGi0λ_0

Wypróbuj tutaj!

Wyjaśnienie

RΜGi0λ_0
  Gi0     split input on zeroes
 Μ   λ_   map over reversal as a lambda
R      0  join by zeroes

Wyjaśnienie kodu wygląda trochę jak lambda, jeśli zmrużysz oczy.

Odpowiednik 8-bajtowej odpowiedzi:

RΜGi0΅O0

To samo, ale ΅Ozamiast tego używa (Mirror Mirror lambda).

Ruby, 29 bajtów

->x{x.gsub /[^0]*/,&:reverse}

Python, 58 50 bajtów

lambda x:"0".join([n[::-1] for n in x.split("0")])

Pobiera ciąg x i dzieli na zera i odwraca każdy element w podziale, dodaje zero i zwraca ten minus ostatnie zero.

Mathematica, 30 bajtów

Join@@Reverse/@#~SplitBy~Sign&

np. Join@@Reverse/@#~SplitBy~Sign&[{1,2,3,0,0,5,9,0}]={3, 2, 1, 0, 0, 9, 5, 0}

PowerShell v2 +, 45 bajtów

($args-split0|%{-join$_[$_.length..0]})-join0

Nadużywanie niejawnego castingu, jakby nie było jutra. Prawdopodobnie nie może być znacznie krótszy, ponieważ nie ma wbudowanej funkcji cofania, która byłaby krótsza niż ta sztuczka indeksowania.

Wyjaśnienie

Przykładem tego, jak to działa - załóżmy, że 123045był to wkład $args. Po -splitON 0rurociąg będzie zawierać tablicę (123,45). Pierwsza pętla z |%{...}ma bieżący element $_równy 123, który jest następnie domyślnie rzutowany jako ciąg, a następnie odwracany za pomocą []indeksowania. To sprawia, że ('3','2','1')jest to tablica znaków. Pętla -joinumieszcza to z powrotem w łańcuch "321"i pozostawia w rurociągu. Kolejna (ostatnia) iteracja pętli odwraca wejście do "54". Więc teraz nasz rurociąg jest"321" , "54". Jest on enkapsulowany w parens, ()więc jest przekształcany w tablicę i ponownie -joinedytowany wraz z zerami, aby uzyskać wynikowy ciąg wyjściowy"321054". Pozostaje to w potoku, a dane wyjściowe do konsoli są niejawne.

Jeśli na oryginalnym wejściu znajdują się kolejne zera, tablica zostanie zapełniona elementami zerowymi, więc na wyjściu jest poprawna liczba zer. Na przykład 1230045-split0zmienia się w (123,,45)i wszystko działa jak wyżej.

Galaretka, 5 bajtów

ṣ0Uj0

Wypróbuj online!

Współczynnik, 35 bajtów

Pokonaj Pyfona i Clojure, boja!

[ "0"split [ reverse ] map "0"join ]

Ta anonimowa funkcja jest dosłownym tłumaczeniem tej odpowiedzi w języku Python .

To bardzo proste, wystarczy podzielić ciąg na zera, odwrócić każdy element wynikowej tablicy i połączyć wszystkie elementy (w tym ciągi zerowej długości) "0".

Oto przykład jego działania we wszystkich przypadkach testowych:

IN: scratchpad auto-use {
        "4"
        "00"
        "123"
        "0010"
        "12000345"
        "18161604"
        "95883007414830"
        "010230456078912"
        "357509902003550"
        "2492882377675046"
        "03026302053000357099"
        }
        [ 
          "0" split [ reverse ] map "0" join
        ]
        map .

{
    "4"
    "00"
    "321"
    "0010"
    "21000543"
    "61618104"
    "38859003841470"
    "010320654021987"
    "575309902005530"
    "5767732882942064"
    "03036202035000753099"
}

"00120"-> { "" "" "12" "" }-> { "" "" "21" "" }->"00210"

Haskell, 45 bajtów

r%(0:t)=r++0:[]%t
r%(h:t)=(h:r)%t
r%_=r
([]%)

Rekurencyjnie gromadzi odwróconą rporcję do tej pory , przygotowując ją po 0osiągnięciu a. Gdy pozostały ciąg jest pusty, również się rozładowuje r.

Pierwsze dwa powtarzają jakiś kod, ale nie znalazłem krótszego sposobu na ich połączenie (45 i 47 bajtów):

r%(h:t)|h<1=r++h:[]%t|1>0=(h:r)%t
r%_=r
([]%)

r%l|0:t<-l=r++0:[]%t|h:t<-l=(h:r)%t
r%_=r
([]%)

Pyke, 8 bajtów

\0cm_\0J

Wyjaśnienie:

\0c      -   input().split("0")
   m_    -  map(reversed, ^)
     \0J - "0".join(^)

Wypróbuj tutaj!

JavaScript (ES6), 50 49 bajtów

Wersja łańcuchowa:

s=>s.replace(/[^0]+/g,r=>[...r].reverse().join``)

Zapisano bajt dzięki @Kevin Lau!

Wersja tablicy (60 bajtów):

a=>a.map((n,i)=>n?a[z-i+[...a,0].indexOf(0,i)]:(z=i,0),z=-1)

J, 20 18 bajtów

0}:@;@(<@|.;.1)@,]

Dzięki Zgarbowi za pomoc w tym! Bierze listę rozdzieloną spacjami jako właściwy argument.

-2 bajty dzięki Zgarb!

Clojure / ClojureScript, 44 znaki

#(flatten(map reverse(partition-by pos? %)))

Takie samo rozwiązanie jak inne, tylko bardziej szczegółowe dzięki długim nazwom funkcji. Z tego powodu nie zamierzałem tego opublikować, ale bije inne odpowiedzi, więc dlaczego nie?

Działa na dowolnym typie sekwencji. W ClojureScript działa to również na ciągi, ponieważ ciągi są przetwarzalne jako listy znaków, które są tak naprawdę ciągami o długości 1, które zmuszają do liczb np pos?.

Haskell, 46 bajtów

import Data.Lists
(reverse=<<).split(oneOf"0")

Przykład użycia: (reverse=<<).split(oneOf"0") $ "0123004500678090"-> "0321005400876090".

Niestety splitfunkcja wymaga kosztownego importu. Podziel listę wejściową przy każdym 0, np. split(oneOf"0") "0120030"-> ["","0","12","0","","0","3","0",""], odwróć każdą porcję i konkatenuj w pojedynczy ciąg.

F #, 103 bajtów

let f x=x="";x.Split '0'|>Array.map(fun s->System.String(s|>Seq.toArray|>Array.rev))|>String.concat "0"

Java, 179 bajtów (z importem)

import java.util.*;static void r(String s){StringJoiner x= new StringJoiner("0");for(String a:s.split("0",s.length())){x.add(new StringBuilder(a).reverse());}System.out.print(x);}

Pobiera ciąg znaków i dzieli znaki na zero, a następnie dodaje je z powrotem, wywołując metodę add w klasie StringJoiner.

Oracle SQL 11.2, 131 123 bajtów

Nadużywanie funkcji XML.

SELECT LISTAGG(REVERSE(COLUMN_VALUE||''))WITHIN GROUP(ORDER BY rownum)FROM XMLTABLE(('"'||REPLACE(:1,'0','","0","')||'"'));

Perl, 22 bajty

W tym +1 dla -popcji:

s/[^0]+/reverse$&/eg

Jest to dość trywialna zmiana - przepraszam, że jestem tak nudna. Zauważ, że jeśli twoje wejście jest zakończone znakiem nowej linii (np. Używając perl -pe 's/[^0]+/reverse$&/eg' <<<21000543Bash), złapie nową linię cyframi - użyj echo -nlub, printfaby tego uniknąć. Alternatywnie, za koszt jednego dodatkowego bajtu, zmień klasę znaków na [1-9]i możesz podać wiele danych wejściowych, po jednym w wierszu.

C, 105 bajtów

#define x(o)for(p=s;*s&&'0'o*s;++s);for(r=s;r-->p;putchar(*r));
f(s,p,r)char*s,*p,*r;{x(^)x(==)*s&&f(s);}

Wywołaj fz listą cyfr jako ciąg zakończony znakiem NUL, a wydrukuje poprawne wyjście.

Nie golfił i wyjaśnił:

f(s,p,r)
char*s,*p,*r; // K&R style to avoid repeating `char`
{

    // x(^)x(==) expands to...

    // Find the next zero digit
    for(p = s; *s && '0' ^ *s; ++s)
        ;

    // Print that run backwards
    for(r = s; r-- > p; putchar(*r))
        ;

    // Find the next non-zero digit
    for(p = s; *s && '0' == *s; ++s)
        ;

    // Print that run backwards (no difference, it's all zeros)
    for(r = s; r-- > p; putchar(*r))
        ;

    // If there's more string, recurse
    *s && f(s);
}

Zobacz na żywo na Coliru

Perl 5, 52 bajty

Podprogram:

{$_=pop;y/0/ /;map$i.=reverse,split/\b/;$i=~y/ /0/r}

Właściwie 22 bajty

k"a%sa"%'0@s♂R'0j#pXdX

W rzeczywistości zauważyłem, że w poleceniu podziału występuje błąd - nie zachowuje on pustych podziałów. Aby obejść ten problem, otaczam ciąg wejściowy as przed wykonaniem podziału, odwrócenia i łączenia, a następnie usuwam as na końcu. Dane wejściowe są traktowane jako ciąg, dane wyjściowe to lista ciągów jednoznakowych.

Wypróbuj online

Wyjaśnienie:

k"a%sa"%'0@s♂R'0j#pXdX
k"a%sa"%                surround input with "a" characters
        '0@s            split on 0
            ♂R          reverse each piece
              '0j       join on 0
                 #pXdX  listify, remove first and last element (the "a"s)

C #, 131 bajtów ##

błędne rozwiązanie!

string j(string i){foreach(var s in i.Split('0'))if(s!="")i=i.Replace(s,new string(s.ToCharArray().Reverse().ToArray()));return i;}

bez golfa:

string j(string input)
    {

        string[] a = input.Split('0');

        foreach (string s in a)
        {
            if (s!="")
            input=input.Replace(s, new string(s.ToCharArray().Reverse().ToArray()));
        }

        return input;
    }

C #, 133 bajty

Grał w golfa

String m(String s){for(int i=0,p=i;i<s.Length;i++){if(s[i]=='0'){p=i+1;}else{s=s.Insert(p,s[i].ToString()).Remove(i+1,1);}}return s;}

Nie golfił

String m( String s ) {
    // i = Index on the String
    // p = Pointer of the last '0' found
    for (int i = 0, p = i; i < s.Length; i++) {
        if (s[ i ] == '0') {
            // Move the 'p' pointer to the index after this '0'
            p = i + 1;
        } else {
            // Insert the Char at the Index location to the Pointer location 
            //    and remove the one at the Index Location + 1,
            //    since the String was incremented by one char due to the 'Insert()'.
            s = s.Insert( p, s[ i ].ToString() )
                 .Remove( i + 1, 1 );
        }
    }

    return s;
}

Pełny kod

using System;
using System.Collections.Generic;

namespace Namespace {
    class Program {
        static void Main( String[] args ) {
            List<String> ls = new List<String>() {
                "4",
                "00",
                "123",
                "0010",
                "12000345",
                "18161604",
                "95883007414830",
                "010230456078912",
                "357509902003550",
                "2492882377675046",
                "03026302053000357099"
            };

            foreach (String s in ls) {
                String f = m( s );

                Console.WriteLine( String.Format( "{0,30}", s.Replace( "0", "0 " ) ) );
                Console.WriteLine( String.Format( "{0,30}", f.Replace( "0", "0 " ) ) );
                Console.WriteLine( "" );
            }

            Console.ReadLine();
        }

        static String m( String s ) {
            for (Int32 i = 0, p = i; i < s.Length; i++) {
                if (s[ i ] == '0') {
                    p = i + 1;
                } else {
                    s = s.Insert( p, s[ i ].ToString() ).Remove( i + 1, 1 );
                }
            }

            return s;
        }
    }
}

Java, 126

a->{String r="",t[]=a.split("0");for(String s:t){r+=new StringBuilder(s).reverse()+"0";}return r.substring(0, r.length()-1);}

Clojure, 37 bajtów

#(mapcat reverse(partition-by #{0}%))

Używa #{0}zamiast pos?(oszczędza 1 bajt łącząc się z %) i używa mapcatzamiast (flatten(map. Nadal dłużej niż czynnik .