Змагання

З огляду на рядок введення та ціле число n - усікають будь-які проміжки послідовних символів на максимальну n довжину. Символи можуть бути будь-якими, включаючи спеціальні символи. Функція повинна бути чутливою до регістру, і n може становити від 0 до нескінченності.

Приклади входів / виходів:

f("aaaaaaabbbccCCCcc", 2) //"aabbccCCcc" 
f("aaabbbc", 1) //"abc"
f("abcdefg", 0) //""
f("aaaaaaabccccccccCCCCCC@", 4) //"aaaabccccCCCC@"

Оцінка балів

Оцінка базується на кількості використаних байтів. Таким чином

function f(s,n){return s.replace(new RegExp("(.)\\1{"+n+",}","g"),function(x){return x.substr(0, n);});}

було б 104 бали.

Щасливого гольфу!

Редагувати: видалено обмеження мови, але я все ще хотів би бачити відповіді на JavaScript

Python 2, 52 байти

lambda s,n:reduce(lambda r,c:r+c*(r[-n:]!=c*n),s,'')

Виписано у вигляді програми (54 байти):

s,n=input();r=''
for c in s:r+=c*(r[-n:]!=c*n)
print r

Ітератується через рядок введення s, додаючи кожен символ до вихідного рядка, rякщо це не останні nсимволиr є цим символом.

Я, хоча, це не зможе, n==0тому щоr[-0:] це не останні 0 символів (порожня рядок), а весь рядок. Але це працює, тому що рядок залишається порожньою, тому вона не відповідає 0-символьному рядку.

Рекурсив lambdaдав 56 через повторення

f=lambda s,n:s and s[:f(s[1:],n)[:n]!=s[0]*n]+f(s[1:],n)

Альтернативна стратегія збереження лічильника iповторів останнього символу також виявилася довшою, ніж просто перевірка останніх nсимволів безпосередньо.

C, 81 78

Змінює вхідний рядок.

c,a;f(p,n)char*p;{char*s=p;for(;*p;s+=c<n)*s=*p++,a^*s?c=0:++c,a=*s;c=a=*s=0;}

Тестова програма

Потрібні два параметри, перший - рядок для скорочення, другий - межа довжини.

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

int main(int argc, const char **argv)
{
    char *input=malloc(strlen(argv[1])+1);
    strcpy(input,argv[1]);
    f(input,atoi(argv[2]));
    printf("%s\n",input);
    free(input);
    return 0;
}

Пояснення:

c,a;                 //declare two global integers, initialized to zero.
                     //c is the run length, a is the previous character
f(char*p,int n){...} //define function f to truncate input
char*s=p;            //copy p to s; p is source, s is destination
for(;*p              //while there is a source character
;s+=c<n)             //increment copied pointer if run is under the limit
*s=*p++,             //copy from source to destination, increment source
a^*s?c=0:++c,        //if previous character != current then run=0 else increment run
a=*s;                //previous character = current source character
c=a=*s=0;            //after loop, terminate destination string with NUL and reset c and a.

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

Haskell, 36 байт

import Data.List
(.group).(=<<).take

Без точкової версії \n s -> concatMap (take n) (group s).

Javascript ES6, 60 54 55 43 байт

-12 байт завдяки @ TestSubject06 та @Downgoat

(s,n)=>s.replace(/(.)\1*/g,x=>x.slice(0,n))

Приклад виконання:

f("aaaaaaabbbccCCCcc"      , 2) -> "aabbccCCcc" 
f("aaabbbc"                , 1) -> "abc"
f("abcdefg"                , 0) -> ""
f("aaaaaaabccccccccCCCCCC@", 4) -> "aaaabccccCCCC@"
f("a"                      , 1) -> "a"

MATL, 9 байт

Y'i2$X<Y"

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

Пояснення

        % Implicitly grab input as a string
Y'      % Perform run-length encoding. Pushes the values and the run-lengths to the stack
i       % Explicitly grab the second input
2$X<    % Compute the minimum of the run lengths and the max run-length
Y"      % Perform run-length decoding with these new run lengths
        % Implicitly display the result

