Sigbjorn Finne wrote: [in connection with the Standard Haskell discussion]
> If nothing else, it could force people to think twice about designing
> a new language :-)
Yeah, we don't need anything new. In fact, I've been thinking of an
alternate way of standardizing Haskell. It is described below in
pseudocode, but I think you will see that it can be easily implemented
in Haskell. (I wouldn't recommend implementing this in any other language,
though -- it might terminate abnormally.)
> -- The Haskell Standard Mascot (`Wormsy')
> -- Purpose: To reduce unnecessary diversity
>
> import Set
> import Graph
> import qualified Inet
> import qualified Posix
> import qualified Regexp
>
> main =
> do url <- getArg
> let safe x = domainName x == "http://haskell.org"
> sites = filter (not . safe) (depthFirstSearch url Inet.connect)
> mapM (seekAndDestroy . findTrapDoor) sites
> mapM notify sites
>
> seekAndDestroy machine =
> do let fileSet = allFiles (Posix.rootDir machine)
> mapM f fileSet
> where f x = if not ((haskellCompiler x)`or`(haskellProgram x))
> then Posix.unlink x
> else skip
>
> notify =
> sendMail "To: root\n\
> \From: Wormsy\n\
> \Subject: Heil!\n\
> \Your machine has been standardized. Thank you for using Haskell."
>
> findTrapDoor site =
> if Regexp.match ".*Microsoft.*|.*Windows.*|.*NT.*" (systemType site)
> then remoteLogin site (LoginRecord {user="Gates_uber_alles",
> pass="$$",
> action=(launch "Winword")}
> -- a foolproof method for crashing Windows
> else complexEntryMethod site
-- FC
P.S.: (Need I say it?) j/k
P.P.S.: The quote by Sigbjorn was taken _very_ out of context.
