From 581e110835997aac4917c7112fdc7dad1ed99080 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 23 Nov 2019 16:22:58 +0100 Subject: [PATCH] dieren: prefix to indicate verbose additions --- dieren.plp | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/dieren.plp b/dieren.plp index 320222f..2017eac 100644 --- a/dieren.plp +++ b/dieren.plp @@ -44,30 +44,31 @@ my @table = qw( >: origineel: zee-: meer_water: aardig: anders: >hond: hond zeehond waterhond? aardhond? vleerhond >kat: kat zeekat meerkat caterpillar? tijgerkat + #>haas: haas zeehaas ? ? ? >muis: muis zeemuis watermuis? aardmuis vleermuis - >rat: rat zeerat waterrat woestijnrat buidelrat + >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? >paard: paard zeepaardje nijlpaard aardpaard? luipaard - >beer: beer zeebeer waterbeertje ijsbeer wasbeer + #>hoorn: eenhoorn zee-eenhoorn waterhoorn? aardhoorn? neushoorn eekhoorn + #>bra: bh? zebra waterbra? aardbra? cobra + #>olifant: olifant zeeolifant waterolifant? landolifant? ? + >beer: beer zeebeer waterbeertje ijsbeer wasbeer #neusbeer >leeuw: leeuw zeeleeuw waterleeuw? aardleeuw? mierenleeuw >wolf: wolf zeewolf waterwolf? aardwolf buidelwolf >haan: haan zeehaan waterhaan rotshaan sprinkhaan + #>vlo: vlo strandvlo watervlo aardvlo ? + #>draak: draak zeedraak waterdraak? aarddraak? ? ); -push @table, qw( - >hoorn: eenhoorn zee-eenhoorn waterhoorn? aardhoorn? neushoorn eekhoorn - >haas: haas zeehaas ? ? ? - >olifant: olifant zeeolifant waterolifant? landolifant? ? - >vlo: vlo strandvlo watervlo aardvlo ? - >bra: bh? zebra waterbra? aardbra? cobra - >draak: draak zeedraak waterdraak? aarddraak? ? -) if exists $get{v}; -splice @table, 6 * 10, 0, 'neusbeer' if exists $get{v}; -splice @table, 6 * 5, 0, 'beverrat' if exists $get{v}; say ''; -for my $name (@table) { +while (my $name = shift @table) { + if ($name =~ s/^#// and not exists $get{v}) { + while ($name = shift @table) { + last if $name =~ m/^>/; + } + } if ($name =~ s/^>//) { # leading dash starts a new row say '' if $name; -- 2.30.0