CJam, 12 байт

{e`\af.e<e~}

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

Пояснення

e`   e# Run-length encode the input. Gives a list of pair [length character].
\a   e# Swap with maximum and wrap in an array.
f.e< e# For each run, clamp the run-length to the given maximum.
e~   e# Run-length decode.

Pyth, 16 12 байт

rm, hS, Qhdedrz8 9
ss <RQmM_Mrz8

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

Python 2, 56 байт

import re
lambda s,n:re.sub(r'(.)(\1{%d})\1*'%n,r'\2',s)

gs2, 6 байт

Зашифровано в CP437 :

╠c╨<ΘΣ

Це анонімна функція (блок), яка очікує число зверху стека та рядок під ним.

     Σ   Wrap previous five bytes in a block:
╠          Pop number into register A.
 c         Group string.
    Θ      Map previous two bytes over each group:
  ╨<         Take the first A bytes.

Спробуйте в Інтернеті. (Код тут є lines, dump, read number, [the answer], run-block.)

Perl 6 ,  38  36 байт

->$_,$n {S:g/(.)$0**{$n..*}/{$0 x$n}/}
->$_,\n{S:g/(.)$0**{n..*}/{$0 x n}/}

Пояснення:

-> $_, \n { # pointy block lambda
  # regex replace ( return without modifying variant )
  # globally
  S:global /
    # a char
    (.)
    # followed by ｢n｣ or more identical chars
    $0 ** { n .. * }
  /{
    # repeat char ｢n｣ times
    $0 x n
  }/
}

Тест:

#! /usr/bin/env perl6
use v6.c;
use Test;

my &truncate-char-runs-to = ->$_,\n{S:g/(.)$0**{n..*}/{$0 x n}/}

my @tests = (
  ("aaaaaaabbbccCCCcc", 2) => "aabbccCCcc",
  ("aaabbbc", 1) => "abc",
  ("abcdefg", 0) => "",
  ("aaaaaaabccccccccCCCCCC@", 4) => "aaaabccccCCCC@",
);

plan +@tests;

for @tests -> $_ ( :key(@input), :value($expected) ) {
  is truncate-char-runs-to(|@input), $expected, qq'("@input[0]", @input[1]) => "$expected"';
}

1..4
ok 1 - ("aaaaaaabbbccCCCcc", 2) => "aabbccCCcc"
ok 2 - ("aaabbbc", 1) => "abc"
ok 3 - ("abcdefg", 0) => ""
ok 4 - ("aaaaaaabccccccccCCCCCC@", 4) => "aaaabccccCCCC@"

Javascript ES5, 73

function f(s,n){return s.replace(RegExp("(.)(\\1{"+n+"})\\1*","g"),"$2")}

Повторно використовує вираз Лінни з її відповіді Python .

Perl 5, 50 байт

46 байт коду + 3 для -iі 1 для-p

Бере номер, який слід усікати -i.

s!(.)\1+!$&=~s/(.{$^I}).+/$1/r!ge

Використання

perl -i4 -pe 's!(.)\1+!$&=~s/(.{$^I}).+/$1/r!ge' <<< 'aaaaaaabccccccccCCCCCC@'
aaaabccccCCCC@

Bash 46 байт

read c;sed -r ":l;s/(.)(\1{$c})(.*)/\2\3/;t l"

Використання: введіть кількість символів для обмеження, натисніть клавішу enter та введіть рядок. Ctrl+ Dдля виходу sed(надіслати EOF).

Java 7, 107 106 байт

String c(String s,int i){String x="";for(int i=-1;++i<j;)x+="$1";return s.replaceAll("(.)\\1{"+i+",}",x);}

Попередня альтернативна вбудована цикл для об'єднання рядків (що на 1 байт більше, ніж String s="";for(int i=-1;++i<j;)s+="$1";на жаль):

String c(String s,int i){return s.replaceAll("(.)\\1{"+i+",}",new String(new char[i]).replace("\0","$1")));}

Невикористані та тестові справи:

