Untitled

3.

#!/usr/bin/awk -f

BEGIN {
    for (i = 65; i <= 90; i++) {
        letter = sprintf("%c", i)
        licznikSlow[letter] = 0
    }
    for (i = 97; i <= 122; i++) {
        letter = sprintf("%c", i)
        licznikSlow[letter] = 0
    }
}

{
    for (i = 1; i <= NF; i++) {
        if ($i ~ /^[A-Za-z]/) {
            firstLetter = substr($i, 1, 1)
            licznikSlow[firstLetter]++
        }
    }
}

END {
    for (letter in licznikSlow) {
        printf("Liczba slow zaczynajacych sie na %s: %d\n", letter, licznikSlow[letter])
    }
}