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

Content added Content deleted

Inline

@@ Line 1,062: / Line 1,062: @@
         ('t', 1)
         ('v', 1)</pre>
+=={{header|Quackery}}==
+<lang Quackery>
+  [ bit
+    [ 0 $ "AEIOUaeiuo"
+      witheach [ bit | ] ] constant
+     & 0 != ]                        is vowel     ( c --> b   )
+  [ bit
+    [ 0 $ "BCDFGHJKLMNPQRSTVWXYZ"
+      $ "bcdfghjklmnpqrstvwxyz" join
+      witheach [ bit | ] ] constant
+     & 0 != ]                        is consonant ( c --> b   )
+  [ 0 0 rot witheach
+      [ tuck vowel +
+        dip [ consonant + ] ] ]      is task      ( $ --> n n )
+  $ "How fleeting are all human passions compared"
+  $ " with the massive continuity of ducks." join
+  task
+  echo say " vowels" cr
+  echo say " consonants"</lang>
+{{out}}
+<pre>26 vowels
+consonants
+</pre>
 =={{header|Raku}}==