language: Perl (perl 5.16.2)
date: 634 days 23 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/perl
 
use strict; use warnings;
 
my $s = "abcdefghijklmnopqrstuvwxyz";
my @a = split (//, $s);
 
my $len = 10;
 
$| = 1;   # flush output
 
my $i = 0;
my $j = 0;
while ($i < 26) {
    print  "\n"; # clear line
 
my $line = $s;
my $char = substr($s,$i++,1);
 
$line =~ s/(.*)$char(.*)/$1  $char  $2/;
print $line;
 
}
  • upload with new input
  • # 1:   hide   clone   input   634 days 23 hours ago

    result: Success     time: 0s    memory: 4728 kB     returned value: 0 

      a  bcdefghijklmnopqrstuvwxyz
a  b  cdefghijklmnopqrstuvwxyz
ab  c  defghijklmnopqrstuvwxyz
abc  d  efghijklmnopqrstuvwxyz
abcd  e  fghijklmnopqrstuvwxyz
abcde  f  ghijklmnopqrstuvwxyz
abcdef  g  hijklmnopqrstuvwxyz
abcdefg  h  ijklmnopqrstuvwxyz
abcdefgh  i  jklmnopqrstuvwxyz
abcdefghi  j  klmnopqrstuvwxyz
abcdefghij  k  lmnopqrstuvwxyz
abcdefghijk  l  mnopqrstuvwxyz
abcdefghijkl  m  nopqrstuvwxyz
abcdefghijklm  n  opqrstuvwxyz
abcdefghijklmn  o  pqrstuvwxyz
abcdefghijklmno  p  qrstuvwxyz
abcdefghijklmnop  q  rstuvwxyz
abcdefghijklmnopq  r  stuvwxyz
abcdefghijklmnopqr  s  tuvwxyz
abcdefghijklmnopqrs  t  uvwxyz
abcdefghijklmnopqrst  u  vwxyz
abcdefghijklmnopqrstu  v  wxyz
abcdefghijklmnopqrstuv  w  xyz
abcdefghijklmnopqrstuvw  x  yz
abcdefghijklmnopqrstuvwx  y  z
abcdefghijklmnopqrstuvwxy  z