Results

Congrats to Sat for the non-regex catagory and to jaytea for the regex category. Thanks everyone for participating. laugh


Non Regex

Sat - Forums - 178 bytes (Non Regex)
Code:
alias skip %i = $1 | while (%i > !) var %p $($ $+ $calc(%n % (1-$0)+2),2),%q %p + 4,%o %o $+ $iif($prop,$left(%i,%p),$mid(!! %i,%q,1)),%i $mid(! %i,%q),%n $calc(1+%n) | return %o


Degausser - Forums - 184 bytes (Non Regex)
Code:
alias skip {
  var %x,%n,%i
  ::
  inc %x
  if ($(,$ $+ $calc($len(%n)% ($0 -1)+2))) %i = %i $+ $mid($1,%x,$v1)
  inc %x $v1
  if $mid($1,%x,1) < + return $iif($prop,%i,%n)
  %n = %n $+ $v1
  goto :
}


SReject - Self - 187 bytes (Non Regex)
Code:
alias skip {
  var %i $1,%n 1 
  while $len(%i) {
    inc %n
    if (%n > $0) %n = 2
    var %z $(,$ $+ %n),%o %o $+ $iif($prop,$left(%i,%z),$mid(%i,$calc(%z +1),1)),%z %z + 2,%i $mid(%i,%z)
  }
  return %o
}


rockcavera - Forums - 201 bytes (Non Regex)
Code:
alias skip {
  var %a 2,%b 1,%r
  while %b <= $len($1) {
    %c = $($ $+ %a,2)
    %r = %r $+ $iif($prop,$iif(%c,$mid($1,%b,%c)),$mid($1,$calc(%b + %c),1))
    inc %b %c
    inc %b
    inc %a
    if (%a > $0) %a = 2
  }
  return %r
}



Regex

jaytea - Forums - 111 bytes (Regex)
Code:
alias skip return $(,$regsubex($1,m $regsubex($2-,/(\d+)/g,$iif($prop,(.{0,\t}).?,(?:.|){\t}(.?))) gx,\A $!/)))


Sat - Forums - 175 bytes (Regex)
Code:
alias skip var %i $1,%n 2 | while ($regex(%i,(?=.)(.{0, $+ $($ $+ %n,2) $+ })(.?)(.*))) var %o %o $+ $regml($iif($prop,1,2)),%i $regml(3),%n $iif(%n < $0,%n,1) + 1 | return %o


Loki12583 - Forums - 187 bytes (Regex)
Code:
alias skip var %a $iif($prop,1,0),%b 1 - %a,%l $regsubex($2-,/(\d+)/g,$str(%a $+ $chr(32),\t) %b) | return $regsubex($1,/(.)/g,$iif($gettok(%l,$calc((\n -1)% $numtok(%l,32)+1),32),\t))



Note
I have another creative-type challenge planned to start this coming Friday(and run for a month) so stay tuned

Last edited by FroggieDaFrog; 07/08/17 04:38 PM.
I am SReject
My Stuff