3 ms·Also fun, if not anywhere as clever: perl -le '$_=1;print&&s/((\d)\2*)/length($1).$2/ge while length()<64'by dmd 3y agoAlso fun, if not anywhere as clever: perl -le '$_=1;print&&s/((\d)\2*)/length($1).$2/ge while length()<64'