There's an interesting number pattern:
On PerlGuru.com, there was recently a quiz to come up with a good (fast? short?) way to create these lines in Perl. I came up with a very short solution, as well as a very fast solution. These are in the form:
For those of you that don't know this pattern, each line is a description of the previous line. For instance, the line "1 1 1 2 2 1" describes the line "1 2 1 1", because it says "one 1, one 2, two 1's". And so on.1 1 1 2 1 1 2 1 1 1 1 1 2 2 1 3 1 2 2 1 1
On PerlGuru.com, there was recently a quiz to come up with a good (fast? short?) way to create these lines in Perl. I came up with a very short solution, as well as a very fast solution. These are in the form:
I'd like to see possible solutions from people. My fastest code executed the 1..10 loop 500 times in 2.40 seconds, and a 1..35 loop 10 times in 43.51 seconds. My shortest one is a bit slower, because it uses a regex, at 3.76 seconds and 57.35 seconds.@a = (1); for (1..10) { print "@a\n"; # real juicy stuff here }
|
---|
Replies are listed 'Best First'. | |
---|---|
RE: Generating a Pattern
by fundflow (Chaplain) on Jul 25, 2000 at 01:29 UTC | |
by eak (Monk) on Aug 06, 2000 at 07:58 UTC | |
RE: Generating a Pattern
by japhy (Canon) on Jul 25, 2000 at 07:39 UTC | |
RE: Generating a Pattern
by hawson (Monk) on Jul 27, 2000 at 00:47 UTC | |
by japhy (Canon) on Jul 27, 2000 at 22:44 UTC | |
RE: Generating a Pattern
by bastard (Hermit) on Jul 29, 2000 at 02:01 UTC | |
RE: Generating a Pattern
by lhoward (Vicar) on Jul 25, 2000 at 03:28 UTC | |
RE: Generating a Pattern
by turnstep (Parson) on Jul 25, 2000 at 05:04 UTC | |
RE: Generating a Pattern
by jimt (Chaplain) on Aug 10, 2000 at 19:59 UTC | |
Benchmarks OT
by premchai21 (Curate) on Mar 27, 2001 at 05:24 UTC | |
by myocom (Deacon) on Mar 27, 2001 at 05:41 UTC |
Back to
Cool Uses for Perl