Count how many vowels and consonants occur in a string: Difference between revisions

From Rosetta Code
Content added Content deleted
(Created page with "{{Draft task}} ;Task:Check how many vowels and consonants occur in a string <br><br> =={{header|Ring}}== <lang ring> load "stdlib.ring" see "working..." + nl str = '"' + "F...")
 
(Added Wren)
Line 33: Line 33:
In string occur 24 consonants
In string occur 24 consonants
done...
done...
</pre>

=={{header|Wren}}==
{{libheader|Wren-str}}
In the absence of any indications to the contrary, we take a simplistic view of only considering English ASCII vowels (not 'y') and consonants.
<lang ecmascript>import "/str" for Str

var vowels = "aeiou"
var consonants = "bcdfghjklmnpqrstvwxyz"

var strs = [
"Forever Wren programming language",
"Now is the time for all good men to come to the aid of their country."
]

for (str in strs) {
System.print("%(str)")
str = Str.lower(str)
System.write("contains %(str.count { |c| vowels.contains(c) }) vowels and ")
System.print("%(str.count { |c| consonants.contains(c) }) consonants.")
System.print()
}</lang>

{{out}}
<pre>
Forever Wren programming language
contains 11 vowels and 19 consonants.

Now is the time for all good men to come to the aid of their country.
contains 22 vowels and 31 consonants.
</pre>
</pre>

Revision as of 13:23, 26 July 2021

Count how many vowels and consonants occur in a string is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
Task
Check how many vowels and consonants occur in a string



Ring

<lang ring> load "stdlib.ring" see "working..." + nl str = '"' + "Forever Ring Programming Language" + '"' vowel = 0 cons =0

for n = 1 to len(str)

   if isvowel(str[n]) = 1
      vowel += 1
   else not isvowel(str[n]) and ascii(str[n]) > 64 and ascii(str[n]) < 123
      cons += 1
   ok

next

see "Input string = " + str + nl see "In string occur " + vowel + " vowels" + nl see "In string occur " + cons + " consonants" + nl see "done..." + nl </lang>

Output:
working...
Input string = "Forever Ring Programming Language"
In string occur 11 vowels
In string occur 24 consonants
done...

Wren

Library: Wren-str

In the absence of any indications to the contrary, we take a simplistic view of only considering English ASCII vowels (not 'y') and consonants. <lang ecmascript>import "/str" for Str

var vowels = "aeiou" var consonants = "bcdfghjklmnpqrstvwxyz"

var strs = [

   "Forever Wren programming language",
   "Now is the time for all good men to come to the aid of their country."

]

for (str in strs) {

   System.print("%(str)")
   str = Str.lower(str)
   System.write("contains %(str.count { |c| vowels.contains(c) }) vowels and ")
   System.print("%(str.count { |c| consonants.contains(c) }) consonants.")
   System.print()

}</lang>

Output:
Forever Wren programming language
contains 11 vowels and 19 consonants.

Now is the time for all good men to come to the aid of their country.
contains 22 vowels and 31 consonants.