Excess Letter removal.

[SilverRain]

Code: Select all

alias excess { 
  var %x = 1,%r
  while ($mid($1-,%x,1)) { 
    if (%x != 1 && $mid($1-,%x,1) != $mid(%r,$len(%r),1) && $mid(%r,$calc(%r - 1),1) && $istok(a b c d e f g h i j k l m n o p q r s t u v w x y z,$mid($1-,%x,1),32)) { var %r = $+(%r,$mid($1-,%x,1))  }
    elseif (%x == 1) { var %r = $+(%r,$mid($1-,$ifmatch,1)) }
    inc %x
  }
  !return %r
}

$excess(fuuuuuuuckkkkkkkkkkkkkkk) returns: fuck
$excess(spammmmmmmmmmmmm) returns: spam

[Cristian]

Nice script, excellent idea, I love it.

I have a suggestion, if you like.
What I have in mind, making the script ignore double characters, but striping all others.

Code: Select all

$excess(excess) returns exces
$excess(letter) returns leter

So these will pass.

Code: Select all

$excess(excess) returns excess
$excess(letter) returns letter