- 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