Код Golf: Последовательность Морриса

Question

Код Golf: Последовательность Морриса

Вызов

самый короткий код по количеству символов, который выведет Последовательность Номеров Морриса. The Последовательность Номеров Морриса, также известный как смотрите-и-говорите последовательность - это последовательность чисел, которая начинается следующим образом:

1, 11, 21, 1211, 111221, 312211, ...

вы можете генерировать последовательность бесконечно (i.e, вам не нужно генерировать определенное число).

Ожидания Ввода/Вывода

программы не нужно принимать какие-либо входные данные (но бонусные баллы за прием ввода и тем самым предоставление возможности начать с любой произвольной начальной точки или числа). По крайней мере, ваша программа должна начинаться с 1.

выход, по крайней мере, предполагается последовательность:

Дополнительно

если вы собираетесь получить дополнительный кредит, вам нужно будет сделать что-то вроде этого:

$ morris 1
1
11
21
1211
111221
312211
...

$ morris 3
3
13
1113
3113
132113
...

48

code-golf language-agnostic rosetta-stone

автор: Vivin Paliath

30 ответов

автор: Nabb · Accepted Answer · 2010-10-13 16:26:42

GolfScript-41 (дополнительный кредит: 40)

1{.p`n+0:c:P;{:|P=c{c`P|:P!}if):c;}%~1}do
{~.p`n+0:c:P;{:|P=c{c`P|:P!}if):c;}%1}do

что?
Процедура получения следующего числа в последовательности: преобразовать текущее число в строку, добавить строку и перебирать символы. Для каждой цифры, если предыдущая цифра P то же самое, увеличьте счетчик c. В противном случае, добавьте c и P до следующего числа, затем обновите эти переменные. Новая строка, которую мы добавляем, позволяет последней группе цифр быть добавлено к следующему номеру.

точные детали можно получить, изучая документацию GolfScript. (Обратите внимание, что | используется в качестве переменной.)

автор: CiscoIPPhone · Accepted Answer · 2010-10-12 18:09:35

Хаскелл: 115 88 85

import List
m x=do a:b<-group x;show(length b+1)++[a]
main=mapM putStrLn$iterate m"1"

это бесконечная последовательность. Я знаю, что его можно улучшить - Я довольно новичок в Хаскелле.

бит короче, встраивание mapM и итерация:

import List
m(a:b)=show(length b+1)++[a]
f x=putStrLn x>>f(group x>>=m)
main=f"1"

автор: Bizangles · Accepted Answer · 2010-10-12 13:02:22

Perl (46 символов)

$_="1$/";s/(.)*/length($&)./eg while print

дополнительный кредит (52 символа)

$_=(pop||1).$/;s/(.)*/length($&)./eg while print

автор: Hasturkun · Accepted Answer · 2010-10-12 14:42:06

Perl, 46 символов

$_=1;s/(.)*/$&=~y!!!c./ge while print$_,$/

дополнительный кредит, 51 символов:

$_=pop||1;s/(.)*/$&=~y!!!c./ge while print$_,$/

автор: David Murdoch · Accepted Answer · 2010-10-18 18:34:36

на JavaScript 100 97

for(x=prompt();confirm(y=x);)for(x="";y;){for(c=0;y[c++]&&y[c]==y[0];);x+=c+y[0];y=y.substr(c--)}

позволяет прерывать последовательность (нажав "отмена"), поэтому мы не блокируем user-agent и не привязываем CPU. Он также позволяет начать с любого положительного целого числа (дополнительный кредит).

Живой Пример:http://jsbin.com/izeqo/2

автор: belisarius · Accepted Answer · 2010-10-12 14:48:39

Mathematica -62 53 50 символов - дополнительный кредит входит

