fork download
copy 
  1. #!/usr/bin/perl
  2. @ds=("12_3", # 6s
  3.      "313__", # 8s
  4.      "4_35_1264_23_434", # 60s
  5.      "123456789123456789", # 98s
  6.      "88967472612377988186", # 149s
  7.      "19898693316679441672", # 170s
  8.      "93769682716711132249893" # ?
  9.     );
  10. for (@ds) {
  11.   print;
  12.   $s = 0;
  13.   while (/^(_*)(\d)(.*)$/) {
  14.     $s += length($1) + $2;
  15.     $_="_$3$1";
  16.     for $i (1..$2) {
  17.       $_=substr($_,1).substr($_,0,1);
  18.     }
  19.   }
  20.   print ": $s\n";
  21. }
Success #stdin #stdout 0s 17496KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
12_3: 6
313__: 10
4_35_1264_23_434: 62
123456789123456789: 98
88967472612377988186: 151
19898693316679441672: 170
93769682716711132249893: 176
https://ideone.com/iUAYUy
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

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