Ein Constraint System - #53796 (Allgemeines zu Perl)

kabel

2005-04-14 17:03

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

@pKai: noe, da ich das thema selbst nicht durchdringe ;-)
einfach posten, wie du es loesen wuerdest, oder code, oder whatever.

@esskar: ich hatte das so gedacht:

Code (perl): (dl )

my $sum1= Variable->new( "first_summand" );
my $sum2= Variable->new( "second_summand" );
my $sum3= Variable->new( "result" );
my $adder= Addierer->new();
$adder->connectFirstSummand( $sum1 );
$adder->connectSecondSummand( $sum2 );
$adder->connectResult( $sum3 );

$sum1->setValue( 5 );
$sum2->setValue( 3 );
print $sum3->getValue(); # should print 8

ein parser waere natuerlich auch nett 8)

-- stefan