From nobody@digitalkingdom.org Fri Sep 28 07:24:04 2007 Received: with ECARTIS (v1.0.0; list lojban-list); Fri, 28 Sep 2007 07:24:04 -0700 (PDT) Received: from nobody by chain.digitalkingdom.org with local (Exim 4.67) (envelope-from ) id 1IbGl9-000713-Qt for lojban-list-real@lojban.org; Fri, 28 Sep 2007 07:24:04 -0700 Received: from kcout01.prserv.net ([12.154.55.31]) by chain.digitalkingdom.org with esmtp (Exim 4.67) (envelope-from ) id 1IbGl7-00070i-Q1 for lojban-list@lojban.org; Fri, 28 Sep 2007 07:24:03 -0700 Received: from [192.168.0.6] (cpe-24-59-154-165.twcny.res.rr.com[24.59.154.165]) by prserv.net (kcout01) with SMTP id <20070928142355201003hb68e> (Authid: usinet.kpreid); Fri, 28 Sep 2007 14:23:55 +0000 X-Originating-IP: [24.59.154.165] Mime-Version: 1.0 (Apple Message framework v752.2) Content-Transfer-Encoding: 7bit Message-Id: <71604EF1-DD37-4098-BC20-30A02C928C0E@mac.com> Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed To: lojban-list@lojban.org From: Kevin Reid Subject: [lojban] sampla fi tu'a lo nu'o lojbo rafsi (Unused rafsi counting program) Date: Fri, 28 Sep 2007 10:23:51 -0400 X-Mailer: Apple Mail (2.752.2) X-Spam-Score: 0.0 X-Spam-Score-Int: 0 X-Spam-Bar: / X-archive-position: 13866 X-ecartis-version: Ecartis v1.0.0 Sender: lojban-list-bounce@lojban.org Errors-to: lojban-list-bounce@lojban.org X-original-sender: kpreid@mac.com Precedence: bulk Reply-to: lojban-list@lojban.org X-list: lojban-list da poi prenu cu te preti fi lo se du'u kancu lo'i nu'o lojbo rafsi makau kei cei broda fo la'o.u. #jbopre .u. .i se mu'i bo mi sampla fi lo nu kanji lo se broda fe zoi .ask. module UnusedRafsi where import qualified Data.Set as Set import Foreign (unsafePerformIO) import Control.Monad possibles = Set.fromList ( liftM3 cat3 mC mV mC `mplus` liftM2 (++) mCC mV `mplus` liftM2 (++) mC mVV ) rafsis = (Set.fromList . concatMap words . map (take 12 . drop 6)) gismuLines mC = map return "bcdfgjklmnprstvxz" mCC = words "bl br cf ck cl cm cn cp cr ct dj dr dz fl fr gl gr jb jd jg jm jv kl kr ml mr pl pr sf sk sl sm sn sp sr st tc tr ts vl vr xl xr zb zd zg zm zv" mV = map return "aeiou" mVV = words "ai ei oi au a'a a'e a'i a'o a'u e'a e'e e'i e'o e'u i'a i'e i'i i'o i'u o'a o'e o'i o'o o'u u'a u'e u'i u'o u'u" cat3 a b c = a ++ b ++ c gismuLines = (tail . lines) gismutxt gismutxt = unsafePerformIO (readFile "gismu.txt") .ask. .i ro lu'a la'o.u. possibles .u. nu'o ja ca'a lojbo rafsi .i ro lu'a la'o.u. rafsis .u. ca'a lojbo rafsi .i kancu lo'i nu'o lojbo rafsi li xa ci re .i vreji fa zoi .ask. $ ghci UnusedRafsi.hs ... Ok, modules loaded: UnusedRafsi. *UnusedRafsi> Set.size possibles - Set.size rafsis 632 *UnusedRafsi> .ask. -- Kevin Reid To unsubscribe from this list, send mail to lojban-list-request@lojban.org with the subject unsubscribe, or go to http://www.lojban.org/lsg2/, or if you're really stuck, send mail to secretary@lojban.org for help.