From 7d90d00434f3568aa4bae2c8a7585668018c298d Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 23 Nov 2019 16:11:26 +0100 Subject: [PATCH] dieren: proposed additions on ?v parameter --- dieren.plp | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/dieren.plp b/dieren.plp index 42ca5ec..320222f 100644 --- a/dieren.plp +++ b/dieren.plp @@ -44,7 +44,8 @@ my @table = qw( >: origineel: zee-: meer_water: aardig: anders: >hond: hond zeehond waterhond? aardhond? vleerhond >kat: kat zeekat meerkat caterpillar? tijgerkat - >muis: muis zeemuis waterrat? aardmuis vleermuis + >muis: muis zeemuis watermuis? aardmuis vleermuis + >rat: rat zeerat waterrat woestijnrat buidelrat >egel: egel zee-egel wateregel? aardegel? mierenegel >varken: varken zeevarken waterzwijn aardvarken stekelvarken >koe: koe zeekoe meerkoetje aardkoe? haiku? @@ -54,6 +55,16 @@ my @table = qw( >wolf: wolf zeewolf waterwolf? aardwolf buidelwolf >haan: haan zeehaan waterhaan rotshaan sprinkhaan ); +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) { -- 2.30.0