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

Content deleted Content added

Inline

@@ Line 212: / Line 212: @@
           (`S.notMember` vs)
           (alphabet <> fmap toUpper alphabet)
 --------------------------- TEST -------------------------
 main :: IO ()
 main = do
-  let sets =
-        vowelsAndConsonantsUsed
-          "aeiou"
-          ['a' .. 'z']
-          "Forever Fortran 2018 programming language"
   putStrLn "Unique vowels and consonants used, with counts:\n"
-  print $ join bimap S.toList sets
+  mapM_ print $
-  print $ join bimap S.size sets
+    [(,) . S.toList <*> S.size]
+      <*> ( [fst, snd]
+              <*> [ vowelsAndConsonantsUsed
+                      "aeiou"
+                      ['a' .. 'z']
+                      "Forever Fortran 2018 programming language"
+                  ]
+          )
 ------------------------- GENERAL ------------------------
+both :: (a -> b) -> (a, a) -> (b, b)
+both = join bimap
 if_ :: Bool -> a -> a -> a
@@ Line 236: / Line 239: @@
 <pre>Unique vowels and consonants used, with counts:
-("aeiou","Fglmnprtv")
+("aeiou",5)
-(5,9)</pre>
+("Fglmnprtv",9)</pre>
 =={{header|jq}}==