[SIMILAR] WITH 81198 animal3 WITH 66427 whiskers WITH 44285 animal2 WITH 44285 animal3class WITH 28639 call3 WITH 27437 cat2 WITH 25864 dog2 WITH 22494 法da WITH 22494 calldog WITH 22494 callcat WITH 20867 putstrln WITH 17074 string WITH 15241 animal1 WITH 14761 call1 WITH 14536 cat3 WITH 14010 call2 WITH 13625 dog3 WITH 10014 pochi WITH 9791 where WITH 8085 instance WITH 7748 generalised WITH 7748 datatype WITH 7748 existentially WITH 7748 quantified WITH 7498 cat1 WITH 7323 多相 WITH 7323 相型 WITH 7323 algebraic WITH 6812 mapm WITH 6721 dog1 WITH 6676 型シ WITH 6334 name の検索結果 72 件中 1 - 10 件目 (0.02179266 秒)
もっとも簡単そうな方法 data Animal1 = Dog1 String | Cat1 String Int call1 :: Animal1 -> String call1 (Dog1 name) = name call1 (Cat1 name whiskers) = name ++ " with " ++ show whiskers ++ " whiskers" test1 = mapM_ (putStrLn . call1) [Dog1 "pochi", Cat1 "tama" 12] 簡単だけれど、種類を増やす ...
HSQL-1.7を使ってMySQL 5.0.24に接続してみるテスト。 module Main where import IO import qualified Database.HSQL as DB import qualified Database.HSQL.MySQL as MySQL host = "localhost" db = "test" user = "root" password = "password" main :: IO () main = process `DB.catchSql` print where proc ...
# (スコア:1499)
指定した年・月を以下のような感じでカレンダーっぽく表示。 | 1 2 3 | 4 5 6 7 8 9 10 | 11 12 13 14 15 16 17 | 18 19 20 21 22 23 24 | 25 26 27 28 29 30 31 なんとなく考えると、具体的な方法を考えなくても書けてしまうのが良い感じです。 import Data.List (dropWhile, intersperse, takeWhile, unfoldr ...
# (スコア:1428)
SIGALRMシグナルを使っているライブラリをFFIで呼び出すと、コールバックのスタブの中でInterruptedというメッセージを出してプロセスが落ちてしまうことがあるので、テストコードを書いて調べてみました。 alarm.h void test(); alarm.c #include <signal.h> #include <string.h> #include <stdio.h> #include ...
# (スコア:1428)
なぜか流行っているらしい。 let f x "" "" = show x f _ y z = y ++ z in mapM_ putStrLn $ zipWith3 f [1..100] (cycle ["", "", "Fizz"]) (cycle ["", "", "", "", "Buzz"]) ...
# (スコア:1428)
HDBC-1.0.1.0を使ってMySQL 5.0.24に接続するテスト。HDBCにはMySQLのドライバが無いので、unixODBCを使ってODBC経由で接続します。 unixODBCは2.2.11、mysql-connector-odbcは3.51.12、HDBC-ODBCは1.0.1.0を使います。 import IO import qualified Database.HDBC as DB import qualified Database.HDBC.ODBC a ...
# (スコア:1346)
Maybeの中の値を元に、Maybe自体をNothingにしたいケースが結構あります。例えば、Maybe Stringで中の文字列が空の場合にはNothingにしたいケースなどです。 nonEmptyString :: Maybe String -> Maybe String nonEmptyString s = case s of Just s | s /= "" -> Just s _ -> Nothing これを少し一般化すると、こ ...
# (スコア:1203)
キーと値からなる設定ファイルをパースするとします。設定ファイルはこんな感じです。 name=Test value=5 マップなどで値を持つという方法もありますが、ちゃんと型付けするために専用の型を用意することにします。そうするとパースするコードはこんな感じでしょうか。 import Control.Monad import Data.Maybe ...
# (スコア:1168)
mime-string-0.3で、MIME形式のメッセージを処理するときに、コメントが入っているとうまく扱えないことがあります。以下のパッチで直ります。 diff -ur mime-string-0.3.orig/Codec/MIME/String/Headers.hs mime-string-0.3/Codec/MIME/String/Headers.hs --- mime-string-0.3.orig/Codec/MIME/String/Headers ...
# (スコア:1168)
試しに書いてみたアドレス帳のスキーマ（in RELAX NG Compact Syntax）です。こんな感じで他の設定ファイルについても書いておくとわからなくならないですね。コメントなんかもつけたら別のところにまとめて置きたい所です。 datatypes xsd="http://www.w3.org/2001/XMLSchema-datatypes" element addressBook ...
# (スコア:1168)
# (スコア:10000)