in reply to challenge: OEIS A073015 serie

Here is my 35 char solution:
<Reveal this spoiler or all in this thread>
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.

Replies are listed 'Best First'.
Re^2: challenge: OEIS A073015 serie
by choroba (Cardinal) on Dec 18, 2015 at 15:12 UTC
    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]
[reply]
[d/l]
[select]

      Playing with your proposal a bit leads to 

      $_=3;say,$_*=--$_ while!/i/

      [download]
[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]

In Section Seekers of Perl Wisdom