Comments on: Playing with Haskell

By: Improved Means For Achieving Deteriorated Ends / Almost Done

Improved Means For Achieving Deteriorated Ends / Almost Done — Tue, 07 Jul 2009 00:14:56 +0000

[...] I probably should also wrap up the funnyWords programs in lisp and haskell with the suggested optimizations and some sort of review post. What are you guys up to? Post a comment — Trackback URI RSS [...]

By: Improved Means For Achieving Deteriorated Ends / Lisp is Lovable

Improved Means For Achieving Deteriorated Ends / Lisp is Lovable — Wed, 27 May 2009 15:59:25 +0000

[...] to class but I thought I’d throw up a Lisp solution I coded to the Funny Words problem which I worked through in Haskell earlier. I used sb-ext:save-lisp-and-die thanks to a helpful guide to dump a core image and used [...]

By: solrize

solrize — Thu, 14 May 2009 23:26:38 +0000

Looks like the blog comment software garbled up the code. Please try:

http://hpaste.org/fastcgi/hpaste.fcgi/view?id=4895#a4895

By: admin

admin — Thu, 14 May 2009 02:01:16 +0000

Solrize,

I can’t get this to run in GHCi or compile in GHC as it complains ‘ws’ is Not In Scope. I agree with it at first glance. I deleted your previous comment as you requested. If you have time to correct this, it would be most appreciated. I’ll try to glean what I can from it. Thank you very much!

By: solrize

solrize — Wed, 13 May 2009 08:43:52 +0000

-- cleaned up version, ignore earlier one -- cosmicomics http://redlinernotes.com/blog/?p=937


import qualified  Data.Map as M

import qualified  Data.Set as S

import Data.List

import Data.Char (toLower, isAlpha)
-- convert word to lowercase and throw out nonalphabetics

canon :: String -> String

canon word = filter isAlpha $ map toLower word

main = do wss' <- (readFile "/usr/share/dict/words") let wss = [canon ws | ws 1] dict = foldr (\ws->M.insertWith (++) (sort ws) [ws]) M.empty $ wss cosmics = do ws <- wss let Just yss = M.lookup (sort ws) dict pss = [ys | ys <- yss, last ws == head ys] cs = [ws ++ (tail ps) | ps <- pss, ps /= ws] return cs mapM_ putStrLn (S.toList $ S.fromList $ concat cosmics)

By: admin

admin — Mon, 04 May 2009 01:34:40 +0000

Glad you liked it, even if it was on the haskell subreddit.

I do like backwardrawback but I also really like creatoreactor!

By: J Cooper

J Cooper — Mon, 04 May 2009 00:52:00 +0000

This was a neat article. I’m glad it ended up on reddit even though you didn’t want it to!

Btw, the best word from that list is “backwardrawback”

By: admin

admin — Sun, 03 May 2009 19:58:05 +0000

Well, thanks for stopping by and I’m glad you found it enlightening. I’m going to have to write a lot more Haskell before my mind is made up and I have anything concrete to say though.

By: John Bender

John Bender — Sun, 03 May 2009 18:20:04 +0000

I’m glad my little question on Reddit has sparked conversation. The response you referred to highlights some of the issues that I had encountered so far but it’s been enlightening to see the responses, including your own.