如何将结果存储到HP OpenVMS DCL中的变量中？(How to store a result to a variable in HP OpenVMS DCL?)

 喜欢这个 
 
ghci> import Data.Char
ghci> import Data.List
ghci> groupBy (const isAlphaNum) "A bunch of words and numbers34"
["A"," bunch"," of"," words"," and"," numbers34"]
 
 要么 
 
ghci> groupBy (const isAlpha) "A bunch of words and numbers34"
["A"," bunch"," of"," words"," and"," numbers","3","4"]
 
 编辑：由于没有迹象表明解决方案已被发现的扩展问题，为了保持标准的SO我将完成问题的答案： 
 
import Data.List

isVowel :: Char -> Bool
isVowel c = c `elem` "aeiouy"

bothVowelConsonant :: Char -> Char -> Bool
bothVowelConsonant a b = all isVowel [a,b] || not (any isVowel [a,b])

splitByVowel :: String -> [String]
splitByVowel s = groupBy bothVowelConsonant s

Like this
 
ghci> import Data.Char
ghci> import Data.List
ghci> groupBy (const isAlphaNum) "A bunch of words and numbers34"
["A"," bunch"," of"," words"," and"," numbers34"]
 
Or
 
ghci> groupBy (const isAlpha) "A bunch of words and numbers34"
["A"," bunch"," of"," words"," and"," numbers","3","4"]
 
Edit: Since there has been no indication that a solution has been found to the extended problem, in the interest of keeping up the standard of SO I shall complete the answer to the problem:
 
import Data.List

isVowel :: Char -> Bool
isVowel c = c `elem` "aeiouy"

bothVowelConsonant :: Char -> Char -> Bool
bothVowelConsonant a b = all isVowel [a,b] || not (any isVowel [a,b])

splitByVowel :: String -> [String]
splitByVowel s = groupBy bothVowelConsonant s