- Haskell-Cafe - Haskell.org

Please contact me
by Joseph Makale 16 Jun '03

16 Jun '03

MR. JOSEPH MAKALE DEPARTMENT OF MINERALS AND ENERGY PRETORIA, SOUTH AFRICA. JUNE16TH., 2003 Sir, It is my great pleasure to write you this letter on behalf of my colleagues. Your information was given to me by a member of the South African Export Promotion Council (SAEPC) who was with the Government delegation on a trip to your country for a United Nations bilateral conference talk on sustainable development to encourage foreign investors. I have decided to seek a confidential co-operation with you in the execution of a deal here-under for the benefit of all parties and hope you will keep it confidential because of the nature of the business. Within the Department of Minerals and Energy where I work as an assistant Director of Audit, with the co-operation of two other top officials, we have in our possession an overdue contractor payment in US Dollars funds. The said funds represent certain percentage of the contract value executed on behalf of my Department by a foreign contracting firm, (Pearls Ltd) which we the officials over-invoiced to the amount of US$15,200,000 (Fifteen Million Two Hundred Thousand US Dollars). Since the present elected Government is determined to pay foreign contractors all debts owed, so as to maintain good relations with foreign governments and non-governmental agencies, we included our bills for approvals with the Department of Finance and the Reserve Bank of South Africa (RBSA). We are 100+% sure of funds approvals to anyone or company we (The Audit Committee) recommend as part of the sub-contractors who did jobs for the Department. We are seeking your assistance to front as the sub-contractor of the unclaimed funds, since we are not allowed to operate foreign accounts. Details and change of beneficiary information upon application for claim to reflect payment and approvals will be secured on behalf of You/your Company. My colleagues and I are prepared to give you US$2.5m while we take US$7.4m and the balance of US$5.3m for taxes and miscellaneous expenses incurred. This business is completely safe and secure, provided you treat it with utmost confidentiality. It does not matter whether You/your Company does contract projects, as a transfer of rights will be secured in favor of You/your Company through the Federal high Court of South Africa before we can proceed. I have reposed my confidence in you and hope that you will not disappoint us. Kindly notify me immediately for further details upon your acceptance of this proposal. You can contact me by email. Yours Faithfully, Joseph Makale (Mr.)

1 0

Italian-crafted Rolex - only $65 - $140!! Free SHIPPING ! !
by tony2003＠yahoo.ca 16 Jun '03

16 Jun '03

1 0

gtk2hs
by Christian Buschmann 15 Jun '03

15 Jun '03

Hi! I tried to implement a simple counter with gtk2hs. To increase my counter I defined following event: onClicked btn $ do si <- textBufferGetStartIter tb ei <- textBufferGetEndIter tb val <- textBufferGetText tb si ei False textBufferSetText tb $ show $ (+1) $ read val But now I don't want always read the textfield to get my counter-value, I would like to save the state of my increased value and would like to pass it to the next call of the function. How can I do this? thanks Christian This is the complete code: import Gtk quitDialog :: IO Bool quitDialog = ..... main :: IO () main = do initGUI --main window win <- windowNew onDelete win (\_->(quitDialog>>= (return . not ))) onDestroy win mainQuit vb <- vBoxNew True 5 hb <- hBoxNew True 5 btn <- buttonNewFromStock stockExecute btn2 <- buttonNewFromStock stockQuit tv <- textViewNew tb <- textBufferNew Nothing textBufferSetText tb "0" textViewSetEditable tv False textViewSetCursorVisible tv False textViewSetBuffer tv tb boxPackStartDefaults vb tv boxPackStartDefaults vb hb boxPackStartDefaults hb btn boxPackStartDefaults hb btn2 hgf <- onClicked btn $ do si <- textBufferGetStartIter tb ei <- textBufferGetEndIter tb val <- textBufferGetText tb si ei False textBufferSetText tb $ show $ (+1) $ read val disconnect hgf onClicked btn2 $ do quit <- quitDialog if quit then widgetDestroy win else return () containerAdd win vb widgetShowAll win mainGUI

2 1

未承諾広告＊５億９千万円収入証拠から３億円へ一歩　　　
by ５億９千万円証拠有ビジネス 15 Jun '03

15 Jun '03

