#!/usr/bin/env perl

# Learning RPerl, Chapter 6, Exercise 2
# Accept a list of words, and print the count of each unique word

# [[[ HEADER ]]]
use RPerl;
use strict;
use warnings;
our $VERSION = 0.001_000;

# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls)  # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(ProhibitExplicitStdin)  # USER DEFAULT 4: allow <STDIN> prompt

# [[[ SUBROUTINES ]]]

sub unique_word_count {
    { my void $RETURN_TYPE };
    my integer_hashref $word_counts = {};

    print 'Please input zero or more words, separated by <ENTER>, ended by <CTRL-D>:', "\n";
    while (my string $input_word = <STDIN>) {
        chomp $input_word;
        if (not exists $word_counts->{$input_word}) {
            $word_counts->{$input_word} = 1;
        }
        else {
            $word_counts->{$input_word} += 1;
        }
    }

    print "\n", 'Unique word count:', "\n";

    foreach my string $unique_word (sort keys %{$word_counts}) {
        print $unique_word, ' appeared ', to_string($word_counts->{$unique_word}), ' time(s)', "\n";
    }
    return;
}

# [[[ OPERATIONS ]]]

unique_word_count();