Object subclass: StringStat [
    |numberOfStrings characters|

    init [
        numberOfStrings := 0.
        characters := Dictionary new.
    ]

    + input [
        |size|
        numberOfStrings := numberOfStrings + 1.
        size := (input size).
        1 to: size do: [
            :i |
            |character currently|


            character := (input at: i).
            currently := characters at: character ifAbsent: [0].
            currently := currently + 1.
            characters at: character put: currently.
        ].
        ^self.
    ]

    getStat: character default: defaultReturn [
        (character isMemberOf: Character) ifFalse: [
            'ERROR: The first argumentum must be a Character instance!' displayNl.
            ^defaultReturn.
        ].

        ^(characters at: character ifAbsent: [defaultReturn]).
    ]

    displayOn [
        ($a asInteger) to: ($z asInteger) do: [
            :i |
            |char|
            char := i asCharacter.
            char display.
            ': ' display.
            (self getStat: char default: 0) display.
            ' ' display.
        ].
        ($A asInteger) to: ($Z asInteger) do: [
            :i |
            |char|
            char := i asCharacter.
            char display.
            ': ' display.
            (self getStat: char default: 0) display.
            ' ' display.
        ].
        '. Collected from ' display. numberOfStrings display. ' Strings.' displayNl.
    ]
]

StringStat class extend [
    new [
        |instance|
        instance := super new.
        instance init.
        ^instance.
    ]
]

|st input|
st := StringStat new.

[true] whileTrue: [

    'Write a word: ' display.
    input := stdin nextLine asString.

    st + input.

    'Stat at $a: ' display. (st getStat: $a default: -1) printNl.
    'Stat at $t: ' display. (st getStat: $t default: -1) printNl.
    'Stat at ''t'': ' display. (st getStat: 't' default: -1) printNl.

    st displayOn.
].