[Bielefeld-pm] Fwd: Newsletter from O'Reilly UG Program, October 25

[Jürgen Peters]

On Wed, 09 Nov 2005 13:47:20 +0100, Judith Maria N Dohmann wrote
> On Wednesday, November 09, 2005, at 01:38PM, Christian Dühl 
> <c.duehl at gmx.de> wrote:
> 
> >--- Weitergeleitete Nachricht ---
> >Von: Marsee Henon <marsee at oreilly.com>
> >An: c.duehl at gmx.de
> >Betreff: Newsletter from O'Reilly UG Program, October 25
> >Datum: Tue, 25 Oct 2005 18:16:34 -0700
> >
> >Hello,
> >
> >We have been changing things around here at O'Reilly as you might have
> >noticed when you go to http://www.oreilly.com/. In an effort to catch up
> >and get ahead a little, I have listed all the books we have released
> >>from the last newsletter until today. There are 24 books on this list. 
> >I think that is a record. Thanks for your help as always!
> 
> Da ja bald Weihnachten ist und ein neues Jahr beginnen wird:
> 
> Falls die wieder Kalender verteilen, haette ich gerne wieder ein Exemplar.

jau, da hätt ich auch gerne zwei von (einen für zuhause, einen für's büro),
sofern sich das machen lässt.
 
> Ansonsten sehen wir uns hoffentlich alle am 29.11.

btw. mir war heute ein bischen langweilig, da hab ich mir mal über das problem
mit den logik-rätseln gedanken gemacht. hier ist schon mal ein kleines
programm, welches alle möglichen kombinationen einer zeile/spalte zurück gibt.
meine idee im moment ist, diese nacheinander rekursiv durchzugehen, und
möglichst früh abzubrechen, sobald klar wird, dass ein weg nicht mehr zur
lösung füren kann. dafür entwickle ich im moment einen regex...

---<snip>---
my $dim    = 20;
my @blocks = qw/7 9/;

my @solution = iter( $dim, \@blocks );
print "$_\n" for @solution;

sub iter {
    my $dim      = shift;
    my @blocks   = @{ shift() };
    my $solution = shift || "";
    my $block    = shift @blocks;
    map {
        my $try = $solution . (" " x $_) . ("#" x $block);
        @blocks ? iter( $dim, \@blocks, $try . " " )
            : $try . " " x ( $dim - length $try )
    } 0 .. ( $dim - length($solution) - $block - sum @blocks - @blocks );
}
---<snap>---

Gruß,
Jürgen