Count no. of characters and words in a string in PL/SQL

Prerequisite – PL/SQL introduction
In PL/SQL code groups of commands are arranged within a block. A block group related declarations or statements. In declare part, we declare variables and between begin and end part, we perform the operations.

Given a string and the task is to count the number of characters and words in the given string.
Examples:

Input: str = 'Geeks for geeks '
Output: Characters = 13 , Words = 3

Input: str = 'A Computer science portal'
Output: Characters = 22, Words = 4

Approach is to maintain two counter variables i.e. one for the characters and the other for words. Start traversing character one by one and increment the count and when there is a blank space then increment the count of words.
Below is the required implementation:

DECLARE
    -- Declare required variables
    str       VARCHAR2(40) := 'Geeks for Geeks';
    noofchars NUMBER(4) := 0;
    noofwords NUMBER(4) := 1;
    s         CHAR;
BEGIN
    FOR i IN 1..Length(str) LOOP
        s := Substr(str, i, 1);

        -- Count no. of characters
        noofchars := noofchars + 1;

        -- Count no. of words
        IF s = ' ' THEN
          noofwords := noofwords + 1;
        END IF;
    END LOOP;

    dbms_output.Put_line('No. of characters:'
                         ||noofchars);

    dbms_output.Put_line('No. of words: '
                         ||noofwords);
END;
-- Program End

Output :

No. of characters:15
No. of words: 3