' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Attached:     Code Challenge #1: Implement a text-to-baby-talk translator

' File:         StackOverflowChallenge001.vb

' Language:     Visual Basic .NET

' Environment:  .NET Framework 4.7

' Web link:     https://dotnetfiddle.net/tlz33B

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Programmer:   Alex Koster

' Category:     Code Challenges

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Program:      Convert given sample text strings from English to baby talk

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Description:

' This program demonstrates converting sample text from two classic English

'               language works to a version of baby talk.  The replacement

'               words for the baby talk language were selected randomly

'               from my experience talking to toddlers of my cousins

'               and friends over the past several years.  Perhaps this

'               may come in handy one day when I have children of my own

'               or show them how to program using an English-like language.

'               I chose to use the Visual Basic programming language since

'               it was a classic choice of first programming language

'               for children when I was growing up in the 1990s

'               along with other BASIC variants, LOGO, and Pascal [0],

'               and could be used to write a baby's first line of code perhaps?

' [0]  https://en.wikipedia.org/wiki/List_of_educational_programming_languages

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

​

​

' These Imports statements don't seem to be required in Visual Studio

' Community but seem to be necessary for .NET Fiddle to understand vbCrLf

' and the Dictionary class.

​

' Imports statements

Imports System

Imports Microsoft.VisualBasic

Imports System.Collections.Generic

​

' '''' Module StackOverflowChallenge001 '''''''''''''''''''''''''''''''''''''''

'

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Module StackOverflowChallenge001

    ' Module Variables

​

    ' Sample text 1: excerpt from The Wind in the Willows by Kenneth Grahame (public domain)

    Private sample1 As String = "Then the two animals stood and regarded each other cautiously." & vbCrLf &

        """Hullo, Mole!"" said the Water Rat." & vbCrLf &

        """Hullo, Rat!"" said the Mole." & vbCrLf &

        """Would you like to come over?"" enquired the Rat presently." & vbCrLf &

        """Oh, it's all very well to talk,"" said the Mole rather pettishly, he being New to a river And riverside life And its ways." & vbCrLf &

        """This has been a wonderful day!"" said he, as the Rat shoved off And took to the sculls again. " &

        """Do you know, I've never been in a boat before in all my life."""

​

    ' Sample text 2:  The Tale Of Peter Cottontail by Beatrix Potter (Public domain)

    Private sample2 As String = "Once upon a time there were four little Rabbits, And their names were—" & vbCrLf &

        "Flopsy," & vbCrLf &

        "Mopsy," & vbCrLf &

        "Cotton-tail," & vbCrLf &

        "And Peter." & vbCrLf &

        "They lived With their Mother In a sand-bank, underneath the root Of a very big fir-tree." & vbCrLf &

        "'Now my dears,' said old Mrs. Rabbit one morning, 'you may go into the fields or down the lane, but don't go into Mr. McGregor's garden: " &

            "your Father had an accident there; he was put In a pie by Mrs. McGregor.'" & vbCrLf &

        "'Now run along, and don't get into mischief. I am going out.'"

​

    Private samples As String() = {sample1, sample2}

​

    ' '''' Main '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    '

    ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Public Sub Main()

        ' Declare and initialize baby talk word replacements Dictionary

        Dim replacements As New Dictionary(Of String, String) From {{"Rat", "Mousey"},

                                                                    {"Mole", "Moley"},

                                                                    {"you", "wuu"},

                                                                    {"very", "vewwy"},

                                                                    {"day", "dway"},

                                                                    {"river", "wiwer"},

                                                                    {"before", "befwore"},

                                                                    {"all", "awwl"},

                                                                    {"enquired", "awsked"},

                                                                    {"shoved off", "went bye-bye"},

                                                                    {"boat", "boatie"}, _

                                                                                        _

                                                                    {"Rabbits", "bunnies"},

                                                                    {"Mother", "Mommy"},

                                                                    {"dears", "wittle wones"},

                                                                    {"don't", "it's a big no-no"}}

​

        ' Translate English to baby talk using the replacements Dictionary contents

​

        ' Iterate over each sample text string

        For Each sample As String In samples

            ' Iterate over each KeyValuePair in the Dictionary

            For Each kvp As KeyValuePair(Of String, String) In replacements

                ' Replace the sample string with a version containing all instances of the Key string with the Value string

                sample = sample.Replace(kvp.Key, kvp.Value)

                ' TODO possibly replace calls to .Replace using regular expressions (RegEx)

            Next

​

            ' Output the result (followed by a blank line)

            Console.WriteLine("Baby talk version:")

            Console.WriteLine(sample & vbCrLf)

        Next

​

    End Sub         ' End of Main()

    ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

​

End Module          ' End of Module StackOverflowChallenge001

' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

​

​

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' OUTPUT:

' Shows sample1 converted to baby talk followed by the same for sample2

​

'Baby talk version:

'Then the two animals stood And regarded each other cautiously.

'"Hullo, Moley!" said the Water Mousey.

'"Hullo, Mousey!" said the Moley.

'"Would wuu like to come over?" awsked the Mousey presently.

'"Oh, it's awwl vewwy well to talk," said the Moley rather pettishly, he being New to a wiwer And wiwerside life And its ways.

'"This has been a wonderful dway!" said he, as the Mousey went bye-bye And took to the sculls again. "Do wuu know, I've never been in a boatie befwore in awwl my life."

​

'Baby talk version:

'Once upon a time there were four little bunnies, And their names were—

'Flopsy,

'Mopsy,

'Cotton - tail,

'And Peter.

'They lived With their Mommy In a sand-bank, underneath the root Of a vewwy big fir-tree.

''Now my wittle wones,' said old Mrs. Rabbit one morning, 'wuu may go into the fields or down the lane, but it's a big no-no go into Mr. McGregor's garden: wuur Father had an accident there; he was put In a pie by Mrs. McGregor.'

''Now run along, and it's a big no-no get into mischief. I am going out.'

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

​

​

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Performance metrics from .NET Fiddle (https://dotnetfiddle.net/tlz33B)

'Last Run :     10:11:01 pm

'Compile:   0.141s

'Execute:   0s

'Memory:    32kb

'CPU:   0s

' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

​