　　　　　　　　　　　　　　　　　　未承諾広告＜事業者＞全信協・ご意見お受け賜りは 03-5458-8163にて申し受けています。　　突然の未承諾配信ご容赦願います・今後不要の方は、大変申し訳　ありませがhttp://sb88.comにてお願い申し上げます。　　　　『５　億　９　千　万　円　証　拠　有　在　宅　ビジネス』　で！　　　　　　　　　　　　　　　　　　　　　　　　　不況に勝つ！をご提案！既に、２億・３億・５億９千万円収入者続出　　　　　　　　５億９千万円収入証拠から３億円へ一歩　　　　　★∽∽∽∽∽☆∽∽∽∽∽★∽∽∽∽∽☆∽∽∽∽★ 　　　　　　　　　　　次　の　方　々　に　大　好　評　で　す　　━┛━┛━┛━┛━┛━┛━┛━┛━━┛━┛━┛━┛━┛━ ■安心生活と老後の苦労無くす為に、どうしても【５千万円貯金したい】 ■保証しているので、保証の悲劇防止の為に【保証証券で肩代わりし　　たい】 ■今の不満、不安から解放される材料として{３千万円はどうしても必要} 　　　 ■保証を頼んでいるので、頼まれる可能性あり【保証証券で解消したい】 ■３年後の願望は３千万円で達成出来るので【不況だから出来る大型　　　副収入を探している】 ■インターネットで儲けようとしたが年収８００万円以下なので【もっと高　　　率収入を探している】 ■夢の実現に５千万円は基礎的材料として必要なので【時代の波に乗っ　　たサイドビジネスを探している】 ■ホームページ作成が面倒なので、ダンロードして即に開業出来る【高率　在宅ビジネスを探している】 ■営業、セールス、説明が嫌いなので【インターネット・葉書・FAXで出来　るビジネスを探している】 ■騙されたく無いので【証拠を確認出来る確かな在宅ビジネスを探してい　　　る】　　 ★　∽∽∽∽∽　☆∽∽∽∽∽　★∽∽∽∽∽　☆∽∽∽∽　★　　　　　　　　あの時、、１億円以上あったら　　　　　　　　　　　　　　　あの時、保証証券で保証の肩代わりしていたら　　　　　　　　　　　　　今は、最高で、より以上に豊かな人生なのに！　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　今からでも遅くありません　　　　　　　　　　　　　　　　　３億円への一歩 ☆　∽∽∽∽∽　★∽∽∽∽∽　☆　∽∽∽∽∽★ ∽∽∽∽∽ ☆ ★保証事業に不況なし・保証に悩んでいる人は、多いから。3千万は欲　しい人は大多数だから、２億・３億・５億９千万円の収入証拠を！確認　して下さい。裁判は証拠主義です。 ★　∽∽∽∽∽　☆∽∽∽∽∽　★　∽∽∽∽∽☆　∽∽∽∽　★ 　　　　　　　　　　　今が、不況が・・絶好の在宅保証ビックビジネスチャンス！！　●こちらから　 http://sb88.com/ 無料の資料ご請求出来ます。　これからの安心とゆとりの金額を目指して、あなたも在宅で出来る顧問になりませんか？５億９千万円への一歩として資料ご請求から開始！無料で資料を郵送します。資料でいろいろな事実と証拠を確認して下さい。　　　　　　　　　　　　　　　証拠が一番信用出来ます。論より証拠です。　　　　　５億９千万円　証拠有　ビック在宅セカンドビジネス ★--◇--★--◆--★--◇--★　　☆　　★--◇--★--◆--★--◇--★

1 0

no subject
by Team domeus 15 Jun '03

15 Jun '03

Hello haskell-cafe(a)haskell.org, You successfully unsubscribed from the group intelligentlearning(a)domeus.co.uk. You will not receive any more messages from this group. Best regards, Your Domeus Team

1 0

Welcome to the group Intelligent Learning
by Team domeus 15 Jun '03

15 Jun '03

Hello haskell-cafe(a)haskell.org, You have been added to the group Intelligent Learning (intelligentlearning(a)domeus.co.uk) The group owner sends the following welcome message: ---------------------------- Welcome to Intelligent Learning! Our systems and programs can help you to successfully optimize your professional potential in a changing world. To be able to progress efficiently in any area today, we promote new smart working and learning systems through new techniques, tools and methodologies (TTMs) in key Smart Learning Areas: Knowledge Management, Change Management, Quantitative Learning, Qualitative Learning, Skill Management and Business Intelligence. For more information visit our web www.amjsmartlearning.com info(a)amjsmartlearning.com ---------------------------- If you do not wish to receive mails from this group, please return this eMail by clicking on reply. Alternatively, you can send an eMail to intelligentlearning-unsubscribe(a)domeus.co.uk. To unsubscribe via the web please use the following link: http://uk.domeus.com/public/unsubscribe.jsp?tsp=1055676075383&gid=337463&ui… Either way you will be directly deleted from the distribution list. If you have any questions or concerns, please contact the moderators of this Domeus group at intelligentlearning-moderators(a)domeus.co.uk. If your eMail address has been added to this list without your consent and you do not wish to receive any eMails from Domeus, please forward this message to: set_account_inactive(a)domeus.co.uk. Please note that this will disable your eMail address throughout the Domeus system. If you have any questions or problems concerning domeus please contact admin(a)domeus.co.uk. Best regards, Your Domeus Team

1 0

Haskell.org out of date
by Hampus Ram 15 Jun '03

15 Jun '03

Who takes care of haskell.org? If it is the "community" we're obviously not doing it right, lots of broken links and some that is there but does not work (e.g. the wish-list). Only the "libraries and tools" page contains 16 broken links (according to linkchecker.sf.net) and some of the tools should in my opinion be marked clearly with "antique" so you do not get upset when they require ghc 2 to compile without problem... /Hampus - (I can't decide where it's best to post this...) -- Homepage: http://www.dtek.chalmers.se/~d00ram E-mail: d00ram(a)dtek.chalmers.se "Det är aldrig försent att ge upp"

