Re^2: 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]

Comment on Re^2: challenge: OEIS A073015 serie Select or Download Code

Replies are listed 'Best First'.
Re^3: challenge: OEIS A073015 serie by hdb (Monsignor) on Dec 18, 2015 at 16:40 UTC
Playing with your proposal a bit leads to `$_=3;say,$_*=--$_ while!/i/` [download]	[reply] [d/l]
Re^4: challenge: OEIS A073015 serie by Eily (Monsignor) on Dec 18, 2015 at 17:40 UTC
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]
Re^5: challenge: OEIS A073015 serie by Discipulus (Canon) on Dec 18, 2015 at 21:31 UTC
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]
Re^5: challenge: OEIS A073015 serie by hdb (Monsignor) on Dec 18, 2015 at 19:40 UTC
The script reaches Infinity, it just does not print it...	[reply]
Re^6: challenge: OEIS A073015 serie by Eily (Monsignor) on Dec 18, 2015 at 22:18 UTC