Edit: 40 символов ... но справа налево :(

любопытно, если мы читаем последовательность справа налево (то есть 1,11,12,1121, ..), 40 символов достаточно

NestList[Flatten[Tally /@ Split@#] &, #2, #] &

это потому, что Tally генерирует список {elem, counter} !

Edit: 50 символов

NestList[Flatten@Reverse[Tally /@ Split@#, 3] &, #2, #] &

рассечение: (читать комментарии вверх)

NestList[               // 5-Recursively get the first N iterations
    Flatten@            // 4-Convert to one big list
       Reverse          // 3-Reverse to get {counter,element}
          [Tally /@     // 2-Count each run (generates {element,counter})
               Split@#, // 1-Split list in runs of equal elements
                 3] &,
                     #2,// Input param: Starting Number 
                     #] // Input param: Number of iterations

Edit: refactored

NestList[Flatten[{Length@#, #[[1]]} & /@ Split@#, 1] &, #2, #1] &

завершить редактирование ///

NestList[Flatten@Riffle[Length /@ (c = Split@#), First /@ c] &, #2, #1] &

пробелы не нужны / добавлены для ясности

Invoke with

%[NumberOfRuns,{Seed}]

мой первый раз, используя "Riffle", объединить {1,2,3} и {a,b,c} в {1,a,2,b,3, c} :)

автор: GeReV · Accepted Answer · 2010-10-13 01:45:32

вот моя попытка C# с помощью LINQ и первая попытка кода Golf:

C# -205 194 211 198 байт с дополнительным кредитом (включая шаблон c#)

using System.Linq;class C{static void Main(string[]a){var v=a[0];for(;;){var r="";while(v!=""){int i=v.TakeWhile(d=>d==v[0]).Count();r+=i;r+=v[0];v=v.Remove(0,i);}System.Console.WriteLine(r);v=r;}}}

читабельная версия:

static void Main(string[] args)
{
    string value = args[0];
    for (;;)
    {
        string result = "";
        while (value != "")
        {
            int i = value.TakeWhile(d => d == value[0]).Count();
            result += i;
            result += value[0];
            value = value.Remove(0, i);
        }
        Console.WriteLine(result);
        value = result;
    }
}

пример вывода:

автор: doublep · Accepted Answer · 2011-03-31 07:26:48

питон, 97 102 115

пробелы должны быть вкладки:

x='1'
while 1:
    print x;y=d=''
    for c in x+'_':
        if c!=d:
            if d:y+=`n`+d
            n,d=0,c
        n+=1
    x=y

например:

$ python morris.py | head
1
11
21
1211
111221
312211
13112221
1113213211
31131211131221
13211311123113112211

автор: Plutor · Accepted Answer · 2010-10-11 19:06:43

Perl, 67 символов

в том числе -l флаг.

sub f{$_=pop;print;my$n;$n.=$+[0].while(s/(.)*//);f($n)}f(1)

Perl, 72 символа с дополнительным кредитом

sub f{$_=pop;print;my$n;$n.=$+[0].while(s/(.)*//);f($n)}f(pop||1)

автор: gusbro · Accepted Answer · 2010-10-12 00:33:22

вот моя реализация (в прологе):

пролог с DCGs (174 симв.):

m(D):-write(D),nl,m(1,write(D),T,[nl|T],_).
m(C,D,T)-->[D],{succ(C,N)},!,m(N,D,T).
m(C,D,[G,D|T])-->[N],{G=write(C),G,D,(N=nl->(M-T-O=0-[N|R]-_,N);M-T-O=1-R-N)},!,m(M,O,R).

ванильное пролог, код гораздо более readeable (225 символов):

m(D):-
  ((D=1->write(D),nl);true),
  m([], [1,D]).

m([], [C,D|M]):-
  write(C), write(D),nl,
  reverse([D,C|M],[N|X]),
  !,
  m([N|X],[0,N]).
m([D|T], [C,D|M]):-
  succ(C,N),
  !,
  m(T,[N,D|M]).
m([Y|T],[C,D|M]):-
  write(C), write(D),
  !,
  m(T,[1,Y,D,C|M]).

для вывода последовательности Моррис : m (D). где D - 'начинать' цифра.

автор: Nakilon · Accepted Answer · 2010-10-13 08:48:24

Рубин - 52

s=?1;loop{puts s;s.gsub!(/(.)*/){"#{$&.size}"+}}

задача слишком проста и слишком perlish...

автор: Hasturkun · Accepted Answer · 2010-10-12 17:50:37

C, 128 символов

использует статический буфер, гарантированный для того чтобы причинить недостаток сегментации

main(){char*c,v[4096],*o,*b,d[4096]="1";for(;o=v,puts(d);strcpy(d,v))for(c=d;*c;o+=sprintf(o,"%d%c",c-b,*b))for(b=c;*++c==*b;);}

автор: supercat · Accepted Answer · 2010-10-11 22:47:24

вызовите строку "Morris-ish", если она содержит только цифры 1-3 и не содержит пробегов более трех цифр. Если начальная строка является Morris-ish, все строки, итеративно созданные из нее, также будут Morris-ish. Аналогично, если исходная строка не является Morris-ish, то никакая сгенерированная строка не будет Morris-ish, если числа больше десяти не рассматриваются как комбинации цифр (например, если 11111111111 рассматривается как сворачивание на три единицы, а не "одиннадцать" и один).

учитывая это наблюдение, каждая итерация, начинающаяся с семени Морриса, может быть выполнена как следующая последовательность операций поиска / замены:

111 -> CA
11 -> BA
1 -> AA
222 -> CB
22 -> BB
2 -> AB
333 -> CC
33 -> BC
3 -> AC
A -> 1
B -> 2
C -> 3

обратите внимание, что последовательность-это Моррис-иш перед вышеуказанной подстановкой второй символ каждой сгенерированной пары будет отличаться от второго символа предыдущей и следующей пар; таким образом, невозможно иметь более трех одинаковых символов в последовательности.

I интересно, сколько существует несвязных последовательностей Морриса?

автор: pdehaan · Accepted Answer · 2010-10-12 02:20:34

Perl (дополнительный кредит), 47 символов

$_=pop.$/;{print;s/(.)*/$&=~y|||c./ge;redo}

автор: Glenn Nelson · Accepted Answer · 2010-10-12 01:16:06

Java

моя первая попытка "код-гольф" я просто бросил это вместе во время части моего класса IB CS:

238 конденсированных

сгущенное:

String a="1",b="1",z;int i,c;while(true){System.out.println(b);for(c=0,i=0,b="",z=a.substring(0,1);i<a.length();i++){if(z.equals(a.substring(i,i+1)))c++;else{b+=Integer.toString(c)+z;z=a.substring(i,i+1);c=1;}}b+=Integer.toString(c)+z;a=b;}

правильно отформатирован:

    String a = "1", b = "1", z;
    int i, c;

    while (true) {      
      System.out.println(b);

      for (c = 0, i = 0, b = "", z = a.substring(0, 1); i < a.length(); i++) {
        if (z.equals(a.substring(i, i + 1))) c++;
        else {
          b += Integer.toString(c) + z;
          z = a.substring(i, i + 1);
          c = 1;
        }
      }

      b += Integer.toString(c) + z;
      a = b;
    }

автор: David · Accepted Answer · 2010-10-12 18:06:14

J, 44 символа с дополнительным кредитом

(([:,#;.1@{:,.{:#{.)@(,:0<1,[:|2-/\]))^:(<9)

к сожалению, это генерирует только 9 итераций, но количество итераций <9 можно настроить, чтобы быть чем угодно. Установка его в a: генерирует бесконечную последовательность, но, очевидно, это не может быть напечатано.

использование:

   (([:,#;.1@{:,.{:#{.)@(,:0<1,[:|2-/\]))^:(<9) 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 0 0 0 0 0 0 0 0 0 0 0 0
2 1 0 0 0 0 0 0 0 0 0 0 0 0
1 2 1 1 0 0 0 0 0 0 0 0 0 0
1 1 1 2 2 1 0 0 0 0 0 0 0 0
3 1 2 2 1 1 0 0 0 0 0 0 0 0
1 3 1 1 2 2 2 1 0 0 0 0 0 0
1 1 1 3 2 1 3 2 1 1 0 0 0 0
3 1 1 3 1 2 1 1 1 3 1 2 2 1

   (([:,#;.1@{:,.{:#{.)@(,:0<1,[:|2-/\]))^:(<11) 4
4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 1 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 3 2 1 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 3 1 2 2 1 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 1 1 3 1 1 2 2 2 1 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 3 2 1 1 3 2 1 3 2 2 1 1 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 3 1 2 2 1 1 3 1 2 1 1 1 3 2 2 2 1 1 4 0 0 0 0 0 0 0 0
3 1 1 3 1 1 2 2 2 1 1 3 1 1 1 2 3 1 1 3 3 2 2 1 1 4 0 0 0 0
1 3 2 1 1 3 2 1 3 2 2 1 1 3 3 1 1 2 1 3 2 1 2 3 2 2 2 1 1 4

автор: BalusC · Accepted Answer · 2010-10-13 00:04:41

Java-167 символов (с кредитом)

_{(122 без класса/основного шаблона)}

class M{public static void main(String[]a){for(String i=a[0],o="";;System.out.println(i=o),o="")for(String p:i.split("(?<=(.)(?!\1))"))o+=p.length()+""+p.charAt(0);}}

С новой строки:

class M{
 public static void main(String[]a){
  for(String i=a[0],o="";;System.out.println(i=o),o="")
   for(String p:i.split("(?<=(.)(?!\1))"))
    o+=p.length()+""+p.charAt(0);
 }
}

автор: Andreas Rejbrand · Accepted Answer · 2010-10-12 01:20:32

Delphi

Delphi-ужасный язык игры в гольф, но все же:

var i,n:Int32;s,t,k:string;u:char;label l;begin s:='1';l:writeln(s);t:='';u:=s[1
];n:=1;for i:=2to length(s)do if s[i]=u then inc(n)else begin str(n,k);t:=t+k+u;
u:=s[i];n:=1;end;str(n,k);t:=t+k+u;s:=t;goto l;end.

Это 211 байт (и он компилируется так, как он стоит).

автор: Harmen · Accepted Answer · 2010-10-12 18:19:52

PHP: 111

моя первая попытка когда-либо на код гольф, вполне доволен результатом.

for($x=1;;){echo$y=$x,"\n";for($x="";$y;){for($c=0;$y[$c++]&&$y[$c]==$y[0];);$x.=$c.$y[0];$y=substr($y,$c--);}}

выдает:

> php htdocs/golf.php
1
11
21
... (endless loop)

PHP с дополнительным кредитом: 118

for($x=$argv[1];;){echo$y=$x,"\n";for($x="";$y;){for($c=0;$y[$c++]&&$y[$c]==$y[0];);$x.=$c.$y[0];$y=substr($y,$c--);}}

выдает:

> php htdocs/golf.php 4
4
14
1114
3114
... (to infinity and beyond)

автор: John La Rooy · Accepted Answer · 2010-10-12 19:50:09

Python-98 символов

from itertools import *
L='1'
while 1:print L;L=''.join('%s'%len(list(y))+x for x,y in groupby(L))

106 символов для бонуса

from itertools import *
L=raw_input()
while 1:print L;L=''.join('%s'%len(list(y))+x for x,y in groupby(L))

автор: BoltClock · Accepted Answer · 2011-08-03 11:37:07

вот моя первая попытка в code golf, поэтому, пожалуйста, не будьте слишком жестоки ко мне!

PHP,128 122 112 байт с открывающего тега

~~122~~ ~~116~~ 106 байт без открытия тега и ведущих пробелов.

<?php for($a="1";!$c="";print"$a\n",$a=$c)for($j=0,$x=1;$a[$j];++$j)$a[$j]==$a[$j+1]?$x++:($c.=$x.$a[$j])&&$x=1;

(очень жаль, что я должен инициализировать $a как строка, хотя, стоит мне 2 дополнительных байта, иначе я не могу использовать индексную нотацию на он.)

выход

$ php morris.php
1
11
21
1211
111221
312211
...

PHP (дополнительный кредит),133 127 117 байт с открывающим тегом

~~127~~ ~~121~~ 111 байт без открытия <?php теги и пробелы.

<?php for($a=$argv[1];!$c="";print"$a\n",$a=$c)for($j=0,$x=1;$a[$j];++$j)$a[$j]==$a[$j+1]?$x++:($c.=$x.$a[$j])&&$x=1;

выход

$ php morris.php 3
3
13
1113
3113
132113
1113122113
...
^C
$ php morris.php 614
614
161114
11163114
3116132114
1321161113122114
1113122116311311222114
...

PHP (дополнительный кредит), ungolfed с открывающими и закрывающими тегами

<?php

for ($a = $argv[1]; !$c = ""; print "$a\n", $a = $c)
{
    for ($j = 0, $x = 1; $a[$j]; ++$j)
    {
        // NB: this was golfed using ternary and logical AND operators:
        // $a[$j] == $a[$j + 1] ? $x++ : ($c .= $x . $a[$j]) && $x = 1;
        if ($a[$j] == $a[$j + 1])
        {
            $x++;
        }
        else
        {
            $c .= $x . $a[$j];
            $x = 1;
        }
    }
}

?>

автор: Wok · Accepted Answer · 2010-10-11 19:04:45

В C++, 310 символов.

#include <iostream>
#include <list>
using namespace std;
int main(){list<int> l(1,1);cout<<1<<endl;while(1){list<int> t;for(list<int>::iterator i=l.begin();i!=l.end();){list<int>::iterator p=i;++i;while((i!=l.end())&&(*i==*p)){++i;}int c=distance(p,i);cout<<c<<*p;t.push_back(c);t.push_back(*p);}cout<<'\n';l=t;}}

правильными отступами:

#include <iostream>
#include <list>
using namespace std;

int main() {
    list <int> l(1,1);
    cout << 1 << endl;
    while(1) {
        list <int> t;
        for (list <int>::iterator i = l.begin(); i != l.end();) {
            const list <int>::iterator p = i;
            ++i;
            while ((i != l.end()) && (*i == *p)) {
                ++i;
            }
            int c = distance(p, i);
            cout << c << *p;
            t.push_back(c);
            t.push_back(*p);
        }
        cout << '\n';
        l = t;
    }
}

автор: vhallac · Accepted Answer · 2010-10-11 22:01:26

Python-117

мой python-fu не силен, поэтому я много гуглил для этого. :)

a='1'
while 1:
 print a
 a=''.join([`len(s)`+s[0]for s in''.join([x+' '*(x!=y)for x,y in zip(a,(2*a)[1:])]).split()])

идея состоит в том,чтобы использовать zip для создания списка (A[i], a[i+1]) Пар, используйте внутреннее понимание, чтобы вставить пробел, когда a[i]!=a[i+1], присоедините полученный список к строке и разделите на пробелы, используйте другое понимание в этом разделенном списке, чтобы заменить каждый элемент длиной выполнения элемента и первым символом и, наконец, присоединитесь, чтобы получить следующее значение в последовательность.

автор: cthom06 · Accepted Answer · 2010-10-12 12:28:26

C с дополнительным кредитом, 242 (или 184)

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#define s malloc(1<<20)
main(int z,char**v){char*j=s,*k=s;strcpy(k,*++v);for(;;){strcpy(j,k);z=1;*k=0;while(*j){if(*j-*++j)sprintf(k+strlen(k),"%d%c",z,*(j-1)),z=1;else++z;}puts(k);}}

вы можете сохранить еще ~60 символов, если вы опустите includes, gcc все равно будет компилироваться с предупреждениями.

$ ./a.out 11111111 | head
81
1811
111821
31181211
132118111221
1113122118312211
31131122211813112221
132113213221181113213211
111312211312111322211831131211131221
3113112221131112311332211813211311123113112211

автор: MarkisT · Accepted Answer · 2010-10-13 02:06:27

C#, 204 байта (256 с дополнительным кредитом)

моя первая попытка игры в гольф

static void Main(){var v="1";for(;;){Console.Write(v + "\n");var r=v.Aggregate("", (x, y) => x.LastOrDefault()==y?x.Remove(0, x.Length-2)+(int.Parse(x[x.Length-2].ToString())+1).ToString()+y:x+="1"+y);v=r;}}

читаемая версия, отличие от других в том, что я использую агрегатную функцию Linq

static void Main(){
    var value="1";
    for(;;)
    {
        Console.Write(value + "\n");
        var result = value.Aggregate("", (seed, character) => 
                        seed.LastOrDefault() == character ? 
                            seed.Remove(seed.Length-2) + (int.Parse(seed[seed.Length-2].ToString())+1).ToString() + character
                            : seed += "1" + character
                    );
        value = result;
    }
}

автор: lpetru · Accepted Answer · 2010-10-15 08:31:57

Общий Lisp -124 122 115 символов

(do((l'(1)(do(a r)((not l)r)(setf a(1+(mismatch(cdr l)l))r(,@r,a,(car l))l(nthcdr a l)))))((format t"~{~s~}~%"l)))

с форматированием:

(do ((l '(1) (do (a r) ((not l) r) (setf a (1+ (mismatch (cdr l) l))
                                         r `(,@r ,a ,(car l)) l (nthcdr a l)))))
    ((format t "~{~s~}~%" l)))

автор: Tony Lee · Accepted Answer · 2010-10-23 02:44:36

F# - 135

let rec m l=Seq.iter(printf "%i")l;printfn"";m(List.foldBack(fun x s->match s with|c::v::t when x=v->(c+1)::v::t|_->1::x::s)l [])
m[1]

Отформатированный Код

let rec m l=
    Seq.iter(printf "%i")l;printfn"";
    m (List.foldBack(fun x s->
        match s with
        |c::v::t when x=v->(c+1)::v::t
        |_->1::x::s) l [])
m[1]

все еще надеюсь, что я могу найти лучший способ распечатать список или использовать string/bigint вместо этого.

автор: user581149 · Accepted Answer · 2011-01-20 19:48:35

PHP 72 байта

<?for(;;)echo$a=preg_filter('#(.)*#e','strlen(""). ',$a)?:5554,~õ;

этот сценарий может быть еще optmized. Но так как у нас есть PHPGolf ({http://www.phpgolf.org/?p=challenges&challenge_id=28}) точно такая же последовательность, я держу ее так.

автор: P Daddy · Accepted Answer · 2011-03-25 14:26:02

Python-92 символов

^{98 с дополнительным кредитом}

выходы бесконечно. Я рекомендую перенаправить вывод в файл и быстро нажать Ctrl+C.

x=`1`;t=''
while 1:
 print x
 while x:c=x[0];n=len(x);x=x.lstrip(c);t+=`n-len(x)`+c
 x,t=t,x

для дополнительной кредитной версии замените

x=`1`

С

x=`input()`

автор: P Daddy · Accepted Answer · 2011-03-25 14:27:15

C-120 символов

^{129 с дополнительным кредитом}

main(){char*p,*s,*r,x[99]="1",t[99];for(;r=t,puts(p=x);strcpy(x,t))
for(;*p;*r++=p-s+48,*r++=*s,*r=0)for(s=p;*++p==*s;);}

^{новая строка существует только для удобства чтения.}

это останавливается, когда он segfaults (после по крайней мере 15 итераций). Если ваши библиотеки C используют буферизованный ввод-вывод, вы можете не увидеть никаких выходных данных перед segfault. Если да, проверьте с помощью этого кода:

#include<stdio.h>
main(){char*p,*s,*r,x[99]="1",t[99];for(;r=t,puts(p=x),fflush(stdout),1;
strcpy(x,t))for(;*p;*r++=p-s+48,*r++=*s,*r=0)for(s=p;*++p==*s;);}

это добавляет fflush после каждого выхода.

Ungolfed, это будет выглядеть что-то вроде этого:--14-->

int main(){
    char *p, *start, *result, number[99] = "1", temp[99];

    while(1){ /* loop forever */
        puts(number);

        result = temp; /* we'll be incrementing this pointer as we write */
        p = number;    /* we'll be incrementing this pointer as we read */

        while(*p){ /* loop till end of string */
            start = p; /* keep track of where we started */

            while(*p == *start) /* find all occurrences of this character */
                p++;

            *result++ = '0' + p - start; /* write the count of characters, */
            *result++ = *start;          /* the character just counted, */
            *result   = 0;               /* and a terminating null */
        }

        strcpy(number, temp); /* copy the result back to our working buffer */
    }
}

вы можете увидеть его в действии на ideone.

с дополнительным кредитом код выглядит следующим образом:

main(){char*p,*s,*r,x[99],t[99];for(scanf("%s",x);r=t,puts(p=x);strcpy(x,t))
for(;*p;*r++=p-s+48,*r++=*s,*r=0)for(s=p;*++p==*s;);}