4 4

REPLY REQUIRED: Confirm subscription to group Intelligent Learning
by Team domeus 14 Jun '03

14 Jun '03

Hello haskell-cafe(a)haskell.org, thanks for your interest in the group Intelligent Learning (intelligentlearning(a)domeus.co.uk) If you would like to accept this invitation, please return this eMail by clicking on reply or subscribe via the Web. http://uk.domeus.com/public/subscribe.jsp?tsp=1055553244893&gid=337463&uid=… If you are not interested in joining, please ignore this eMail and you will receive no further eMails from us. The group owner sends the following welcome message: ----------------------------- Welcome to Intelligent Learning! Our systems and programs can help you to successfully optimize your professional potential in a changing world. To be able to progress efficiently in any area today, we promote new smart working and learning systems through new techniques, tools and methodologies (TTMs) in key Smart Learning Areas: Knowledge Management, Change Management, Quantitative Learning, Qualitative Learning, Skill Management and Business Intelligence. For more information visit our web www.amjsmartlearning.com info(a)amjsmartlearning.com ----------------------------- If you would like to use the full range of features, just log in at http://uk.domeus.com using the following log-in information: username: haskell-cafe(a)haskell.org password: fetifak8 If your eMail address has been added to this list without your consent and you do not wish to receive eMails from Domeus, please forward this message to: set_account_inactive(a)domeus.co.uk. Please note that this will disable your eMail address throughout the Domeus system. Best regards, Your Domeus Team

1 0

Testing was Re: main modules in GHC, deriving differences between GHC and Hugs
by Matthew Donadio 14 Jun '03

14 Jun '03

(redirected to haskell-cafe) Hal Daume III wrote: > Yes, but there's a problem with this solution. Namely, if Foo.hs takes a > long time to compile, then you can't leverage having already created Foo.o > and Foo.hi when making the Main. Yeah, it's not perfect, but I think we just have different methodologies for testing. Typically, I do most of my development with ghci or hugs. Each module will have a single variable that represents the tests tests :: [Bool] tests = [ test1, test2, test3 ... ] and then I define a variable called test :: Bool test = and tests so I can just load a module and either evaluate tests or test to check things out. This generalizes to importing and testing several modules at once (as long as I take care of name conflists). This only works for simple modules, though. For more complicated ones, I have a "pretty" tester. For example, my Haskell FFT library is collection of mutually recursive modules. I have a specialzed test function for this that tests a range of lengths. It looks someone like main = testfft n1 n2 testfft n1 n2 = sequence $ map test1fft [n1..n2] test1fft n = do putStr $ show n ++ ":\t" putStr $ if ok then "OK\n" else "ERROR\n" where ok = and [ test1 n, test2 n, test3 n ] This way I can compile the code, and run the executable as ffttest 2 2048 | grep ERROR and I am confident that I get full coverage of the algorithm. I am always to hear about other methods of automated testing. -- Matthew Donadio (m.p.donadio(a)ieee.org)

1 0

powerset
by Graham Klyne 13 Jun '03

13 Jun '03

A brief search of the libraries didn't reveal (top me) a ready-to-roll powerset function. I thought this may be a useful exercise to see how well I'm picking up on functional programming idioms, so I offer the following for comment: [[ -- |Powerset of a list, in ascending order of size. -- Assumes the supplied list has no duplicate elements. powerSet :: [a] -> [[a]] powerSet as = foldl (++) [] [ combinations n as | n <- intRange 1 (length as) ] -- |Combinations of n elements from a list, each being returned in the -- order that they appear in the list. combinations :: Int -> [a] -> [[a]] combinations _ [] = [] -- Don't include empty combinations combinations n as@(ah:at) | n <= 0 = [[]] | n > length as = [] | n == length as = [as] | otherwise = (map (ah:) $ combinations (n-1) at) ++ (combinations n at) -- |Return list of integers from lo to hi. intRange :: Int -> Int -> [Int] intRange lo hi = take (hi-lo+1) (iterate (+1) 1) -- Tests testcomb0 = combinations 0 "abcd" -- [] testcomb1 = combinations 1 "abcd" -- ["a","b","c","d"] testcomb2 = combinations 2 "abcd" -- ["ab","ac","ad","bc","bd","cd"] testcomb3 = combinations 3 "abcd" -- ["abc","abd","acd","bcd"] testcomb4 = combinations 4 "abcd" -- ["abcd"] testcomb5 = combinations 5 "abcd" -- [] testpower = powerSet "abc" -- ["a","b","c","ab","ac","bc","abc"] ]] I think the recursive use of 'combinations' may be inefficient, and could maybe be improved by "memoizing"? #g ------------------- Graham Klyne <GK(a)NineByNine.org> PGP: 0FAA 69FF C083 000B A2E9 A131 01B9 1C7A DBCA CB5E

9 21