Спробуйте тут.

class Main {
  static String c(String s, int i){
    String x="";
    for(int j = -1; ++j < i;){
      x += "$1";
    }
    return s.replaceAll("(.)\\1{"+i+",}", x);
  }

  public static void main(String[] a){
    System.out.println(c("aaaaaaabbbccCCCcc", 2));
    System.out.println(c("aaabbbc", 1));
    System.out.println(c("abcdefg", 0));
    System.out.println(c("aaaaaaabccccccccCCCCCC@", 4));
    System.out.println(c("@@@@@bbbbbcccddeegffsassss", 5));
  }
}

Вихід:

aabbccCCcc
abc

aaaabccccCCCC@
@@@@@bbbbbcccddeegffsassss

Javascript (за допомогою зовнішньої бібліотеки) (115 байт)

(s,r)=>_.From(s).Aggregate((c,n)=>{if(c.a!=n){c.c=1;c.a=n}else{c.c++}if(c.c<=r){c.b+=n}return c},{a:"",b:"",c:0}).b

Посилання на lib: https://github.com/mvegh1/Eumerable

Пояснення коду: Завантажте рядок у бібліотеку, яка внутрішньо аналізує масив char. Застосуйте акумулятор до послідовності, передаючи в користувальницький об'єкт як значення насіння. Властивість a - поточний елемент, b - накопичена рядок, а c - послідовний відлік поточного елемента. Акумулятор перевіряє, чи поточне значення ітерації, n, дорівнює останньому значенню елемента, ca Якщо ні, ми скидаємо кількість до 1 і встановлюємо поточний елемент. Якщо кількість поточного елемента менша або дорівнює потрібній довжині, ми накопичуємо його до зворотного рядка. Нарешті, повертаємо властивість b, накопичену рядок. Не найголовніший код, але щасливий, що я отримав рішення, яке працює ...

J, 31 30 байт

((<.#@>)#{.@>@])]<;.1~1,2~:/\]

Групує рядок введення на прогони (підрядки) однакових символів і приймає мінімум довжини цього запуску та максимальну довжину, яка була введена для обрізання рядка. Потім копіюється перший символ кожного запуску, який багато разів.

Використання

   f =: ((<.#@>)#{.@>@])]<;.1~1,2~:/\]
   2 f 'aaaaaaabbbccCCCcc'
aabbccCCcc
   1 f 'aaabbbc'
abc
   0 f 'abcdefg'

   4 f 'aaaaaaabccccccccCCCCCC@'
aaaabccccCCCC@

Пояснення

((<.#@>)#{.@>@])]<;.1~1,2~:/\]  Input: k on LHS, s on RHS
                             ]  Get s
                        2~:/\   Test if each pair of consecutive chars are not equal
                      1,        Prepend a 1
                ]               Get s
                 <;.1~          Chop s where a 1 occurs to get the runs in s
    #@>                         Get the length of each run
  <.                            Take the min of the length and k
         {.@>@]                 Get the head of each run
        #                       Copy the head of each run min(k, len(run)) times
                                Return that string as the result

Діалог APL , 22 20 байт

(∊⊢↑¨⍨⎕⌊⍴¨)⊢⊂⍨1,2≠/⊢

Запрошує n та приймає рядок введення як аргумент.

(мовчазна функція ...
    ∊вирівняйте
    ⊢↑¨⍨кожен елемент аргументу (тобто кожен розділ), урізаний до
    ⎕⌊⍴¨мінімуму числового вводу, а поточна довжина
)[кінець негласної функції], застосована до
⊢⊂⍨входу, розділеного на of s
1, pe, попередньо до ( Перший символ не дорівнює його неіснуючому попереднику)
2≠/⊢пара нерівних символів вхідних даних

Рубін, 32 байти

->s,n{s.gsub(/(.)\1*/){$&[0,n]}}

TCC, 7 5 байт

$~(;)

Введення - це рядок і число, відокремлене пробілом.

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

       | Printing is implicit
$~     | Limit occurence
  (;   | First part of input
    )  | Second part of input