On Wed, Feb 23, 2005 at 08:46:23AM +0100, Arthur van Leeuwen wrote:
On Wed, Feb 23, 2005 at 12:27:19AM +0000, Terrence Brannon wrote:
[snip, encryptia discordia]>
How about
module CryptDiscordian where
import List
vowels = "aeiouAEIOU" isVowel = (flip elem) vowel_list
moveVowels xs = filter (not . isSpace) $ (filter (not . isVowel) xs ++ filter (is_vowel) xs)
encryptDiscordian xs = map chr $ sort $ map (ord . toLower) $ reverse $ moveVowels xs
Which won't work, as it lacks an import Char. Doei, Arthur. (Still waking up, apparently) -- /\ / | arthurvl@cs.uu.nl | Work like you don't need the money /__\ / | A friend is someone with whom | Love like you have never been hurt / \/__ | you can dare to be yourself | Dance like there's nobody watching