Opened by Crian at 2004-02-10 23:07
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
:)
Dann kommt hier auch gleich meine Wishlist:
- Punkt einfügen, der mit allen Punkten verbunden ist
- Punkt verschieben und dabei alle mit diesem Punkt verbundene Punkte mitverschieben
- gleiches mit Löschen
- bei gerichteten Graphen: von einem Punkt aus alle erreichbaren einfärben
- gleiches mit löschen (ebenso: alle nicht-erreichbaren löschen)
- alternativ zu beiden vorhergehenden Vorschlägen: Punkten Flags geben, die man über Auswahl ändern kann (ala: Alle mit dem als nächsten anzuklickenden Punkt verbundenen Punkte flag xyz um eins erhöhen, ...) und über diese Flags Punkte auswählen und zB. löschen, verschieben und was auch immer
Dann kommt hier auch gleich meine Wishlist:
- Punkt einfügen, der mit allen Punkten verbunden ist
- Punkt verschieben und dabei alle mit diesem Punkt verbundene Punkte mitverschieben
- gleiches mit Löschen
- bei gerichteten Graphen: von einem Punkt aus alle erreichbaren einfärben
- gleiches mit löschen (ebenso: alle nicht-erreichbaren löschen)
- alternativ zu beiden vorhergehenden Vorschlägen: Punkten Flags geben, die man über Auswahl ändern kann (ala: Alle mit dem als nächsten anzuklickenden Punkt verbundenen Punkte flag xyz um eins erhöhen, ...) und über diese Flags Punkte auswählen und zB. löschen, verschieben und was auch immer
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}