in reply to Re: challenge: OEIS A073015 serie
in thread challenge: OEIS A073015 serie

On my system, ∞ is inf, so I needed to lowercase the I.

Here's my shorter version: 

#                 1         2         3
#        12345678901234567890123456789012345
perl -E 'say$_=3;/i/?die:say$_*=$_ while--$_' # old
perl -E 'say$_=3;say$_*=--$_ while$_&&!/i/'   # new

[download]
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

Replies are listed 'Best First'.
Re^3: challenge: OEIS A073015 serie
by hdb (Monsignor) on Dec 18, 2015 at 16:40 UTC
[reply]
[d/l]

      Your proposition lacks the final infinite though. But in any case you can win one char with until. say$_=3;say$_*=--$_ until/i/

[reply]
[d/l]
        mixing two above:
        #                 1         2        
#        12345678901234567890123456
perl -E "$_=3;say,$_*=--$_ until/#/"

        [download]

        L*
        There are no rules, there are no thumbs..
        Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
[reply]
[d/l]

        The script reaches Infinity, it just does not print it...

[reply]

In Section Seekers of Perl Wisdom