Ideone.com

download

copy

#!/usr/bin/perl -p
# your code goes here
for($i=0;$i<length;){$i=(s/(.).{$i}\1/\1/)?0:$i+1;}

Success #stdin #stdout 0s 6056KB

stdin

copy

examples
programming
puzzles
codegolf
andromeda
abcbaccbabcb
if(x==1):x++
fnabnfun

stdout

copy

es
praming
puzles
colf
a
acb
if(x+
fun

https://ideone.com/WyyE3d

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!