X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/581e110835997aac4917c7112fdc7dad1ed99080..5abda9a292478f945dcbd4b25b09bd092e762cb0:/dieren.plp?ds=sidebyside

diff --git a/dieren.plp b/dieren.plp
index 2017eac..727efd2 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -45,13 +45,13 @@ my @table = qw(
 	>hond:     hond       zeehond      waterhond?   aardhond?    vleerhond
 	>kat:      kat        zeekat       meerkat      caterpillar? tijgerkat
 	#>haas:    haas       zeehaas      ?            ?            ?
-	>muis:     muis       zeemuis      watermuis?   aardmuis     vleermuis
+	>muis:     muis       zeemuis    waterspitsmuis aardmuis     vleermuis
 	>rat:      rat        zeerat       waterrat     woestijnrat  buidelrat #beverrat
 	>egel:     egel       zee-egel     wateregel?   aardegel?    mierenegel
 	>varken:   varken     zeevarken    waterzwijn   aardvarken   stekelvarken
-	>koe:      koe        zeekoe       meerkoetje   aardkoe?     haiku?
+	>koe:      koe        zeekoe       meerkoetje   aardkoe?     koedoe    #haiku?
 	>paard:    paard      zeepaardje   nijlpaard    aardpaard?   luipaard
-	#>hoorn:   eenhoorn   zee-eenhoorn waterhoorn?  aardhoorn?   neushoorn eekhoorn
+	#>hoorn:   eenhoorn   zeehoorn    zee-eenhoorn? aardhoorn?   neushoorn eekhoorn
 	#>bra:     bh?        zebra        waterbra?    aardbra?     cobra
 	#>olifant: olifant    zeeolifant  waterolifant? landolifant? ?
 	>beer:     beer       zeebeer      waterbeertje ijsbeer      wasbeer   #neusbeer
@@ -60,8 +60,23 @@ my @table = qw(
 	>haan:     haan       zeehaan      waterhaan    rotshaan     sprinkhaan
 	#>vlo:     vlo        strandvlo    watervlo     aardvlo      ?
 	#>draak:   draak      zeedraak     waterdraak?  aarddraak?   ?
+	#>pad:     pad        zeepad?      waterpad?    landpad      schildpad
+	#>bij:     bij        zeebij?      waterbij     aardbij      ?
 );
 
+if (exists $get{r}) {
+	use List::MoreUtils qw( part );
+	my @trans = (part { state $col; /^#?>/ ? ($col = 0) : ++$col } @table);
+	@table = ();
+	for (@trans) {
+		unshift @$_, '?:' if $_->[0] !~ /:$/;
+		$_->[0] =~ s/^#?\K>?/>>/;
+		for (@$_) {
+			push @table, s/^#?\K>/$1/r;
+		}
+	}
+}
+
 say '<table>';
 while (my $name = shift @table) {
 	if ($name =~ s/^#// and not exists $get{v}) {