#!/usr/bin/perl

use utf8;

binmode(STDOUT, ":utf8");

open IN, "<:encoding(utf8)", 'facit.asc';

$state=0;

while($l = <IN>)
{
  chomp($l);
  if($l =~ /^Land: (.*)$/)
  {
    $land = $1;
    $state = 1;
    $nq = 0;
  }
  elsif($l =~ /^Land igen: (.*)$/)
  {
    $land = $1."2";
    $state = 1;
    $nq = 0;
  }
  elsif($l eq " ")
  {
#   blank
  }
  elsif($l eq "--------------------------------")
  {
#   blank
  }
  elsif($l =~ /^Det var GIER på det +(\d+). sp/)
  {
    $nq2 = $1;
    $state = 0;
    $qcount->{$land} = $nq2;
    if($nq != $nq2)
    {
      print "nq: $nq $nq2 ".$land."\n";
    }
  }
  elsif($state==1)
  {
    $nq++;
    if((substr($l,0,3) eq "sp|") ||
       (substr($l,0,15) eq "Kan landets ind") ||
       (substr($l,0,11) eq "Danner de f") ||
       (substr($l,0,16) eq "Er landet en af "))
    {
      $l2 = <IN>;
      chomp($l2);
      $l = $l."\n".$l2;
    }
    $qlist->{$land}->{$nq} = $l;
  }
}

sub s1
{
  my $a1=$qcount->{$a} <=> $qcount->{$b};
  if($a1==0)
  {
    $a1 = $a cmp $b;
  }
  $a1;
}

@sort1 = sort s1 keys %$qcount;
@sort2 = sort {$a cmp $b} keys %$qcount;

print "#sp\n";
foreach $land (@sort1)
{
  printf "%-30s %2d\n",$land,$qcount->{$land};
}

print "#land\n";

foreach $land (@sort2)
{
  printf "%-30s %2d\n",$land,$qcount->{$land};
}