25:I[213999,["/_next/static/chunks/16a29cd6304f2411.js","/_next/static/chunks/1f26200cd6d05dff.js","/_next/static/chunks/c3f9d80d717636c8.js","/_next/static/chunks/bc1d040bf8e65c58.js","/_next/static/chunks/debb321617d7ca1e.js","/_next/static/chunks/f64101a76fad54b1.js","/_next/static/chunks/94fbb7fa806ad56b.js","/_next/static/chunks/db9978aba23a417e.js","/_next/static/chunks/14f8985e1634915f.js","/_next/static/chunks/aec63f7bf4bac799.js","/_next/static/chunks/2ed14a01cc7b5d05.js","/_next/static/chunks/e95f3e95128ec76b.js","/_next/static/chunks/7bba671d0b05dc6c.js","/_next/static/chunks/882a0401193a3b5d.js","/_next/static/chunks/abd3194e107ec3ca.js"],"AcademyWorkspaceWrapper"] 27:I[422650,["/_next/static/chunks/0306128cacc23787.js"],"IconMark"] 26:T428,module Acronym ( abbreviate ) where import Prelude import Data.CodePoint.Unicode as UChar import Data.Foldable (foldl) import Data.List (List) import Data.List as List import Data.String (codePointFromChar) import Data.String as String import Data.String.CodeUnits (toCharArray) abbreviate :: String -> String abbreviate = initials <<< List.fromFoldable <<< toCharArray data CharType = Upper | Lower | Space | Other classify :: Char -> CharType classify '-' = Space classify ' ' = Space classify c | UChar.isUpper (codePointFromChar c) = Upper | UChar.isLower (codePointFromChar c) = Lower | otherwise = Other initials :: List Char -> String initials = let next Lower Upper = String.singleton <<< codePointFromChar next Space _ = String.toUpper <<< String.singleton <<< codePointFromChar next _ _ = const "" step { acc, last } c = let charClass = classify c in { acc: acc <> next last charClass c , last: charClass } in _.acc <<< foldl step { acc: "", last: Space }