OpenEuphoria

1. Exercism task - Bob

• Posted by axtens_bruce Feb 11, 2023
• 795 views

Is doesn't have to be an "exemplar", just an "example" but I'd like it to be a good example even if only the CI and maybe the mentor sees it. Any suggestions?

include std/sequence.e 
 
public function hey(sequence s) 
    -- remove all but A-Za-z? 
    s = retain_all("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789?", s) 
     
    if length(s) = 0 then 
        return "Fine. Be that way." 
    end if 
     
    integer is_question = (s[length(s)] = '?')  
    integer upper_count = length(filter(s, "in", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) 
    integer lower_count = length(filter(s, "in", "abcdefghijklmnopqrstuvwxyz")) 
    integer all_caps = upper_count > 0 and lower_count = 0 
     
    if is_question then 
        if all_caps then 
            return "Calm down, I know what I'm doing!" 
        else  
            return "Sure" 
        end if 
    else  
        if all_caps then 
            return "Whoa, chill out!" 
        end if 
    end if 
    return "Whatever." 
end function 

Tests

include std/unittest.e  
 
include bob.ex  
 
test_equal("stating something",hey("Tom-ay-to, tom-aaaah-to."),"Whatever.") 
test_equal("shouting",hey("WATCH OUT!"),"Whoa, chill out!") 
test_equal("shouting gibberish",hey("FCECDFCAAB"),"Whoa, chill out!") 
test_equal("asking a question",hey("Does this cryogenic chamber make me look fat?"),"Sure.") 
test_equal("asking a numeric question",hey("You are, what, like 15?"),"Sure.") 
test_equal("asking gibberish",hey("fffbbcbeab?"),"Sure.") 
test_equal("talking forcefully",hey("Hi there!"),"Whatever.") 
test_equal("using acronyms in regular speech",hey("It's OK if you don't want to go work for NASA."),"Whatever.") 
test_equal("forceful question",hey("WHAT'S GOING ON?"),"Calm down, I know what I'm doing!") 
test_equal("shouting numbers",hey("1, 2, 3 GO!"),"Whoa, chill out!") 
test_equal("no letters",hey("1, 2, 3"),"Whatever.") 
test_equal("question with no letters",hey("4?"),"Sure.") 
test_equal("shouting with special characters",hey("ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!"),"Whoa, chill out!") 
test_equal("shouting with no exclamation mark",hey("I HATE THE DENTIST"),"Whoa, chill out!") 
test_equal("statement containing question mark",hey("Ending with ? means a question."),"Whatever.") 
test_equal("non-letters with question",hey(":) ?"),"Sure.") 
test_equal("prattling on",hey("Wait! Hang on. Are you going to be OK?"),"Sure.") 
test_equal("silence",hey(""),"Fine. Be that way!") 
test_equal("prolonged silence",hey("          "),"Fine. Be that way!") 
test_equal("alternate silence",hey("\t\t\t\t\t\t\t\t\t\t"),"Fine. Be that way!") 
test_equal("multiple line question",hey("\nDoes this cryogenic chamber make me look fat?\nNo."),"Whatever.") 
test_equal("starting with whitespace",hey("         hmmmmmmm..."),"Whatever.") 
test_equal("ending with whitespace",hey("Okay if like my  spacebar  quite a bit?   "),"Sure.") 
test_equal("other whitespace",hey("\n\n \t"),"Fine. Be that way!") 
test_equal("non-question ending with whitespace",hey("This is a statement ending with whitespace      "),"Whatever.") 
 
test_report()  

-Bruce

3. Re: Exercism task - Bob

• Posted by katsmeow Feb 11, 2023
• 753 views

Really, if i thought it had a clue, i'd want to ask it "who is Zues?", to compare the answer to how Tiggr handled it 15+ years ago. Because technically the syntax is wrong, and even if there is/was a Zu, there was only the one, so there cannot be "Zues".

5. Re: Exercism task - Bob

• Posted by petelomax Feb 12, 2023
• 664 views

Shouldn't it be return "Sure." rather than return "Sure"?
I'd have probably gone with s=trim(s) to start with, and all_caps = equal(s,upper(s)). (not tested)

7. Re: Exercism task - Bob

• Posted by axtens_bruce Feb 12, 2023
• 557 views

include std/sequence.e 
 
public function hey(sequence s) 
    -- remove all whitespace 
    s = filter(s, "out", " \t\r\n") 
     
    if length(s) = 0 then 
        return "Fine. Be that way!" 
    end if 
     
    integer is_question = (s[length(s)] = '?')  
    integer upper_count = length(filter(s, "in", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) 
    integer lower_count = length(filter(s, "in", "abcdefghijklmnopqrstuvwxyz")) 
    integer all_caps = upper_count > 0 and lower_count = 0  
     
    if is_question then 
        if all_caps then 
            return "Calm down, I know what I'm doing!" 
        else  
            return "Sure." 
        end if 
    else  
        if all_caps then 
            return "Whoa, chill out!" 
        end if 
    end if 
    return "Whatever." 
end function 

The equal against upper didn't work properly so went back to the original. Filtering "out" all the whitespace worked nicely.

-Bruce

9. Re: Exercism task - Bob

• Posted by axtens_bruce Feb 13, 2023
• 544 views

That's good. I like that. Really boils it down well.

-Bruce