Program this!, Programming thread Options

[mipadi]

I'm of the understand that there are a few Technology forum aficionados that are programmers, or are at least interested in programming, so I thought I'd start a thread -- a sort of game. The game was inspired by this thread. It's pretty simple: just implement the following program in whatever language you desire. If someone's already posted a program in your favorite language, see if you can do better! You get bragging rights if you implement the program in a weird/unusual/rare language.

Here are the guidelines for the program:

1. Write a method named matchesPattern1() that accepts a String as input. This method determines whether or not the input String has the following property:
   
   The string has a number of c's equal to the total number of a's and b's.
   
   In other words, every word in this language is of the form:
   
   anbmc(n + m), where n ≥ 0 and m ≥ 0.
   
   n and m may be equal, but this is not required.
   
   Thus, bc, abccac, aabbcccc and abbbbccccc are all valid words in this language.
   
   Your method should return a boolean value: true if the input string satisfies these requirements, and false if it does not.
   
   For example, given a String such as aabbcc, your method should return false.
2. Write a method named matchesPattern2() that accepts a String as input. This method determines whether or not the input String has the following properties:
   
   The string has a number of c's equal to the total number of a's and b's.
   All a's come before any b's, and all b's come before any c's. (HINT: Can you test for this using one or more boolean variable "flags"?)
   
   In other words, every word in this language is of the form:
   
   anbmc(n + m), where n ≥ 0 and m ≥ 0.
   
   n and m may be equal, but this is not required.
   
   Thus, aabbcccc and abbbbccccc are valid words in this language, but abaccc and abc are not.
   
   Your method should return a boolean value: true if the input string satisfies these requirements, and false if it does not.
   
   For example, given a String such as aabbcc, your method should return false.
   
   This pattern is identical to the one above, except it imposes a specific ordering requirement on the input string.
3. Write a method named matchesPattern3() that accepts a String as input. This method determines whether or not the input String has the following properties:
   
   The string has an equal (nonzero) number of a's and c's, and any number of (zero or more) b's.
   All a's come before any b's, and all b's come before any c's.
   
   In other words, every word in this language is of the form:
   
   anb*cn, where n > 0.
   
   Thus, aabbcc and ac are valid words in this language, but abaccc and aabc are not.
   
   Your method should return a boolean value: true if the input string satisfies these requirements, and false if it does not.
   
   For example, given a String such as aabbaa, your method should return false.

[Uronacid]

I'd love to do this, but "anbmc(n + m), where n ≥ 0 and m ≥ 0." I don't understand this line.

[mipadi]

I'd love to do this, but "anbmc(n + m), where n ≥ 0 and m ≥ 0." I don't understand this line.

It's a string in which the total number of a's and b's equals the total number of c's.

Valid: "aabbcccc", "acbc", "abaccc"
Invalid: "abc", "aabbc", "cabb"

[Uronacid]

It's a string in which the total number of a's and b's equals the total number of c's.

Valid: "aabbcccc", "acbc", "abaccc"
Invalid: "abc", "aabbc", "cabb"

vbscript

CODE

strTest =  "ccccc"
wscript.echo "1:" & pattern1(strTest) & " 2:" & pattern2(strTest) & " 3:" & pattern2(strTest)

Private Function pattern1(strValue)

     numAB = 0
     numC = 0
     numPos = 1
     strPos = " "
    
    
     Do Until  numPos = Len(strValue) + 1
          strPos = Mid(strValue,numPos,1)
          If StrComp(strPos, "a", vbTextCompare) = 0 OR StrComp(strPos, "b", vbTextCompare) = 0 Then
               numAB = numAB + 1
          ElseIf StrComp(strPos, "c", vbTextCompare) = 0 Then
               numC = numC + 1
          End If
          numPos = numPos + 1
     Loop

     If numC => numAB Then
          pattern1 = "true"
     Else
          pattern1 = "false"
     End If

End Function

Private Function pattern2(strValue)

    numAB = 0
    numC = 0
    numPos = 1
    strPos = Mid(strValue,numPos,1)
    blnA = true
    blnB = false
    blnC = true
    

    If StrComp(strPos, "b", vbTextCompare) = 0 OR StrComp(strPos, "c", vbTextCompare) = 0 Then
        pattern2 = "false"
        Exit Function
    End If
    
    Do Until  numPos = Len(strValue) + 1
        strPos = Mid(strValue,numPos,1)
          
        If StrComp(strPos, "a", vbTextCompare) = 0 Then
            If blnA = true Then
                blnA = true
                blnB = true
                blnC = true
            Else
                pattern2 = "false"
                Exit Function
            End If
        ElseIf StrComp(strPos, "b", vbTextCompare) = 0 Then
            If blnB = true Then
                blnA = false
                blnB = true
                blnC = true
                
            Else
                pattern2 = "false"
                Exit Function
            End If
        ElseIf StrComp(strPos, "c", vbTextCompare) = 0 Then
            If blnC = true Then
                blnA = false
                blnB = false
                blnC = true
            Else
                pattern2 = "false"
                Exit Function
            End If
        End If
            
          
          If StrComp(strPos, "a", vbTextCompare) = 0 OR StrComp(strPos, "b", vbTextCompare) = 0 Then
               numAB = numAB + 1
          ElseIf StrComp(strPos, "c", vbTextCompare) = 0 Then
               numC = numC + 1
          End If
          numPos = numPos + 1
     Loop

     If numC => numAB Then
          pattern2 = "true"
     Else
          pattern2 = "false"
     End If

End Function

Private Function pattern3(strValue)

    numAB = 0
    numC = 0
    numPos = 1
    strPos = Mid(strValue,numPos,1)
    blnA = true
    blnB = false
    blnC = false
    

    If StrComp(strPos, "b", vbTextCompare) = 0 OR StrComp(strPos, "c", vbTextCompare) = 0 Then
        pattern3 = "false"
        Exit Function
    End If
    
    Do Until  numPos = Len(strValue) + 1
        strPos = Mid(strValue,numPos,1)
          
        If StrComp(strPos, "a", vbTextCompare) = 0 Then
            If blnA = true Then
                blnA = true
                blnB = true
                blnC = true
            Else
                pattern3 = "false"
                Exit Function
            End If
        ElseIf StrComp(strPos, "b", vbTextCompare) = 0 Then
            If blnB = true Then
                blnA = false
                blnB = true
                blnC = true
                
            Else
                pattern3 = "false"
                Exit Function
            End If
        ElseIf StrComp(strPos, "c", vbTextCompare) = 0 Then
            If blnC = true Then
                blnA = false
                blnB = false
                blnC = true
            Else
                pattern3 = "false"
                Exit Function
            End If
        End If
            
          
          If StrComp(strPos, "a", vbTextCompare) = 0 OR StrComp(strPos, "b", vbTextCompare) = 0 Then
               numAB = numAB + 1
          ElseIf StrComp(strPos, "c", vbTextCompare) = 0 Then
               numC = numC + 1
          End If
          numPos = numPos + 1
    Loop
    
    If numC => numAB Then
        If numAB > 0 Then
            pattern2 = "true"
        Else
            pattern2 = "false"
        End If
    Else
        pattern2 = "false"
    End If

End Function

Like that?